Hallo Forum,
jaja, lang ists her...
Ich erlebe gerade ein seltsames Problem in Notes bei dem ich Eure Hilfe brauche.
Mit folgender Schleife möchte ich über sämtliche Attachments des Dokuments loopen und diverse Dinge damit anstellen.
ForAll item In docSource.Items
If (item.Type = RICHTEXT) Then
emObArr = item.EmbeddedObjects
If IsArray(emObArr) Then
ForAll objAtt In item.EmbeddedObjects
If (objAtt.Type = EMBED_ATTACHMENT) Then
If objAtt.Name = objAtt.Source Then
strAttFileName = objAtt.Source
Else
strAttFileName = objAtt.Name + "_" + objAtt.Source
End If
usw...
End If
End ForAll
'End If
End If
End ForAll
Jetzt gibt es das Problem, dass der Bereich mit
...
emObArr = item.EmbeddedObjects
If IsArray(emObArr) Then
...
in einem 6er Client ganz normal funktioniert und IsArray True zurückgibt und in einem 8.5.1er Client mit dem selben Dokument in der selben Datenbank item.EmbeddedObjects leer ist ????
Gibt es irgend einen verständlichen Grund, wieso das so ist? Braucht Ihr noch irgendwelche Informationen zu dem Dokument oder DB um erklären zu können, wieso die EmbeddedObjects in 8.5.1 plötzlich (aus meiner Sicht) zickt?
Vielen Dank schon mal!
Bis dann,
-Moritz
Ich kann mich irren, aber soweit ich weiß funktioniert EmbeddedObjects nicht zuverlässig, OBWOHL in der Designerhilfe folgendes Beispiel drin steht (was ja deinem sehr ähnlich ist)
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:\samples\" & o.Source )
Call o.Remove
Call doc.Save( False, True )
End If
End Forall
End If