...
Set ws = CreateObject("Notes.NotesUIWorkspace") ' **durch das öffnen des Dokumentes durch NotesUIWorkspace**
Call ws.EDITDOCUMENT(True, doc) ' **erreicht man das die eingestellte Signatur aus den **
Set doc = ws.CURRENTDOCUMENT
....
Hallo Axel,
ich würde das ganze ja auch gerne im Backend machen.
Leider enthält der Mailtext auch einen Link. Bisher habe ich es im Backend nicht geschafft, dass LN mir einen Link daraus macht. Wenn die Mail beim Empfänger ankommt, wird zwar der Link als Text angezeigt, aber wenn man darauf klickt passiert nichts.
Ich hoffe ich habe es verständlich beschrieben.
Ich habe es auch mit dem Code probiert, die mail kommt zwar an, aber nur als Text nicht als htmlCodeFunction sendemail() Dim Maildb As Object Dim MailDoc As Object Dim body As Object Dim session As Object Dim richStyle As Object Dim richtext As Object Dim sendto As Variant Dim username As String Dim maildbname As String 'Start a session to notes Set session = CreateObject("Notes.Notessession") 'Call Session.Initialize username = session.username maildbname = Left$(username, 1) & Right$(usermane, (Len(username) - InStr(1, username, ""))) & ".nsf" ''Open the mail database in notes Set Maildb = session.GETDATABASE("", maildbname) ''Open the mail database in notes If Maildb.IsOpen = True Then Else Call Maildb.OPENMAIL End If ''Create the mail document Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.sendto = "xy@atnotes.de" MailDoc.Subject = "Test lotus Notes" MailDoc.Form = "Memo" MailDoc.CONTENTTYPE = "text/html; charset=iso-8859-1" MailDoc.preference = no 'Session.CONVERTMIME = False Set richStyle = session.CreateRichTextStyle 'Create and set the Body content Set body = MailDoc.CREATERICHTEXTITEM("Body") richStyle.PASSTHRUHTML = True Call body.APPENDSTYLE(richStyle) Call body.AppendText("<B>Hello</B>") 'Call body.richStyle.AppendText("<B>Hello</B>") Call body.AppendText("<a href=http://www.atnotes.de>atnotes</a>") Call body.ADDNEWLINE(2) Call body.AppendText("Hello HTML") MailDoc.SAVEMESSAGEONSEND = True Call MailDoc.REPLACEITEMVALUE("PostedDate", Now()) Call MailDoc.SEND(False) Call MailDoc.Save(True, False) 'Session.CONVERTMIME = True Set Maildb = Nothing Set MailDoc = Nothing Set body = Nothing Set session = Nothing End Function