Outlook 365

[Tricky]

SendTo Macro.

For years I've had a SendTo macro attached to the Quick Access Tool Bar. has worked perfectly until the latest 365 Update. Now, the buttons no longer function and the macros have been deleted!! I've looked through old code, etc. and I simply do not have the macros saved anywhere (that I can find).

Function: I routinely fwd emails to one of two people, so I had two buttons on the toolbar... I could select an email, click the button, and off it went to the Outbox and Sent Items folder. It saved a ton of steps in a day where I handle 120 - 150 emails.

I don't believe the code I was using would allow me to select more than one message at a time, but that would be a neat trick!! Certainly not worth a ton of code. I think it was clean and simple (but still over my head). Within the code, there was an email address and I was able to change the email address to suit me, give it a name, and attach it to a macro button on the toolbar.

If someone could help with this, I'd be grateful.

 

[footoo]

Try this :

Sub Forward_Selected_Emails()
Dim sel As Selection, em As MailItem, i%
Set sel = Application.ActiveExplorer.Selection
For i = sel.Count To 1 Step -1
    Set em = sel(i).Forward
    em.Recipients.Add "EmailAddress"
    em.Send
Next
End Sub

 

[Tricky]

Thank you very, very much.