So ich habe nun mit hilfe der doku ein code geschrieben der zwar das tut was er soll aber nicht das was ich wollte :)

Meine intension war das die HTML Datei die auf einem festen Pfad liegt als voreinstellung in den vorgaben optionen eingestellt wird, d.h

Lotus Notes Pfad : Mehr / Vorgaben / Signatur - dort überprüfung ob haken bei "Meine ausgehenden Mailnachrichten automatisch mit Signatur versehen" angehakt und bei "Wählen Sie den Typ der Signatur aus, die Sie verwenden möchten:" auf HTML-oder Bilddatei der haken gesetzt wird, sowie der Pfad zur HTML datei übergeben wird.

hier der bisherige code:

Option Explicit
Function f_strSignatureType(strFile As String) As String
Dim strExt As String
Dim i As Integer
strExt = ""
For i = Len(strFile) To 1 Step -1
If Mid(strFile, i, 1) = "." Then
strExt = UCase(Mid(strFile, i + 1))
Exit For
End If
Next i

Select Case strExt
Case "": f_strSignatureType = ""
Case "JPG": f_strSignatureType = "JPEG Image"
Case "JPEG": f_strSignatureType = "JPEG Image"
Case "BMP": f_strSignatureType = "BMP Image"
Case "GIF": f_strSignatureType = "GIF Image"
Case "HTM": f_strSignatureType = "HTM"
Case "HTML": f_strSignatureType = "HTM"
Case "TXT": f_strSignatureType = "ASCII"
End Select
End Function
Private Sub CommandButton1_Click()
    Dim session As Object
    Dim db As Object
    Dim MailDoc As Object
    Dim ws As Object
    Dim user As String
    Dim server As String
    Dim mailfile As String
    Dim objProfile As Object
    Dim uiMemo As Object
    Dim intSignOption As Integer
    Dim Maildb As Object
    Dim MailDbName As String
    Dim strSignText As String
    Dim strMemoUNID As String
    Dim strbody As String
    Dim rtiSig As Object, rtitem As Object, rtiNew As Object
    
    Set session = CreateObject("Notes.NotesSession")
    Set ws = CreateObject("Notes.NotesUIWorkspace")
    user = session.Username
    server = session.GetEnvironmentString("MailServer", True)
    mailfile = session.GetEnvironmentString("mailfile", True)
    MailDbName = Left$(user, 1) & Right$(user, (Len(user) - InStr(1, user, " "))) & ".nsf"
    
    Set Maildb = session.GETDATABASE(server, user)
    If Maildb.IsOpen = False Then Maildb.OPENMAIL
    Set MailDoc = Maildb.CREATEDOCUMENT()
    
    Set uiMemo = ws.EDITDOCUMENT(True, MailDoc)
    Set objProfile = Maildb.GETPROFILEDOCUMENT("CalendarProfile")
    intSignOption = objProfile.GETITEMVALUE("SignatureOption")(0)
    strSignText = objProfile.GETITEMVALUE("Signature")(0)
    
If intSignOption = 0 Then

MailDoc.body = strbody

Else

'Insert a Signature
Select Case intSignOption

Case 1: 'Plain text Signature
Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
Call rtitem.APPENDTEXT(strbody)
Call rtitem.APPENDTEXT(Chr(10)): Call rtitem.APPENDTEXT(Chr(10))
Call rtitem.APPENDTEXT(strSignText)

Case 2, 3: 'Document or Rich text
End Select
'Open memo in ui
Set uiMemo = ws.EDITDOCUMENT(True, MailDoc)
Call uiMemo.GOTOFIELD("Body")

'Check if the signature is automatically inserted
If objProfile.GETITEMVALUE("EnableSignature")(0) <> 1 Then
If intSignOption = 3 Then
Call uiMemo.Import(f_strSignatureType(strSignText), strSignText)
Else
Call uiMemo.ImportItem(objProfile, "H:\Signatur_Pers\signatur.htm")
End If
End If
End If
End Sub