Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: two7 am 05.09.07 - 19:52:04

Titel: Wie frage ich "rtitem.EmbeddedObjects" auf Null oder Nothing ab?
Beitrag von: two7 am 05.09.07 - 19:52:04

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 .....

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

thx two7

Titel: Re: Wie frage ich "rtitem.EmbeddedObjects" auf Null oder Nothing ab?
Beitrag von: koehlerbv am 05.09.07 - 19:55:03

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

Alles klar?

Titel: Re: Wie frage ich "rtitem.EmbeddedObjects" auf Null oder Nothing ab?
Beitrag von: two7 am 05.09.07 - 20:49:34

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??!!

Titel: Re: Wie frage ich "rtitem.EmbeddedObjects" auf Null oder Nothing ab?
Beitrag von: koehlerbv am 05.09.07 - 21:00:48

Zitat von: two7 am 05.09.07 - 20:49:34

eine frage hät ich noch?

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.

Titel: Re: Wie frage ich "rtitem.EmbeddedObjects" auf Null oder Nothing ab?
Beitrag von: two7 am 05.09.07 - 22:01:29

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