1. This script creates a new mail memo. In the Body item of the memo, the script places a doclink to the current database.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set newDoc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( newDoc, "Body" )
Call rtitem.AppendDocLink( db, db.Title )
newDoc.Subject = "Here is a link to the database"
newDoc.SendTo = "Lauri Nodwell"
newDoc.Send( False )Aus der HilfeCode1. This script creates a new mail memo. In the Body item of the memo, the script places a doclink to the current database. Dim session As New NotesSession Dim db As NotesDatabase Dim newDoc As NotesDocument Dim rtitem As NotesRichTextItem Set db = session.CurrentDatabase Set newDoc = New NotesDocument( db ) Set rtitem = New NotesRichTextItem( newDoc, "Body" ) Call rtitem.AppendDocLink( db, db.Title ) newDoc.Subject = "Here is a link to the database" newDoc.SendTo = "Lauri Nodwell" newDoc.Send( False )
Ich denke das zeitgesteuerte Versenden sollte kein Problem darstellen.
Chris
Danke für die Rückmeldung. Da ich in LotusScript leider keine Erfahrung habe, noch folgende Fragen.Gerade für Einsteiger hilft die Noteshilfe einiges. Wenn Du dann mit Deinem Programm nicht weiter kommst, poste es hier mit genauer Fehlerbeschreibung
In einem Konfigurationsdokument in der Datenbank stehen in mehreren Feldern die Empfänger.Kommt drauf an, was das für ein Konfigdokument ist. Falls Profiledokument über die entsprechenden Funktion aus der Notesdatabase-Class. Ansonsten über eine Ansicht (Stichwort Notesview)
Wie baue ich das in den "SendTo"-Bereich ein?Ändere die Stelle ab
Konfigdoc ist Dein Object, das auf das Konfigurationsdokument verweist und xxxx der Feldname, in dem die Empfänger stehenCodenewDoc.SendTo = konfigdoc.xxxx
Wie kann ich in der Nachricht noch einen Text zusätzlich zu dem Link zur Datenbank erfassen?Such mal in der Noteshilfe nach der NotesRichTextItem-Class. Ziel ist das Body-Feld, das ist das normale Feld, in das Du Deine Mails schreibst. Da kannst Du fast alles reinpacken
CodeSet rtitem = New NotesRichTextItem( newDoc, "Body" ) Call rtitem.AppendDocLink( db, db.Title )