Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mal wieder das Thema Export nach WORD

<< < (6/12) > >>

ata:
... ich denke der Beitrag sollte nach Companions und OLE verschoben werden

Toni

Axel:
Das Codeschnipsel sieht soweit mal ganz gut aus, aber eben nur das Schnipsel.


--- Zitat von: C_T am 26.03.08 - 13:44:34 ---Leider habe ich schon beim extrahieren Probleme vielleciht kann mir einer (oder mehrere) von euch helfen??? *liebguck*

--- Ende Zitat ---

Leider kann ich nicht hellsehen und meine Kristallkugel ist im Osterurlaub eingeschneit, so dass du notgedrungen, wenn du Hilfe haben willst, mehr Infos geben musst.

*nochlieberguck*


Du kennst doch das hier oft strapazierte Sprichwort:

Mehr Input -> mehr Output.


Axel
 

C_T:
HI

SO sry dachte es wär genug input, aber naja jeder kann sich irren....

Also nach meiner ansicht sollte ja der Code

--- Code: ---....CODE

Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "TEST1" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall obj In rtitem.EmbeddedObjects
      Call obj.ExtractFile( "c:\test\" & obj.Name )
  End Forall
End If

....CODE
--- Ende Code ---

 die Attachments aus dem Feld ("TEST1") als Datei in den Ordner "c:\test" speichern. leider macht der das nicht.

Das Feld ist definitiv ein RichTextFeld und da drin steht text und sind folgende dateitypen hinterlegt:

*.txt
*.doc
*.xls

der debugger zeigt an das der code bis in die kleinste schleife reingeht, jedoch sehe ich auf meiner C Platte keine daten...

Axel:
Ändere mal deine Dim - Anweisung ab.

....CODE

Dim rtitem As NotesRichtextItem

Set rtitem = doc.GetFirstItem( "Problem" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
      Call o.ExtractFile( "c:\test\" & o.Name )
    End If
  End Forall
End If

....CODE

Ansonsten kann ich keine Unstimmigkeiten entdecken.

Bekommst du eine Fehlermeldung?


Axel

C_T:
Nein leider bringt das auch nciht mehr...

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete