Good afternoon,

I currently use this code to reply to a selected email, add a CC address, attach the original message and add some predetermined text in the response:

Sub Redirect()


Dim mymail As Outlook.MailItem


Dim myReply As Outlook.MailItem


Dim numItems As Integer


Set mySelected = Outlook.ActiveExplorer.Selection


numItems = mySelected.Count


For i = 1 To numItems


Set mymail = mySelected(1)


Set myReply = mymail.Reply


mytext = myReply.Body


With myReply




mytext = "Hello," & vbCrLf


mytext = mytext & vbCrLf & "I have received your request and forwarded it to Blah Blah, who will handle it from here."








End With




myReply.Body = mytext
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
myReply.Attachments.Add Original
myReply.Recipients.Add "email address"


myReply.Display






Set mymail = Nothing


Set myReply = Nothing


Next


Set mySelected = Nothing


End Sub
My only issues are that the response text is not in HTML format, I lost my signature and the original content is not underneath my signature any more.

Anybody has a solution? I would really appreciate the help!