Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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.
Join the community of 500,000 technology professionals and ask your questions.