We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub SendAll() 'This macro sends all selected messages from the Drafts Folder, 'for emails generated from the TMA Database Dim olExplorer As Outlook.Explorer, _ olSelection As Outlook.Selection, _ olItem As Outlook.MailItem Dim x As Integer Set olExplorer = Application.ActiveExplorer() Set olSelection = olExplorer.Selection If olSelection.Count > 0 Then For x = olSelection.Count To 0 Step -1 If x <> 0 Then Set olItem = olSelection.Item(x) olItem.Display SendKeys "^~" DoEvents End If Next End If Set olItem = Nothing Set olSelection = Nothing Set olExplorer = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Recover deleted email through Exchange 201o server||8||74|
|How do I format Exchange 2010 automated room response?||3||31|
|Outlook 2016 do not search||4||52|
|outlook 2013, exchange 2007||13||44|