Domino 9 und frühere Versionen > ND6: Entwicklung

Problem mit Bibliothek

<< < (3/4) > >>

Driri:
Ne, ich meinte dann schon auf das RTF bzw. auf Inhalte des RTF zugreifen, z.B. EmbeddedObjects.

Fedaykin:
Hi

Habe das Teil ja und kann das extrahieren. Seh da kein Problem.

Sub Click(Source As Button)
   Dim ws As NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Dim rtitem As NotesRichTextItem
   
   Set ws=New NotesUIWorkspace
   Set uidoc=ws.CurrentDocument
   Set doc=uidoc.Document
   uidoc.Document.SaveOptions="0"
   uidoc.Refresh True
   Set item=doc.GetFirstItem("fdBody")
   If item.Type=1 Then
      Set rtitem=item
      Forall eo In rtitem.EmbeddedObjects
         eo.ExtractFile Environ("Temp") & "\" & eo.Name
         Print Dir(Environ("Temp") & "\" & eo.Name)
      End Forall
   End If
End Sub

Gruss
Remo

Driri:
Sorry, aber ich kann das nicht nachstellen. Wenn ich ein neues Dokument habe, in das RTF ein Attachment packe, etc. und dann ohne zu speichern über Script versuche, auf das RTF zuzugreifen, ist das Objekt leer.

Das NotesDocument bekomme ich (wieder was gelernt  ;)), aber das RichTextItem eben nicht.

Fedaykin:
Hi

Also wenn mein Code bei Dir nicht funktioniert, dann kann es echt nur an der Notes Version liegen (verwende 7.02). Mit der Version von Dir kann ich leider nicht testen (haben wir nicht mehr).

Gruss
Remo

Driri:
Moment, Korrektur : Wenn ich deinen Code verwende, funktioniert es.

Jetzt würde mich aber doch mal interessieren, warum ich mit folgendem Code nicht an das Item herankomme :

   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   
   Set rtitem = doc.GetFirstItem("Body")

Damit hatte ich das probiert und dann halt im Debugger geschaut, ob rtitem sauber gesetzt wird. Aber auf dem Weg bleibt es eben leer.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete