Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!
Sub ForwardSelected() Dim intIndex As Integer, _ olkMsg As Outlook.MailItem, _ olkForward As Outlook.MailItem For intIndex = Application.ActiveExplorer.Selection.Count To 1 Step -1 Set olkMsg = Application.ActiveExplorer.Selection.Item(intIndex) Set olkForward = olkMsg.Forward With olkForward 'Change the email address on the following line .Recipients.Add "John@gov.org" .Recipients.ResolveAll Set .SaveSentMessageFolder = Session.GetDefaultFolder(olFolderDeletedItems) .Send End With 'olkMsg.Delete Next End Sub