Prüfen mit LS ob Anhang im RTF Feld

[mwue]

Hallo liebes Forum,

ich habe folgendes Problem:

Ich möchte mit einem Agenten abfragen, ob in einem Rich Text Feld namens "ProjectImageAttach" ein Anhang ist. Solange in dem Feld ein Dokument angehängt ist , funktioniert auch meine Abfrage. 
Wenn das Feld aber leer ist, bekomme ich in der Zeile  "Forall o In rtitem.EmbeddedObjects" folgende Fehlermeldung  "Type Mismatch" . Wahrscheinlich weil o Null ist, ... aber das will ich ja gerade wissen.

Hat jemand eine Idee, wie ich sonst rausfinden kann, ob in einem bestimmten Feld ein Anhang ist ?


Hier mein Script Code:


Dim rtitem As NotesRichTextItem
   Dim IconBild As String
   
   IconBild = "nein"
      
   Set doc = Source.Document
   
   ' Ist Bild vorhanden, also gibt es einen Anhang im Feld ProjectImageAttach ?
   
   Set rtitem = doc.GetFirstItem( "ProjectImageAttach" )
   '-------------------------------------------------------------------------------------------------------------------
   If ( rtitem.Type = RICHTEXT ) Then
      Forall o In rtitem.EmbeddedObjects
         If ( o.Type = EMBED_ATTACHMENT ) Then
            
            If ( Len(o.Source) > 0) Then
               IconBild = "ja"
            End If   
         End If
      End Forall
   End If


Also ich steh jetzt echt auf der Leitung, vielleicht könnt ihr mir weiterhelfen !

Grüße

Marion
   

[Glombi]

Der If Teil müsste so aussehen:

If ( rtitem.Type = RICHTEXT ) Then
      Forall o In rtitem.EmbeddedObjects
  if not o is Nothing then
         If ( o.Type = EMBED_ATTACHMENT ) Then
           
            If ( Len(o.Source) > 0) Then
               IconBild = "ja"
            End If   
         End If
      End Forall
   End If
End if

Andreas

[koehlerbv]

Nö, das wird auch nix, da es ja in der Forall ...-Zeile schon knallt.
Vor der Forall-Zeile muss stehen:
If Isarray (rtitem.EmbeddedObjects) Then

HTH,
Bernhard

[mwue]

Hallo Berndhard, hallo Andreas,

vielen Dank für Eure Antworten !

Bernhard, das war ein genialer Tipp !

Jubel  !!!

Jetzt funktioniert es  !

Grüße und einen schönen Tag

Marion