When emails stuck on outbox;
Copy/ Move them to another folder;
Use the macro to send the remaining emails ;
In the first place, press “Alt + F11” key buttons in the main Outlook window.
After getting into the “Microsoft Visual Basic for Applications” window, open a blank module.
Subsequently, copy the following VBA code into such a module. ( MACRO CODE.TXT)
After that, you can exit the current window.
Later add this macro to Quick Access Toolbar.
Finally, you can take a shot.
Firstly, select the source emails.
Then press the macro button in Quick Access Toolbar.
Immediately, all the emails will be resent to its original recipients as usual.
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objInspector As Outlook.Inspector
Dim objResendMail As Outlook.MailItem
Set objSelection = Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing)
On Error Resume Next
For Each objMail In objSelection
Set objInspector = my
Set objResendMail = Application.ActiveInspector.CurrentItem
'You can change the email details as per y
.Subject = "Resent: " & objMail.Subject