Hallo liebe Lotus Notes Programmierer,
ich habe ein kleines dummes Problem beim automatischen versenden von E-Mails über einen periodischen Agenten.
Wenn ich den Agenten manuell starte, dann funktioniert das versenden ohne Probleme, doch beim periodischen Ausführen berechnet er zwar die Felder neu, aber verschickt keine Mails.
Ich weiss wirklich nicht weiter, beim Testen sagt der Agent auch, dass ich unbeschränkte Agenten mit Admin-Funktion ausführen kann.
Hier mein Code:
Code
Sub Initialize
On Error Goto errhandler
Dim se As New NotesSession
Set db = se.CurrentDatabase
Set v = db.GetView("vw05")
Set doc = v.GetFirstDocument
Dim maildoc As notesdocument
Dim rtitem As NotesRichTextItem
Dim Schalter As String
While Not doc Is Nothing
'Neu berechnen
d=doc.ComputeWithForm(False, False)
doc.TXT_AGENT=""
Call doc.Save(True, False)
'E-Mail versenden
Set maildoc = db.createdocument
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
maildoc.form = "MEMO"
maildoc.sendto = "Name"
maildoc.from = "Server"
maildoc.subject = "TESTMAIL-AUTO"
Call rtitem.appendtext("APPENDTEXT")
Call rtitem.addnewline(2)
Call rtitem.AppendDocLink( doc, doc.RFC_SUBJECT( 0 ) )
Call maildoc.send( False,True )
If d=False Then
Print d + doc.AUFT_AUFTNR(0)
End If
weiter:
Set doc = v.GetNextDocument(doc)
Wend
Exit Sub
errhandler:
Print "Error " & Error$ & "(" & Cstr(Err) & ")" & " on line " & Cstr(Erl)
Goto weiter
End Sub
Alles anzeigen
Freue mich auf eure Hilfe
Grüße