Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mal wieder das Thema Export nach WORD

<< < (9/12) > >>

C_T:
Ums nochmal zu verständlichen,
ich bin in den debugger gegangenund habe jeden einzelnen Schritt durchgehen lassen von dem teil mit dem extrahieren der attachments.
Dabei ist die aktive zeile natürlich auch auf die zeile mit der messagebox gekommen, jedoch wurde keine angezeigt. ausserdem habe ich auch keinen fehler bekommen.

C_T:
HI Leute

Schande auf mein Haupt.....

Bei dem Errorhandling welches jetzt drin ist kann auch kein fehler kommen.

So nachdem ich das Errorhandling einmal etwas geändert habe, bekomme ich folgende Fehlermeldungen:

Type mismatch
FOR loop not initializied


Hier nochmal der Code



--- Code: ---
Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.GetFirstItem( "TEXT" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall obj In rtitem.EmbeddedObjects    
      Messagebox(Cstr(obj.Name))
      Call obj.ExtractFile( "c:\test\" & obj.Name )   
  End Forall
End If

--- Ende Code ---


Vielleciht könnt Ihr mir jetzt besser helfen

m3:
1) Laut meiner Designerhilfe (V6.5) will Forall ein array, list, oder eine collection.

2) Ich würd mal überprüfen, ob rtitem.EmbeddedObjects überhaupt ein array oder nicht etwa empty zurückliefert, weil das Dokument keine Anhänge hat.

Axel:
Kann es sein, das in dem entsprechenden Dokument einfach keine Anhänge gespeichert seind?


Axel

klaussal:
@Axel,

es muss so sein, weil ich (wie geschrieben) diese Mimik getestet habe und es funzt.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete