Domino 9 und frühere Versionen > Entwicklung

Inhalte von .pdf und .doc in rtf-feld anzeigen

<< < (3/7) > >>

TMC:
Bernhard, ich konnte gerade denselben Fehler feststellen (Fenster bleibt leer).

Wenn ich dann 3 Msgboxes hinzufüge im Postopen, dann geht es.


--- Code: ---Sub Postopen(Source As Notesuidocument)
   Dim doc As NotesDocument   
   Dim adobe As Variant
   Dim rtItem As Variant
   Dim strWinTemp As String
   Dim strStartPDF As String
   
   If Source.EditMode = True Then Exit Sub 'Exit wenn Dok in Bearbeitung
   
   Set doc= Source.Document
   Set adobe = Source.GetObject("Acrobat Control for ActiveX")
   Set rtItem = doc.GetFirstItem("PDF")
   
   strWinTemp = WinTemp 'see function.....
   Msgbox "strWinTemp"
   
   Forall obj In rtItem.EmbeddedObjects
      If (obj.Type=Embed_Attachment) Then
         Call obj.ExtractFile(strWinTemp & "\" & obj.Source)
         Msgbox "Extrahiert"         
         adobe.LoadFile(strWinTemp & "\" & obj.Name)
         Msgbox "Geladen"
      End If
   End Forall
   
End Sub
--- Ende Code ---

Wohl ein Timing-Problem? Vielleicht sollte man einen sleep einbauen..... ??

Matthias

koehlerbv:
AFAICS: Sleep bringt nix. Die Massage-Kiste
Msgbox "Extrahiert"
ist der Punkt - diese alleine reicht, um das Ding zum Laufen zu bringen.
Mystisch, aber schon mal ein Ansatz ;-)

Bernhard

animate:
nur ne Idee, ohne die Syntax zu kennen:

If obj.ExtractFile then
...
End if

TMC:
Hmm, Problem ist ja, dass das File immer extrahiert wird. Das klappt also.

Nur eben ohne Msgbox geht es nicht immer.
Habe es gerade auch unter R6.5 getestet, da verhält es sich genau so.

Kann man denn eine geöffnete Msgbox per Befehl schliessen? Dies wäre dann zumindest ein Workaround.....

Matthias

Axel_Janssen:
was ist hiermit?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete