Lotus Notes Signatur auslesen?

ThR

Hallo,

ich probiere automatisiert eine Email über Lotus Notes zu versenden. Das funktioniert soweit auch. Das einzigste was ich nicht hin bekomme ist die Signatur vorher auszulesen und an die Nachricht zu hängen. Das Logo funktioniert komischerweise.

Den Code habe ich von VBA übersetzt. Da funktioniert es mit der Signatur.

Danke für eure Hilfe.

Gruß Thomas

AutoIt

#include <date.au3>
#include <file.au3>
Global $recipient, $Subject, $bodytext, $attachment, $saveit = "True", $Signature = ""
$recipient = "123@123.de"
$Subject = "123"
$bodytext = "123"
SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
Func SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
	$Session = ObjCreate("Notes.NotesSession")
	$UserName = $Session.UserName
	$MailDbName = StringLeft($UserName, 1) & StringRight($UserName, (StringLen($UserName) - StringInStr(1, $UserName, " "))) & ".nsf"
	$Maildb = $Session.GETDATABASE("", $MailDbName)
	If $Maildb.IsOpen = 1 Then
	Else
		$Maildb.OPENMAIL()
	EndIf
	$MailDoc = $Maildb.CREATEDOCUMENT
	$MailDoc.Form = "Memo"
	$MailSignature = $Maildb.GetProfileDocument("CalendarProfile")
	;MsgBox("","",$MailSignature.GetItemValue("Signature"))
	$MailDoc.Logo = $MailSignature.GetItemValue("DefaultLogo")
	$MailDoc.sendto = $recipient
	$MailDoc.Subject = $Subject
	$MailDoc.SAVEMESSAGEONSEND = $saveit
	$Body = $MailDoc.CREATERICHTEXTITEM("Body")
	$Body.AppendText($bodytext)
	If $attachment <> "" Then
		If FileExists(@ScriptDir & "" & $attachment) Then
			$filename = $attachment
			$fullpath = @ScriptDir & "" & $attachment
		ElseIf FileExists($attachment) Then
			$pos = StringInStr($attachment, "", 0, -1)
			$filename = StringTrimLeft($attachment, $pos)
			$fullpath = $attachment
		Else
			MsgBox(0, "LoNo Error", "attachment not found")
			Exit
		EndIf
		$EmbedObj = $Body.EMBEDOBJECT(1454, "", $fullpath, $filename)
	EndIf
	$Body.AppendText($Signature)
	$MailDoc.PostedDate = _Now()
	$MailDoc.SEND(0, $recipient)
	$Maildb = "NULL"
	$MailDoc = "NULL"
	$AttachME = "NULL"
	$Session = "NULL"
	$EmbedObj = "NULL"
EndFunc

Alles anzeigen

Bash

Public Function NotesMailSend(aRec As Variant, Optional cc As Variant, _
                              Optional bcc As Variant, _
                              Optional strBetreff As Variant, _
                              Optional strText As Variant, _
                              Optional strMsg As Variant, _
                              Optional strAtt As String)
    Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object, objNotesMailProfileDoc As Object
    Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem, rtitem1
    'MsgBox aRec 'Empfänger anzeigen
    ' Zuweisung der Objektvariablen
    Set objNotes = GetObject("", "Notes.Notessession")
    Set objNotesDB = objNotes.GETDATABASE("", "")
    ' Öffnen der Standard-Maildatenbank / Erstellen neues Maildokument
    Call objNotesDB.OPENMAIL
    Set objNotesMailDoc = objNotesDB.CREATEDOCUMENT
    objNotesMailDoc.Form = "Memo"
    'Signatur Notes holen
    Dim StrSignature As String
    StrSignature = Chr(10) & Chr(10) '& Chr(10) & Chr(10) & objNotesDB.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
    'Profildokument holen und im Speicher halten
    Set objNotesMailProfileDoc = objNotesDB.GetProfileDocument("CalendarProfile")
    StrSignature = StrSignature & objNotesMailProfileDoc.GetItemValue("Signature")(0)
    objNotesMailDoc.Logo = objNotesMailProfileDoc.GetItemValue("DefaultLogo")(0)


    'Call objNotesMailDoc.Save(False, False)
    Set SendItem = objNotesMailDoc.APPENDITEMVALUE("SendTo", "")
    Set NCopyItem = objNotesMailDoc.APPENDITEMVALUE("CopyTo", "")
    Set BlindCopyToItem = objNotesMailDoc.APPENDITEMVALUE("BlindCopyTo", "")
    objNotesMailDoc.SendTo = Split(aRec, ";") 'aRec
    objNotesMailDoc.CopyTo = Split(cc, ";")
    objNotesMailDoc.BlindCopyTo = Split(bcc, ";")
    objNotesMailDoc.Subject = strBetreff
    Set rtitem = objNotesMailDoc.CreateRichTextItem("Body")
    With rtitem
      .AppendText (strText)
        If strAtt <> "" Then
            Call rtitem.EmbedObject(1454, "", strAtt)
         End If
         .AppendText (StrSignature)
      .AddNewLine (1)


    End With
    'objNotesMailDoc.BodY = strText & StrSignature
    rtitem.AddNewLine (1)


    ' Mail zustellen
    objNotesMailDoc.PostedDate = Now
    Call objNotesMailDoc.Save(False, False)
    Call objNotesMailDoc.SEND(False)
    objNotesMailDoc.RemoveItem ("DeliveredDate")
    '1. true steht für nicht speichern in Entwürfen
    Call objNotesMailDoc.Save(True, False)
    ' Nachricht an Benutzer
    MsgBox strMsg, vbInformation, "Notesmail versenden..."
    ' Objektvariablen zurücksetzen
    Call objNotes.Close
    Set objNotesDB = Nothing
    Set objNotesMailDoc = Nothing
    Set objNotes = Nothing
End Function

Alles anzeigen

RKuehle

AutoIt

#cs
	Routine zum Schreiben / Senden von Mails mit Methoden von Lotus Notes
	Test auf Windows 7 / 64, AutoIT 3.3.14, Lotus Notes 8.5
	Variablen:
	$recipient	-	Empfänger	-	String
	$subject	-	Betreff		-	String
	$bodytext	-	Mailtext	-	String
	$attachment	-	Mailanhang	-	String
	$saveit		-	Speichern?	-	Boolean
	$enabled,$senabeld = 0,1 -> Signatur: nicht aktiviert, aktiviert
	$option,$soption = 1,2,3 -> Signaturtyp: Text, HTML/Image, Richtext
	!!!Felder gelten erst ab Version 8!!!
#ce
#include <date.au3>
Func SendNotesMail($recipient, $Subject, $bodytext, $attachment, $saveit)
	$Session = ObjCreate("Notes.NotesSession") ; Session in LoNo starten. Wenn LoNo nicht läuft wird es gestartet und Kennwort abgefragt
	$UserName = $Session.UserName ;	LoNo Username aus Session holen
	$Maildb = $Session.GETDATABASE("", "") ; LoNo Datenbankobjekt erstellen
	$Maildb.OPENMAIL() ; Mail-DB des Nutzers auf Datenbankobjekt legen (wird aus der aktuellen LoNo-Arbeitsumgebung geholt)
	$ProfileDoc = $Maildb.GetProfileDocument("CalendarProfile")
	$enabled = $ProfileDoc.GetFirstItem("EnableSignature") ; fragt das Profile ab ob Signaturen überhaupt aktiviert sind
	$senabled = $enabled.Abstract(80, False, False)
	If $senabled = 1 Then
		$option = $ProfileDoc.GetFirstItem("SignatureOption") ; Fragt das Profile ab welche Signaturart gesetzt ist
		$soption = $option.Abstract(80, False, False)
	EndIf
	$MailDoc = $Maildb.CREATEDOCUMENT ;	Neues Backend-Dokument in Mail-DB erstellen
	$MailDoc.Form = "Memo" ; Dokumenttyp auf "Memo" - Mail setzen
	$MailDoc.From = $UserName ;	Absender setzen
	$MailDoc.sendto = $recipient ; Empfänger setzen
	$MailDoc.Subject = $Subject ; Betreff setzen
	$MailDoc.SAVEMESSAGEONSEND = $saveit ; Dokument speichern? (im Ordner "Gesendet" der Mail-DB ablegen?)
	$MailDoc.PostedDate = _Now() ; Zeitangabe wann das Dokument gesendet wurde
	$body = $MailDoc.createRichTextItem("Body") ; Mailbody als Richtextfeld erstellen
	With $body
		.appendText($bodytext) ; Mailtext in Richtextfeld einfügen
		.addNewLine(2) ; 2 mal CRLF zum Mailtext hinzufügen
	EndWith
	If $attachment <> "" Then
		$EmbedObj = $body.EMBEDOBJECT(1454, "", $attachment, "Attachment") ; Den Mailanhang dem Richtextfeld hinzufügen
	EndIf
	If $senabled = "1" Then
		$Signature = $ProfileDoc.GetFirstItem("Signature") ; liest das Signaturfeld aus
		$sSignature = $Signature.Abstract(100, False, False) ; 100 - max. Länge der Signatur
		Switch $soption


			Case "1" ; Nurtext-Signatur
				With $body
					.appendtext($sSignature)
				EndWith
			Case "2" ; Signatur aus HTML / Image
				MsgBox("", "", "Signatur aus HTML / Image bei Backenddokumenten" & @CRLF & "Nur über API möglich!")
			Case "3" ; Richtext-Signatur
				With $body
					.appendrtitem($ProfileDoc.GetfirstItem("Signature_Rich"))
				EndWith
		EndSwitch
	EndIf
	$MailDoc.SEND(0, $recipient) ; Maildokument an Empfänger senden
	$EmbedObj = "NULL" ; Objekte der LoNo - Klassen wieder "zu machen"
	$MailDoc = "NULL"
	$Maildb = "NULL"
	$Session = "NULL"
EndFunc   ;==>SendNotesMail

Alles anzeigen

Hallo Thomas,
ich habe mich mal ein wenig umgesehen und ein Script geschrieben welches zumindest Nurtext- und Richtext-Signaturen in die Mail einfügt.
Das Einfügen von Signaturen aus externen Dateien geht bei Backenddokumenten in Lotus Notes ohne API-Aufrufe nicht.
Bei Frontenddokumenten wäre es kein Problem, da dort die import-Methode genutzt werden kann.
Vielleicht hilft es ja weiter.
Grüße Ricardo

ThR

Danke Dir. Funktioniert.

Allerdings musste ich auch Rich Text umstellen. Beim einfachen Text habe ich einen leeren String zurück bekommen obwohl er erkannt hat das die Signatur enabled und der Typ Text ist.

Aber hab vielen Dank. Da kann endlich das VBA-Script weg.

Gruß Thomas