Huhu, ich mal wieder
Ich sitze mal wieder an einer Stelle in meiner !"Königsdisziplin" LotusScript fest.
Ich möchte in einer Maildatenbank ein Dokument per Email weiterleiten. In der weitergeleiteten Mail sollen im Body einige Daten aus der Originalmail wiedergegeben werden. Leider hänge ich dort irgendwo im Code fest.
Es handelt sich um Kalendereinträge (Einladungen) bei welchen eine Information übergeben werden sollen. Ich will das Subject, StartDateTime, EndDateTime und Body in der Mail anzeigen lassen, komme aber mit der blöden AppendText methode nicht klar.
Wo ist der Fehler ???
Code
Sub Senden
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim aktiv_doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim doc_Mail As NotesDocument
Dim rtitem As NotesRichTextItem
Dim ndt As New NotesDateTime("30.12.1899")
Set db = session.CurrentDatabase
' Dokumente suchen, bei denen Verteilt = ""
Set view = db.GetView("Notice")
Set doc = view.GetFirstDocument
While Not doc Is Nothing
Set doc_Mail = New NotesDocument(db)
Set aktiv_doc = doc
Set doc = view.GetNextDocument(doc)
' Mail erstellen
doc_Mail.SendTo = "me@geilermacker.de"
doc_Mail.Subject = "Neuer Termin : " & aktiv_doc.Subject(0)
Set rtitem = doc_Mail.CreateRichTextItem("Body")
Call rtitem.AppendText("Neuer erfasster Termin für Sie : ")
'HIER DIE FEHLERSTELLE
Call rtitem.AppendText("Beginn am : " & activ_doc.StartDateTime(0))
Call rtitem.AppendText("Endet am : " & activ_doc.EndDateTime(0))
Call rtitem.AppendText("Thema : " & activ_doc.TOPIC(0))
'HIER GEHTS WIEDER
Call rtitem.AppendDoclink(aktiv_doc, "Link")
doc_Mail.Principal = "Terminator V1"
doc_Mail.Send(False)
' Feld Verteilt füllen
'aktiv_doc.Gesendet = "1"
' aktiv_doc.Save True, True, True
' nächstes Dokument wählen
Wend
End Sub
Alles anzeigen
Danke im Vorraus für Eure Hilfe.
Gruß,
Bussy