BlueDevilFan script need a change to send reply all which are selected.
I want the body of the mail as this
Hi (Sender name just the first name) if the sender name is "Sharath fty" i should get just "Sharath"
Can these above be added to the script.
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
olkReply.Body = REPLY_TEXT & vbCrLf & vbCrLf & olkReply.Body
Set olkMsg = Nothing
Set olkReply = Nothing
MsgBox "All done!", vbInformation + vbOKOnly, "Reply to All Selected"