Reminder message

Hi,

With this vba code I am sending reminder message to all recipient of a already saved sent message form my sent message box. But only problem is that whenever I am executing this code my original message is getting converted into a plain text message.


Can somebody help me to identify where I am going wrong “so that original message remain as in HTML message format only”


Thanks in advance.


For code goes as follows :




Sub Reminder_All()


Dim rpl As Outlook.MailItem
Dim itm As Object
Set itm = GetCurrentItem()


If Not itm Is Nothing Then
Set rpl = itm.ReplyAll
rpl.Subject = rpl.Subject

CopyAttachments itm, rpl


rpl.BodyFormat = olFormatHTML
rpl.Body = "PLEASE RESPOND URGENTLY " & rpl.Body '& vbCrLf & vbCrLf


rpl.Display

End If
Set rpl = Nothing
Set itm = Nothing
End Sub

Look at HTMLBody instead of Body.