Synthetic Transaction Monitoring that you need for the day to day, which ensures your business website keeps running optimally, and that there is no downtime to impact your customer experience.
Sub ReplyToAllSelected() Const REPLY_TEXT = "Thanks the data has been updated." Dim olkMsg As Object, _ olkReply As Object For Each olkMsg In Application.ActiveExplorer.Selection Set olkReply = olkMsg.Reply If olkReply.BodyFormat = olFormatHTML Then olkReply.HTMLBody = REPLY_TEXT & "<br><br>" & olkReply.HTMLBody Else olkReply.Body = REPLY_TEXT & vbCrLf & vbCrLf & olkReply.Body End If olkReply.Send Next Set olkMsg = Nothing Set olkReply = Nothing MsgBox "All done!", vbInformation + vbOKOnly, "Reply to All Selected" 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.