Need help modifying a VBA script for emails stuck in Outbox

[Legaldeejay]

I found a script online which will allow me to resend emails stuck in the Outbox in Outlook 365. But it requires that I actually go the Outbox folder and select the emails in the Outbox. Is there any way to modify this macro so that when I run it, it will automatically select all emails in the Outbox and apply it? Thanks. This is the VBA script:

Sub BatchResendEmails()
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) Then
On Error Resume Next
For Each objMail In objSelection
objMail.Display
Set objInspector = myItem.GetInspector

'Resend message
objInspector.CommandBars.ExecuteMso ("ResendThisMessage")

Set objResendMail = Application.ActiveInspector.CurrentItem

'You can change the email details as per your needs
With objResendMail
.Subject = objMail.Subject
.Send
End With

objMail.Close olDiscard
Next
End If
End Sub

 

[Legaldeejay]

I found a script online which will allow me to resend emails stuck in the Outbox in Outlook 365. But it requires that I actually go the Outbox folder and select the emails in the Outbox. Is there any way to modify this macro so that when I run it, it will automatically select all emails in the Outbox and apply it? Thanks. This is the VBA script:

Sub BatchResendEmails()
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) Then
On Error Resume Next
For Each objMail In objSelection
objMail.Display
Set objInspector = myItem.GetInspector

'Resend message
objInspector.CommandBars.ExecuteMso ("ResendThisMessage")

Set objResendMail = Application.ActiveInspector.CurrentItem

'You can change the email details as per your needs
With objResendMail
.Subject = objMail.Subject
.Send
End With

objMail.Close olDiscard
Next
End If
End Sub

I meant to add that I have 2 accounts, including a Microsoft Exchange account. Is there any way to modify this macro so that when I send any email in the Microsoft Exchange account, all emails are automatically selected in the Outbox which may be stuck and the below macro is run in the Outbox?

 

[Diane Poremsky]

Set objResendMail = Application.ActiveInspector.CurrentItem

You need to change that line.

Set objResendMail = Session.GetDefaultFolder(olFolderOutbox)

 

[Diane Poremsky]

Oh wait, you need the current item not the current folder - you will need to get the items - loop all messages in the folder.

Set objResendMail = Session.GetDefaultFolder(olFolderOutbox)

This shows how to get other folders-

Working with VBA and non-default Outlook Folders

How to use VBA to 'do something' in Outlook's non-default folders.

www.slipstick.com

This have two macros - one works on all items in the folder. This is what you need to use, changing it from current folder to the outbox.

Working with All Items in a Folder or Selected Items

These samples contains the basic code for working with all items in a selected folder or selected items in a folder.

www.slipstick.com

I meant to add that I have 2 accounts, including a Microsoft Exchange account. Is there any way to modify this macro so that when I send any email in the Microsoft Exchange account, all emails are automatically selected in the Outbox which may be stuck and the below macro is run in the Outbox?

Are the messages stuck because they are turning into drafts?

 

[Legaldeejay]

They are getting stuck because I am using an Add-In for work which is not working correctly and causing the messages to be stuck in the Outbox. I got it to work using this code as suggested by somebody else in another forum, but now I am trying to figure out how to run this script automatically whenever I click Send to send an email. Any suggestions?

Sub BatchResendEmails()
Dim objFolder As Outlook.MAPIFolder
Dim objMail As Outlook.MailItem
Dim objInspector As Outlook.Inspector
Dim objResendMail As Outlook.MailItem

Set objFolder = Application.Session.GetDefaultFolder(olFolderOutbox)

On Error Resume Next
For Each objMail In objFolder.Items
objMail.Display
Set objInspector = myItem.GetInspector

'Resend message
objInspector.CommandBars.ExecuteMso ("ResendThisMessage")

Set objResendMail = Application.ActiveInspector.CurrentItem

'You can change the email details as per your needs
With objResendMail
.Subject = objMail.Subject
.Send
End With

objMail.Close olDiscard
Next
End Sub

 

[Legaldeejay]

Alternatively, I would like to schedule the script to run periodically (i.e. every 5 minutes) using Windows Task Scheduler or running a batch file. I appreciate your assistance.

 

[Diane Poremsky]

PowerShell would work better for running in task scheduler.... but you can run macros when a reminder fires as outlook doesn't have a timer function.

Do you want to check all messages in the folder when you send a message or just the one you just sent?

Itemsend macros use a title like this:
Sub Application_ItemSend(objMail As Outlook.MailItem)

and applies to the message just sent.
This article has some examples- you would need to replace the code with your macro, tweaking it as needed.


Running every 5 with a reminder might be the best - it will work with either task or appointment reminders

Running Outlook Macros on a Schedule

Outlook VBA doesn't have a timer function but you can use Appointment or Task Reminders to trigger macros. If you want the macro to fire a specified time after you restart Outlook, use an Application_Startup macro to create the appointment.

www.slipstick.com