<div>
Could you please share the errors if any?
</div>

<div>
Hi, 
 
In your code you delete the items not send them 
 
Is Outlook Offline when you open it, if so try 

<pre><code class="code-10 nolinks" id="code-20-41490185-1">Sub Macro()
 Dim bOfflState As Boolean
 Dim objItem As Object 'mailitem
 Dim objPage As Page
 Dim colOutboxItems As Items

 bOfflState = Application.Session.Offline
 If bOfflState Then Application.ActiveExplorer().CommandBars.FindControl(, 5613).Execute

 On Error Resume Next
 Set colOutboxItems = Application.Session.GetDefaultFolder(olFolderOutbox).Items
 For Each objItem In colOutlboxItems
 objItem.Send
 Next
 Set objItem = Nothing
 Set colOutboxItems = Nothing
End Sub
</code></pre>
Regards
</div>

<div>
should outlook be offline ?
</div>

<div>
No 
 
I thought if Outlook does not send the emails in the Outbox it's maybe because it's offline
</div>

<div>
Gaurav, 
 
from outlook Application Startup 
declared 
 
Private Declare Sub AppSleep Lib &quot;kernel32&quot; Alias &quot;Sleep&quot; (ByVal dwMilliseconds As Long) 
 
'Went offline first 
' called my routine here 
Call Something 
' then went offline 
 
Dim olApp As Outlook.Application 
Set olApp = CreateObject(&quot;Outlook.Application&quot;) 
olApp.GetNamespace(&quot;MAPI&quot;).Folders.GetFirst.GetExplorer.CommandBars.FindControl(, 5613).Execute 
 
Call Close_Outlook 
 
Application.Quit 
-------------------------------------------------------------------------------------------- 
then called the routines below: &nbsp;from sue mosher(code).worked. 

<pre><code class="code-10 nolinks" id="code-20-41491500-1">Sub Close_Outlook()
'this sub keeps access waiting for the outlook outbox to empty
Dim oOutApp As Object
Dim IsItSent As Integer
Dim objNameSpace As NameSpace
Dim objFolder As MAPIFolder
On Error GoTo Err_Handler
Set oOutApp = GetOutlookObject()
Set objNameSpace = oOutApp.GetNamespace(&quot;MAPI&quot;)
Set objFolder = objNameSpace.GetDefaultFolder(olFolderOutbox)
Set objRec = objNameSpace.CurrentUser

IsItSent = objFolder.Items.Count 'update the count to determine if we need to loop
If IsItSent = 0 Then
GoTo LINE10 ' do nothing
Else
'Do While IsItSent &gt; 0
'IsItSent = objFolder.Items.Count 'update the count inside the loop
'PauseApp 1
'Loop
End If
LINE10:
Set oOutApp = Nothing
Set oMail = Nothing
Set objNameSpace = Nothing
Set objFolder = Nothing
Set objRec = Nothing
Exit_Here:
Exit Sub
Err_Handler:
sMsg = Err.Description
If sType = &quot;Contact&quot; Then sMsg = sMsg &amp; &quot; data=&quot; &amp; sBody
MsgBox sMsg, vbExclamation, &quot;Error&quot;
Resume Exit_Here
End Sub
Public Function GetOutlookObject() As Object
'this procedure attempts to set the object to existing process of outlook.application
'and if the outlook process is not running it attempts to create it.
Dim oOutApp As Object
Dim sMsg As String
' We turn Error Handling OFF so we can attempt a call and test for errors.
On Error Resume Next
' If Outlook is already open, then use GetObject to set a reference to it.
' If you know version, then comment out the unneeded calls below.
Set oOutApp = GetObject(, &quot;Outlook.Application&quot;)
If Err.Number &gt; 0 Then ' Outlook 97 version
Err.Clear
Set oOutApp = GetObject(, &quot;Outlook.Application.9&quot;)
End If
If Err.Number &gt; 0 Then ' Outlook XP version
Err.Clear
Set oOutApp = GetObject(, &quot;Outlook.Application.10&quot;)
End If
If Err.Number &gt; 0 Then ' Outlook 2003 version
Err.Clear
Set oOutApp = GetObject(, &quot;Outlook.Application.11&quot;)
End If
If Err.Number &gt; 0 Then ' Outlook 2007 version
Err.Clear
Set oOutApp = GetObject(, &quot;Outlook.Application.12&quot;)
End If
If Err.Number &gt; 0 Then ' Outlook 2010 version
Err.Clear
Set oOutApp = GetObject(, &quot;Outlook.Application.14&quot;)
End If
If Err.Number Then
Err.Clear
' If code failed to &quot;Get&quot; an instance of Outlook, then it isn't currently
' open and we must use CreateObject to open and set a reference.
Set oOutApp = CreateObject(&quot;Outlook.Application&quot;)
' If another error has occurred, then Outlook couldn't be opened.
' Inform user and abort.
If Err.Number &gt; 0 Then
sMsg = &quot;Could not open Outlook. &quot; &amp; vbCrLf &amp; vbCrLf &amp; _
&quot;Either Outlook is not installed correctly, &quot; &amp; vbCrLf &amp; _
&quot;or there is a problem with the installation. &quot; &amp; vbCrLf &amp; vbCrLf &amp; _
&quot;Try opening Outlook before running this utility. &quot;
MsgBox sMsg, vbCritical, &quot;Outlook Failed to Open&quot;
Set oOutApp = Nothing
Exit Function
End If
End If

Set GetOutlookObject = oOutApp

End Function
Public Sub PauseApp(PauseInSeconds As Long)
'for the PauseApp to work you must put this string at the top in the options compare section of the module.... Private Declare Sub AppSleep Lib &quot;kernel32&quot; Alias &quot;Sleep&quot; (ByVal dwMilliseconds As Long)
'what I like about this procedure is that it is not demanding on cpu cycles when running.
Call AppSleep(PauseInSeconds * 1000)
End Sub
</code></pre>
</div>

<div>
<div class="content wysiwyg-content">
outlook vba 
 
Using the following code on &quot;thisoutlooksession&quot; on startup to force anything in &quot;Outbox&quot; to send. 
not working ? 
 

<pre><code class="code-10 nolinks" id="code-10-28930402-1">Dim objItem As Object 'mailitem
Dim objPage As Page
Dim colOutboxItems As Items
 On Error Resume Next
 Set colOutboxItems = Application.Session.GetDefaultFolder(olFolderOutbox).Items
 For Each objItem In colOutlboxItems
 objItem.Delete
 Next
 Set objItem = Nothing
 Set colOutboxItems = Nothing
</code></pre>
 
 
Thanks 
fordraiders
</div>
</div>

outlook vba

Using the following code on "thisoutlooksession" on startup to force anything in "Outbox" to send.
not working ?

(CODE)


Thanks
fordraiders

force items in outbox to send outlook 2010

Microsoft Outlook is a personal information manager from Microsoft, available as a part of the Microsoft Office suite. Although often used mainly as an email application, it also includes a calendar, task manager, contact manager, note-taker, journal, and web browser.