Reply To: How to clone a received message

[Immi]

Hi!

Thanks for you hints! So far I have managed to create a new message with the listet source code.
However I cann talter the contents of the original message. Here is my code:

‘ Create a draft message and set the subject and body text
Set oDraftMsg = oFolder.Messages.Add(fgwDraft)
oDraftMsg.subject.plaintext = oMsg.subject.plaintext
oDraftMsg.BodyText.PlainText = oMsg.BodyText.PlainText & vbCrLf & “Attached files saved to:” & vbCrLf & AttachFileName
oDraftMsg.BodyText.RTF = oMsg.BodyText.RTF & vbCrLf & “Attached files saved to:” & vbCrLf & AttachFileName

‘ Setup the recipients
for x = 1 to oMsg.Recipients.count
set oRecipient = oMsg.Recipients.item(x)
call oDraftMsg.Recipients.Add(oRecipient.EmailAddress,,oRecipient.TargetType)
set oRecipient = nothing
next

set oNewMsg = oFolder.Messages.AddExistingMessage(oMsg.Sender.DisplayName, oMsg.Sender.EmailAddress, oMsg.Sender.EmailType, oMsg.CreationDate, oMsg.BoxType, 1, oMsg.Priority, 0, oDraftMsg, oMsg.ModifiedDate)

What ever I try the message text remains unchanged. Secondly the resulting message is only plain text (no more HTML).

What am I doing wrong?

Stephan