View Full Version : [SOLVED:] VBA outlook
loop66
01-10-2018, 12:59 PM
Is there a way to delete from excel commandbutton all messages without attachment in outbox(Outlook 2010) ? ?
Kenneth Hobs
01-11-2018, 10:28 AM
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
01-11-2018, 02:04 PM
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
01-11-2018, 02:21 PM
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.
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.