Hallo Alex,
Danke für die Antwort.
Zitat
Also wo ist dein Problem bei dieser Team Mailbox?
Mein eigentliches Problem ist, dass ich mit dem LS bis jetzt nicht viel zu tun hatte und daher mit dem LS Code in dieser Team Mailbox nicht schnell genug weiterkomme...
Die LS-Kenntnisse will ich mir schon aneignen, die Frage ist aber, wann ich dazu die Zeit finde...
Ich möchte z.Z. bloß die Möglichkeit finden, in meinen folgenden LS Code etwas einbauen, was die Spurren des Absenders verwischen würde, was die Team Mailbox (unter anderem) wirklich sehr gut macht...
Gruß
Leo
-----------------------
Dim ws As New notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim UIDoc As notesuidocument 'Aktuelles Dokument im Frontend
Dim doc As notesdocument 'Aktuelles Dokument im Backend
Dim Subject As String
Set UIdoc=ws.CurrentDocument
Set doc=uidoc.Document
Set db= session.CurrentDatabase
Set Message=New NotesDocument(db) 'Mail erstellen
Set rtitem = New NotesRichTextItem( Message, "Body" )
Message.Form="Memo"
Message.Principal= ich@bin.es
Message.body=""
Set rtitem = New NotesRichTextItem( Message, "Body" )
Message.SendTo= test@test.com
Message.Subject = "Hallo"
Call rtitem.AppendText( "wie geht's?")
Call rtitem.AppendDocLink( doc, "" )
Call Message.Send( False )