Domino 9 und frühere Versionen > Entwicklung

Wie frage ich "rtitem.EmbeddedObjects" auf Null oder Nothing ab?

(1/1)

two7:
Hallo zusammen,

ich hab mir einen Agenten geschrieben, der eine Maildatenbank Dokument für Dokument durchgeht und dabei prüft, ob das Dokument Anhänge besitzt und falls ja, die Grösse des Anhangs und die Gesamtgrösse zurück gibt.

Soweit funktioniert dies auch einwandfrei. Wenn nun ein Dokument allerdings keinen Anhang besitzt, so erhalte ich ein "Type mismatch".

Hab auch schon versucht mit einem

--- Code: ---If Not (rtitem.EmbeddedObjects Is Nothing) Then .....

--- Ende Code ---
aber weitergekommen bin ich damit nicht. Wie muss ich hier die Abfrage gestalten, dass bei Dokumenten, die keinen Anhang besitzen keine Fehlermeldung zurückkommt, sondern diese übersprungen werden?

Anbei der Quelltext:

--- Code: --- While Not (userdoc Is Nothing)

count = 0
sizeAll = 0
Set rtitem = userdoc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall mailobject In rtitem.EmbeddedObjects
count = count + 1
sizeInBytes = mailobject.FileSize
sizeInMB = sizeInBytes / ( 1024 )
sizeAll = sizeInBytes + sizeAll
End Forall
Print "Anzahl Anhänge : " & count & Chr(10) & "SizeAll : " & sizeAll
End If

Set userdoc=userview.GetNextDocument(userdoc)

Wend

--- Ende Code ---

thx two7

koehlerbv:
Die DesignerHelp sagt es eindeutig:
"Returns empty if the rich text item does not contain embedded objects".

Alles klar?

two7:
alles klar ... passt jetzt.
danke.

eine frage hät ich noch?
wenn ich die Ansicht "($All)" Dok für Dok durchgehe, dann bricht der Agent irgendwann ab, da er das NotesDokument nicht mit dem Dok füllen kann.

Komisch ist aber, dass ich zuvor extra noch mit If Not (doc is Nothing) abfrage.
Dann dürfte doch dieser Fall gar nicht auftreten??!!

koehlerbv:

--- Zitat von: two7 am 05.09.07 - 20:49:34 ---eine frage hät ich noch?
--- Ende Zitat ---

Du fragst uns, ob Du noch eine Frage hast? Also ich habe keine Ahnung ...

Aber Spass beiseite: Dir kann auch wegen der anderen Sache geholfen werden, aber bitte mach der Übersichtlichkeit halber einen neuen Thread auf.

two7:
:-) .... ja die frage mit de frage ist halt so ne sache .... alles klar .... dann öffne ich mal gleich einen neuen thread .... thx

Navigation

[0] Themen-Index