Hallo,
das könnte über Standard-Bordmittel schwierig werden, da die entsprechende Eigenschaft notesDatabase.DesignTemplateName read-only ist.
Mal ein anderer Gedankenansatz:
Du könntest auslesen ob das Profil eine Signatur enthält und wenn nicht, wird diese dort eingefügt. Also im Prinzip so, als ob es der User selbst gemacht hätte:
Dim session As NotesSession
Dim db As NotesDatabase
Dim docCalenderProfile As NotesDocument
Dim itemSignature As NotesItem
Set session = New NotesSession
Set db = session.CurrentDatabase
Set docCalendarProfile = db.GetProfileDocument("CalendarProfile")
Set itemSignature = docCalendarProfile.GetfirstItem("Signature_1")
If itemSignature.text = "" Then
docCalendarProfile.EnableSignature = "1"
docCalendarProfile.SignatureOption = "1"
docCalendarProfile.Signature_1 = "--->Hier die neue Signatur<---"
Call docCalendarProfile.Save(False, False)
End IfMeinen schlampigen Programmierstil bitte ich zu entschuldigen
Grüße
Willi
Dieser Beitrag scheint mir im Entwicklungsforum besser aufgehoben zu sein. Kann das mal jemand verschieben?