z. Bs:
.......
Dim mailprofil As NotesDocument
.......
Set mailprofil = maildb.GetProfileDocument("CalendarProfile")
Call mailprofil.ReplaceItemValue("EnableSignature", "1")
Call mailprofil.ReplaceItemValue("SignatureOption", "2")
Call mailprofil.ReplaceItemValue("Signature_2", HTML_PATH)
Call mailprofil.ComputeWithForm(True, False)
Call mailprofil.Save(True, False)
....