Editing a message pre sending makes it unsendable

gmayor · #2 08-15-2018, 07:59 PM

The message may be new (though I haven't seen it) but the problem with editing messages in the outbox resulting in the message not being sent is by no means a new one. It is however easily resolved with a macro. Add this macro to the ribbon and use it to resend the messages in the Outbox then res-synch the messages.

Code:

Option Explicit
Sub SendAndReceiveAll()
Dim olNS As NameSpace
Dim olSyncs As SyncObjects
Dim olSync As SyncObject
Dim olItems As Items
Dim olItem As Object
Dim i As Long

    Set olNS = Application.GetNamespace("MAPI")
    Set olSyncs = olNS.SyncObjects
    Set olItems = olNS.GetDefaultFolder(4).Items
    For i = olItems.Count To 1 Step -1
        Set olItem = olItems(i)
        olItem.Send
        DoEvents
    Next i
    For i = 1 To olSyncs.Count
        Set olSync = olSyncs.Item(i)
        olSync.Start
        DoEvents
    Next
lbl_Exit:
    Set olItems = Nothing
    Set olItem = Nothing
    Set olNS = Nothing
    Set olSyncs = Nothing
    Set olSync = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using a rule: How do I include a copy of the original e-mail message when sending an	Emerogork	Outlook	0	04-09-2012 07:11 AM
Editing default message form	lvr123	Outlook	0	01-07-2011 05:33 AM
manually sending a message from outbox	Mr.McRude	Outlook	0	06-17-2010 11:46 AM
Delete message after sending it (Rules and alerts)	mwthrane	Outlook	0	12-16-2009 10:53 AM
Sending 1 message but status bar says 1 of 4...	baldmancan	Outlook	4	03-06-2009 12:04 PM