VBA outlook

[loop66]

Is there a way to delete from excel commandbutton all messages without attachment in outbox(Outlook 2010) ? ?

[Kenneth Hobs]

Welcome to the forum!

Yes.

Is the server Gmail? I guess those have a deferred delivery time else they would send when Outlook opens.

[loop66]

Let me describe from the beginning,i found and modified excel to send multiple mails to different peoples with personalized attachments

Step 1:
Outlook - enable Work Offline icon

Step2:
Create messages

Step3:
Run code to move messages without attachment from outbox to deleted items


Sub Cleanmssg()
Dim selectedFolder As Outlook.MAPIFolder
Dim targetFolder As Outlook.MAPIFolder
Dim itms As Outlook.Items
Dim msg As Outlook.MailItem
Dim i As Long
Dim msgAttachs As Outlook.Attachments
Set selectedFolder = Outlook.GetNamespace("MAPI").PickFolder
If selectedFolder Is Nothing Then Exit Sub
Set targetFolder = Outlook.GetNamespace("MAPI").PickFolder
If targetFolder Is Nothing Then Exit Sub
Set itms = selectedFolder.Items
For i = itms.Count To 1 Step -1
If TypeName(itms.Item(i)) = "MailItem" Then
Set msg = itms.Item(i)
Set msgAttachs = msg.Attachments
If msgAttachs.Count <= 0 Then
msg.Move targetFolder
End If
End If
Next i
End Sub




Step4:
Outlook - disable Work Offline icon to start sending(but messages are stuck and they can be sent when you open each and press Send button)


Server is microsoft exchange server 2003 or 2007

[Kenneth Hobs]

I am not sure about all that or if it is needed.

Is the problem that you create Outlook mail, Send, but it goes to Outbox instead of sending out? If so, why not have the macro open Outlook before Send? http://www.rondebruin.nl/win/s1/outlook/openclose.htm

Next time, please make your subject line more descriptive.