Hallo zusammen,
ich versuche mich gerade etwas an den NotesItems unter LS.
Bisher habe ich immer alles mit der Formelsprache gemacht, aber das was jetzt kommen soll geht so nicht mehr...
Meine Entwicklerschulung kommt zwar erst noch, aber trotzdem kann man sich mal versuchen...
Ich habe ein Script (Agent) der aus einem Dokument in einer View aus dem Item Body einen text rauslesen soll...
Erst mal versuche ich, mit Contains herauszufinden, ob er den Text überhaupt findet...
Aber das tut er nicht... Warum?
Code
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim dok As NotesDocument
Dim check As Variant
Dim item As NotesItem
Set db = s.CurrentDatabase
Set view = db.GetView("doks")
Set dok = view.GetFirstDocument
Set item = dok.GetFirstItem("Body")
If item.Contains("====================================") Then
Messagebox "Ja"
Else
Messagebox "Nein"
End If
Alles anzeigen