Set objResendMail = Application.ActiveInspector.
Is there any way to modify this macro so that when I send an email in the Microsoft Exchange account, all emails which may be stuck in the Outbox, are automatically selected and the below macro is run? Sub BatchResendEmails() Each of those emails seem also not to appear in the Draft folder in OWA while still editing, although they are visible and editable in Outlook. There is no copy of the same message on Office 365 OWA in the same folder. I have two accounts, including a Microsoft Exchange account. Emails stuck in Outlooks Outbox are only visible in Outlook. I found a script online to resend emails stuck in the Outbox in Outlook 365.
