Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung
Mal wieder das Thema Export nach WORD
Axel:
Ich habe mir mal eine Funktion gebastelt mit der man abfragen kann, ob das Dokument überhaupt Anhänge beinhaltet.
--- Code: ---Function xHasDocAttachments(doc As NotesDocument) As Integer
Dim vEval As Variant
vEval = Evaluate("@Attachments", doc)
If vEval(0) = 0 Then
xHasDocAttachments = False
Else
xHasDocAttachments = True
End If
End Function
--- Ende Code ---
Axel
C_T:
Hey Axel,
Super Vielen DAnk schonmal
wollte gerade danach fragen wie ich gucke ob ich anhänge habe....
kann man diese Prüfung auch irgendwie nur auf ein bestimmtes Feld beziehen???
Axel:
--- Zitat von: C_T am 27.03.08 - 16:02:07 ---kann man diese Prüfung auch irgendwie nur auf ein bestimmtes Feld beziehen???
--- Ende Zitat ---
Mit den mir bekannten Mittlen nicht.
Du kannst höchstens mal versuchen die Rückgabe von rtitem.EmbeddedObjects auf Empty zu prüfen.
...
If ( rtitem.Type = RICHTEXT ) Then
If Not IsEmpty(rtitem.EmbeddedObjects) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Messagebox(Cstr(o.Name))
Call o.ExtractFile( "c:\test\" & o.Name )
End If
End Forall
End If
End If
...
Ob das allerdings so funktioniert kann ich dir nicht sagen. Ich hab's nicht probiert.
Axel
ata:
... sollte eigentlich funktionieren...
Toni
C_T:
So müsste eignetlich jetzt soweit alles laufen, jedoch habe ich jetzt beim feintuning ein kleines Problem....
Und zwar starte ich mein Word Export mit einer Wordvorlage
--- Code: ---Call WordApp.documents.add("c:\WORD.dot")
--- Ende Code ---
Kann ich die Datei irgendwie in die Datenbank selbst hinterlegen und abrufen oder kann ich einfahc nachfragne ob die Datei in dem Pfad liegt der angegeben wurde und dann dementsprechend eine Fehlermeldung und eine erneute Eingabeaufforderung starten?
Die Sachen mit dem hinterlegen der Datei wäre mir das liebste.... Kann mir da wer helfen?
VIELEN DANK
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln