Lotus Notes

[lux-in-tenebris]

Hallo,

habe ein Problem:

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

Reservierungsanforderung einer Ressource

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

Vielleicht kann mir jemand helfen??

Vielen Dank im Voraus

lux in tenebris

[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

[lux-in-tenebris]

Hallo,

vielen Dank! ;-)

Bin leider Urlaubsreif.
Habe so viel zu tun, dass ich nicht weiss, wo ich anfngen soll.
Eine DB jagt die andere.

Gruß

lux-in-tenebris

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