Hi all,
I have a request doc that some users forward then throw the Notes create mail-> replay functionality.
that causes the form to be embed in the mail but a lot of errors pop up because of local variables.
My solution was to add a button that forwards the mail as a doc link.
i create a simple code that does just that, but i noticed that no matter what i try to do my text goes after my automatic mail signature.
How can i add the doc link and the text before the signature
Here is my code
Sub ForwardRequest(doc As NotesDocument)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim maildoc As NotesDocument
Dim maildb as New NotesDatabase("","")
Dim body As NotesRichTextItem
Call maildb.OpenMail
Set maildoc = maildb.Createdocument()
maildoc.Form = "Memo"
Set body = maildoc.Createrichtextitem("Body")
Call body.Addnewline(2)
Call body.Appendtext("Link to Request: ")
Call body.Appenddoclink(doc, "Link to request")
Call body.Update()
Set uidoc = ws.Editdocument(True, maildoc, , , , True)
End Sub