Lotus Notes

[Christian Kruse]

Hoi,

Beschreibung:
Bitte einen Agenten in die Datenbank bauen der alle Mails mit dem
Subjekt:

Wir sollen wohl fuer dich die CLP-Aufgaben loesen?

Reservierungsanforderung einer Ressource

bearbeitet, indem er eine Kopie der Mail mit einem Doc-Link an "XYZ"
schickt.

Vielleicht kann mir jemand helfen??

Sub Initialize
 Dim sess As New NotesSession
 Dim db As NotesDatabase
 Dim mails As NotesDocumentCollection
 Dim doc As NotesDocument

EMail = "[e-mail]"

Set db = sess.CurrentDatabase
 Set mails = db.AllDocuments

Set doc = mails.GetFirstDocument
 While Not(doc Is Nothing)
  If doc.Subject(0) = "Reservierungsanforderung einer Ressource" Then
   doc.sendto = EMail
   Call doc.send(0)
  End If

Set doc = mails.GetNextDocument(doc)
 Wend
End Sub

Da ist noch ein Fehler drin. Absichtlich. Den wirst du dir selber
suchen muessen.

Gruesse,
 CK