Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: mwue am 18.02.05 - 12:33:49
-
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
-
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
-
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
-
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