OK, folgender Agent zeigt mir an:
Sub Initialize
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim strTxt As String
Dim intCount As Integer
Set doc = uiws.CurrentDocument.Document
Forall itm_loop In doc.Items
If itm_loop.Name = "Body" Then
intCount = intCount + 1
strTxt = strTxt & Chr(10) & intCount & ": " & itm_loop.Text
End If
End Forall
Msgbox strTxt
End Sub
Klappt also doch sauber. Getestet unter R6. Email = Spam-Mail die reinkam und sicherlich bösen Code enthält im Anhang.
Und nun sind nur noch 2 Body Items vorhanden !
Nach Aufruf meines Codes (den Agenten rufe ich auf, nachdem das Dok geöffnet wurde).
Inhalt der Body Items:
Field Name: Body
Data Type: Rich Text
Data Length: 128 bytes
Seq Num: 3
Dup Item ID: 0
Field Flags: SIGN SEAL
See the attached file for details.
Field Name: Body
Data Type: Rich Text
Data Length: 902 bytes
Seq Num: 3
Dup Item ID: 0
Field Flags: SIGN SEAL
- my_details.pif
Vor Aufruf des Agenten 4 Items, Screenshot siehe oben.
Schließe ich dann das Dokument und öffne es erneut, so gibt es wieder 4 Body Items.