Hallo Walter,
vergesse mein voriges Post, das habe ich gerade selber gelöst.
Für die Auswahl der Signatur ist ja die Teilmaske (SignatureOption) zuständig.
Hier gibt es eine Optionsschaltfläche namens "SignatureOption".
Unter Postrecalc steht folgendes:
Sub Postrecalc(Source As Notesuidocument)
Dim xxWINDOW_TITLE As String
Dim uiws As New notesuiworkspace
Dim noteBEDoc As notesdocument
Dim vSignatureLocation As Variant
xxWINDOW_TITLE = "Signatur einfügen"
Set noteBEDoc = uiws.currentdocument.Document
If (noteBEDoc.SignatureOption(0) = "2")_
And (noteBEDoc.GetItemValue("Signature")(0) = "") Then
vSignatureLocation = uiws.openfiledialog(False,xxWINDOW_TITLE,"Textdateien|*.txt|HTML-Dateien|*.htm*|JPEG-Bilder|*.jpg|Bitmap-Bilder|*.bmp|GIF-Bilder|*.gif||","","")
If Isempty(vSignatureLocation) Then
Redim vSignatureLocation(0)
End If
Call noteBEDoc.ReplaceItemValue("Signature",Cstr(vSignatureLocation(0)))
End If
End Sub
Nach Ändern der Zeile
uiws.openfiledialog(False,xxWINDOW_TITLE,"Textdateien|*.txt|HTML-Dateien|*.htm*|JPEG-Bilder|*.jpg|Bitmap-Bilder|*.bmp|GIF-Bilder|*.gif||","","")
in folgende:
vSignatureLocation = uiws.openfiledialog(False,xxWINDOW_TITLE,"HTML-Dateien|*.htm*|Textdateien|*.txt|JPEG-Bilder|*.jpg|Bitmap-Bilder|*.bmp|GIF-Bilder|*.gif||","","")
klappts auch mit der html-Datei ohne zusätzlichen Klick.
Die Reihenfolge der Einträge bestimmt also die Default-Auswahl.
Viele Grüße
Thomas