Hi !
I´ve a button in the email document to put in the signature out of the calendarprofle document.
It works, but I only get the text without the formatting (color, font …).
I had to take the field as a RichtextField , but I don´t know, how to do it, because my ls knowledge is not so good.
Here´s the code, maybe somebody has an idea !
Thanks.
Sub Click(Source As Button)
Dim s As New notessession
Dim profiledoc As NotesDocument
Dim db As notesdatabase
Dim signature As String
Dim uidoc As NotesUIDocument
Dim workspace As New NotesUIWorkspace
’ Get signature from profiledocument
Set db = s.currentdatabase
Set profileDoc = db.GetProfileDocument(“CalendarProfile”)
signature = profileDoc.Signature_1
’ Put into email
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( “Body” )
Call uidoc.FieldAppendText ( “Body”, signature )
End Sub
