I ended up replacing my crlfs with "~". Then in my sub I added the following code to replace my string with a RichTextItem with crlfs:


'Notes had a problem recognizing crlf with the body of the message by just inserting them as Chr(13) & Chr(10), so the body of the email is a richtextitem which has a method of addnewline

Dim OriginalMsg as String
Dim Msg as String
Public DomDocument As NotesDocument
DimBodyRTF As NotesRichTextItem

Msg = OriginalMsg
If InStr(1, Msg, "~") > 0 Then
Set BodyRTF = DomDocument.CreateRichTextItem("Body")
Do Until Len(Msg) = 0
MsgLine = Left(Msg, InStr(1, Msg, "~") - 1)

If MsgLine <> "" Then
Call BodyRTF.AppendText(MsgLine)
Call BodyRTF.AddNewLine
Else
Call BodyRTF.AddNewLine
End If

Msg = Right(Msg, Len(Msg) - (InStr(1, Msg, "~")))
Loop
Else
'Creates a body without crlfs
Call DomDocument.ReplaceItemValue("Body", Msg)
End If