Attachments checken/suchen etc.

[maiko]

Hallo,

ich drehe gerade wieder etwas durch.
Was ich brauche ist einen Agenenten mit einer Schleife über alle $FILE Felder.
Falls die Attachments dann mit "STG" beginnen, dann raus damit.
Wobei diese beim debuggen garkein Value haben, daher hab ich die auf "" gecheckt. Wo dieser herkommen weiss ich selbst nicht, scheinen doppelte uploads zu sein.

Soweit bin ich, komme aber nicht weiter, da er mir immer nur das erste Attachment anzeigt.

Wie bekommen ich denn in der inneren Schleife die Werte des x-ten $FILE angezeigt ?

Kann mir da jemand helfen ?

MfG

Maiko

-------------------
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim session As New NotesSession
Dim view As NotesView
   
Set db = session.CurrentDatabase
Set view = db.getView("stgsloeschen")
Set doc = view.GetFirstDocument
   
Forall i In doc.Items   
  If (i.name = "$FILE") Then          
            If doc.getItemValue("$File")(0) = "" Then
   Msgbox ("FileName: ")
                 ' HIer soll mal das Remove rein
            End If
   End If
End Forall
   

[Till_21]

gehe ueber die EmbeddedObjects Eigenschaft der NotesDocument-Class !

Darueber eine schleife
in etwa so

Forall o In doc.EmbeddedObjects
  if o.name="STR" then
     'hier loeschen
  end if
End Forall

gruss till

[maiko]

hallo,

sollte so funktionieren, danke soweit.

Maiko