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
Select Case intSignOption
Case 1:
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:
End Select
Set uiMemo = ws.EDITDOCUMENT(True, MailDoc)
Call uiMemo.GOTOFIELD("Body")
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