LotusScriptエージェントからメモが作成されて送信され、リッチテキストがプレーンに変換されてドキュメントリンクが削除されるのはなぜですか？

管理されている学区からのユーザー管理リクエストを受け入れるようにドキュメントライブラリが設定されています。最近、リクエストの入力に使用するフォームにいくつかの更新を加え、新しいリクエストを管理者に通知するために使用するエージェントにいくつかの小さな変更を加えました。これらの変更により、以前はドキュメントリンクが埋め込まれたリッチテキストで受信されていた通知メールが、プレーンテキストとして受信されるようになりました。フォームとエージェントの両方を以前のバージョンに戻しましたが、電子メールメッセージはプレーンテキストのままです。エージェントのコードは次のとおりです。

Option Public
Use "Variables"
Dim db As NotesDatabase
Sub Initialize
    On Error Goto gotError
    Set s = New NotesSession
    Dim doc As NotesDocument
    Dim kbaseDb As NotesDatabase
    Dim kdoc As NotesDocument
    Set db = s.CurrentDatabase
    Set doc = s.DocumentContext 

    Dim fromName As NotesName
    Dim commName As String
    Set fromName = s.CreateName(doc.from(0))
    commName = fromName.Common

    Dim memo As New NotesDocument(db)
    Dim body As NotesRichTextItem

    memo.Form = "Memo"
    memo.SendTo = techEmail
    memo.Subject = doc.categories(0) + " admin request from " + districtName

    If doc.priorityflag(0) = "Priority"  Then
        memo.Subject = doc.Categories(0) + " PRIORITY admin request from " + districtName
        memo.DeliveryPriority = "H"
    End If

    Set body = memo.Createrichtextitem("Body")
    Call body.AppendText("Please process this " + doc.action(0) + " request from " + commName + ".")
    Call body.AddNewLine(2)
    Call body.AppendText("Comment: " + doc.comment(0))
    Call body.AddNewLine(1)
    Call body.AddNewLine(1)
    Call body.AddNewLine(1)
    Call body.AppendText("Link to request  ")
    Call body.AppendDocLink( doc, "Link to request  ")

    Call memo.send(False)

    Call doc.ReplaceItemValue("OwnerNotified", doc.Owner)
    Call doc.Save(True, False)  


    Exit Sub
gotError:
    Print "<b><FONT color=red>System Error (" + Str(Err) + "): " + Error
    Exit Sub
End Sub