I've written some VB code to forward an email message to certain individuals. I'm using the Outlook Redemption toolset to do this task. I'm having an issue with the Body of the email. I want to add my own text with carriage returns and then include the sender's body below. The vbcrlf command does not seem to be working. All the body text is one big wrapped string in the Body of the email.
I've tried using the RDOMail's Body property and the RTFBody property with different BodyFormats and without BodyFormat defined. I've had no luck. I'm still getting one long wrapped string in the body.
Has anyone run into this issue? If so, what did you do to resolve the issue?
Public Sub SendEmail(RDORcvdMail As Redemption.RDOMail, MailRecipient As String)
Dim lrdoNotifyMail As Redemption.RDOMail
Dim lstrBody As String
On Error GoTo ErrorHandler
Set lrdoNotifyMail = RDORcvdMail.Forward
lrdoNotifyMail.To = MailRecipient
lrdoNotifyMail.Subject = RDORcvdMail.Subject
lstrBody = "Testing line 1" & vbCrLf & "Testing line 2" & vbCrLf & "Testing line 3" & vbCrLf & RDORcvdMail.Body
lrdoNotifyMail.RTFBody = lstrBody
If Not (lrdoNotifyMail Is Nothing) Then
Set lrdoNotifyMail = Nothing