Okay, also mit dem Code ohne Navigator
Sub SendMail()
Dim db As Object
Dim session As Object
Dim view As Object
Dim vorlagedoc As Object
Dim doc As Object
Dim note As Object
Dim ws As Object
Set session = CreateObject("Notes.NotesSession")
Set ws = CreateObject("Notes.NotesUIWorkspace")
Set db = session.GetDatabase("", "")
Call db.OpenMail
Set view = db.GetView("Stationery")
Set vorlagedoc = view.getFirstDocument
Do Until vorlagedoc Is Nothing
If vorlagedoc.getItemValue("MailStationeryName")(0) = "<Vorlage>" Then Exit Do
Set vorlagedoc = view.getNextDocument(vorlagedoc)
Loop
If Not vorlagedoc Is Nothing Then MsgBox "Vorlage: " + vorlagedoc.getItemValue("MailStationeryName")(0)
Call vorlagedoc.copyallitems(doc)
Set doc = vorlagedoc
With doc
.Form = "Memo"
Recipient = "MaxMustermann@live.com"
.sendto = Recipient
.Subject = "Betreff"
.body = "Nachrichtentext"
End With
Set doc = ws.EditDocument(True, doc)
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub
durchläuft er sämtliche Schritte, findet durch die Do-Loop-Schleife auch anscheinend die richtige Vorlage, erstellt auch im weiteren Verlauf eine Mail, nutzt hierbei jedoch die Vorlage nicht. :$
(Den Block mit den "Call note.[...]" nach
Call vorlagedoc.copyallitems(note)
musste ich rausnehmen, da er mir den Laufzeitfehler 458 ausgab).
Beim Code mit Navigator und mit "nav.GetFirst" anstatt "nav.GetFirstEntry"
Dim db As Object
Dim session As Object
Dim view As Object
Dim nav As Object
Dim vorlagedoc As Object
Dim ve As Object
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("", "")
Call db.OpenMail
Set view = db.GetView("Stationery")
Set nav = view.CreateViewNav()
Set ve = nav.GetFirst
found = False
While found = False And Not ve Is Nothing
Set vorlagedoc = ve.Document
If vorlagedoc.GetitemValue("MailStationeryName")(0) = "<Vorlagenname>" Then
found = True
End If
Set ve = nav.GetNextentry(ve)
Wend
gibt er mir in der Zeile
If vorlagedoc.GetitemValue("MailStationeryName")(0) = "<Vorlagenname>" Then
wieder den Laufzeitfehler 91.