1) ein Agent der Vor Eingang neuer Mail laufen soll, darf in einer DB nur 1x vorhanden sein.
im prinzip hast du ja deinen script schon fertig, nur musst du die else bedingungen noch richtig machen und die nötigen parameter zum senden eines mails angeben.
weiters würde ich dir empfehlen nicht mit
doc.Subject = "Betreff" oder andere kürzel zu arbeiten, auch wenn es so in der hilfe steht, so kriegst beim kompilieren des öfteren keine fehlermeldungen und wunderst dich dann wieso es nicht funktioniert
Option Declare ein MUSS!
Dim ses As New Notessession
Dim db As Notesdatabase
Dim empfaenger As Variant
'die empfaenger aus einem feld lesen oder hardcodiert befüllen
Set db = ses.CurrentDatabase
Dim doc As New NotesDocument(db)
Dim rtitem As New NotesRichTextitem(doc,"Body")
Call doc.ReplaceItemValue("Form","Memo")
Call doc.ReplaceItemValue("Subject","Das ist der Betreff")
Call rtitem.AppendText("1te Zeile bla bla")
Call rtitem.AddNewLine(1) 'Zeilenumbruch
Call rtitem.AppendText("2te Zeile blabla und so weiter...")
Call doc.Send(True,empfaenger)
ich hoffe das hilft ein bisschen weiter...