lux-in-tenebris: Lotus Notes

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

  1. 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 = "deine@email.de"

    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

    1. 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 = "deine@email.de"

      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