Hallo zusammen,
vielleicht kann mir hier jemand bei meinem Problem weiterhelfen.
Ich habe folgendes Problem beim automatisierten Verschicken von Emails in einem LotusNotes Script Agenten in der Maildatenbank.
Über eine ODBC Verbindung wird aus einer Oracle Datenbank eine Liste von Emailadressen und weiteren Daten ausgelesen. An jede eingetragene Emailadresse in dieser Datenbank muss eine individuelle Email verschickt werden. Ich lese also alle Daten aus und gehe in einer For / Next Schleife über das Resultset und verschicke die Mail mit Call doc.Send(False,mailadr).
Jetzt kann es vorkommen, das eine Emailadresse in der Oracle Datenbank nicht mehr gültig ist. Wenn ich den LoNo Client auf Insel stelle wird die Mail ja erzeugt aber ersteinmal in den Ausgehenden Mails gespeichert. Beim Verschicken erhalte ich dann folgenden Zustellungsfehler:
User XY (XY) not listed in public Name & Address Book
Wenn der Agent jetzt aber die Mail gleich verschicken möchte stürzt die Verarbeitung ab.
Meine Frage ist, wie kann ich den folgenden Codeschnippsel um eine Fehlerabfangroutine erweitern, dass auch bei falschen Emailadressen mit dem nächsten Eintrag weitergemacht wird? :-:
Set db = s.CurrentDatabase
Set doc = New NotesDocument(db)
doc.Form = "Memo"
doc.Subject = "Daten"
For i = 1 To result.NumRows
result.CurrentRow = i
wert = result.GetValue(1)
mailadr = result.GetValue(2)
doc.Body = "Text " & wert
Call doc.Save(True,True)
Call doc.Send(False,mailadr)
Next