Hallo,
ich habe einen Agenten, der für eine bestimmte DB bei Maileingang automatisch eine Antwort verschickt:
Code
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim mailDoc As NotesDocument
Dim body As NotesRichTextItem
Dim i As Integer
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
Set mailDoc = db.CreateDocument
Set body = maildoc.CreateRichTextItem("Body")
mailDoc.Form = "Memo"
mailDoc.SendTo = doc.From(0)
mailDoc.Subject = "Re: " & doc.Subject(0)
Call body.AppendText( "Hallo,")
Call body.AddNewLine(2, False)
Call body.AppendText( "irgend ein Text")
Call mailDoc.Send(False)
Call session.updateprocesseddoc(doc)
Next
End Sub
Alles anzeigen
Jetzt fehlt mir noch eine if-Schleife o.ä. um an unsere internen Benutzer diese Mail nicht zu verschicken. Ich weiß allerdings nicht mit welchem Ausdruck ich das in einer if-Schleife hinbekomme.
Danke für Tipps