Domino 9 und frühere Versionen > Entwicklung

rtitem ???

(1/2) > >>

Don Pasquale:
Hallo Leute,

ich stecke immer noch fest bei meinen Serienbriefen.
Folgender Code bringt immer den Fehler OBJECT VARIABLE NOT SET

Set WordDoc2 = object.Activate(True)


Und ich sehe wieder nicht warum.
Hat jemand eine Idee ?

Ciao
Don Pasquale

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection   
   Dim doc As NotesDocument
   Dim MergeDoc As NotesDocument
   Dim MergeView As NotesView
   Dim rtitem As NotesRichTextItem
   Dim w As New NotesUIWorkspace
   Dim WordDocs As Variant
   Dim WordDoc As Variant
   Dim WordDoc2 As Variant   
   Dim object As Variant
   Dim WordObj As Variant
   Dim i As Integer
   Dim temp As String
   Dim templateName As String
   
   Set db = session.CurrentDatabase
   Dim dlgDoc As New NotesDocument(db)
   
   OK=False
   OK=w.dialogbox("Reaktionsschreibenpicker", True, True, False, False, False, False, "Wählen Sie eine Vorlage",dlgDoc)
   If OK Then
      templateName=dlgDoc.templatechoices(0)
      Set MergeView = db.GetView( "Reaktionsschreibenvorlagen" )
      Set MergeDoc = MergeView.GetDocumentByKey(templateName,True)
      Set rtitem = MergeDoc.GetFirstItem("Body")
      Set object = rtitem.GetEmbeddedObject("Microsoft Word Document")
      Set WordDoc2 = object.Activate(True) '******** OBJECT VARIABLE NOT SET
      
   End If
   

Axel:
Hi,

ich denke "der Hund liegt hier gegraben".

Set object = rtitem.GetEmbeddedObject("Microsoft Word Document")

Als Parameter erwartet die Methode einen Dateinamen. Ich denke mal das es so ausehen sollte:

Set object = rtitem.GetEmbeddedObject("document.doc")

Den Namen musst du natürlich anpassen.

Axel

           

Myron:
Hallo!!

Bekommst du ein Objekt von dem GetEmbeddedObject ?? (man sieht das eh im debugger)
Hatte auch mal eon änliches Problem .. bei mir hats so ausgesehen

Forall o In doc.EmbeddedObjects
  Set handleV = o.Activate(False)
  handleV.SaveAs("C:\temp\NotesEp.xls")
  handleV.Close
  Set handleV = Nothing
End Forall

ata:
... wie das Axel bereits richtig erkannt hat fehlt das Objekt...

ata

Axel:
@Myron

Ich denke nicht, dass man das "Set" weglassen kann.

Auszug aus der Designer - Hilfe:

Syntax
Set handleV = notesEmbeddedObject.Activate( show )

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite