Hallo,
ich versuche gerade über Visual Basic per NotesSkript eine Mail zu erstellen, Anhang einfügen und versenden. Alles soweit kein Problem, nur ich muß diese Mail verschlüsselt und unterzeichnet versenden - dies bereitet mir ganz schön Kopfzerbrechen
Habe es schon mit:
call notesdoc.Encrypt
notesdoc.Encrypt = "1"
versucht, aber irgendwie erscheint bei der verschickten Mail immer Encrypt = "", das gleich mit Sign.
Was mache ich falsch? Danke schonmal im voraus für eure Hilfe!!!
Dim NotesDB As Object
Dim NotesText As Object
Dim NotesDoc As Object
Dim Notesstyle As Object
Dim session As Object
Set session = CreateObject("Notes.Notessession")
Set NotesDB = session.GETDATABASE("", "names.nsf")
Set NotesDoc = NotesDB.CREATEDOCUMENT
Set NotesText = NotesDoc.CREATERICHTEXTITEM("Body")
Set Notesstyle = session.CREATERICHTEXTSTYLE
NotesDoc.Form = "Memo"
NotesDoc.Subject = "Betreff"
NotesText.APPENDTEXT "Hier steht der Text"
Call NotesDoc.SEND(False, "Mailadresse")
Set NotesDB = Nothing
Set NotesDoc = Nothing
Set NOTESITEM = Nothing