Domino 9 und frühere Versionen > Entwicklung

Attachment abspeichern

(1/2) > >>

Don Pasquale:

dachte ich sei einfach, leider bekomme ich in dieser Zeile
If ( rtitem.Type = RICHTEXT ) Then  

ein   ** OBJECT VARIABLE NOT SET

Wer kann mir helfen ?


Vielen Dank

Don Pasquale



--- Code: ---   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 range As Variant
   Dim tableobj As Variant
   Dim i As Integer
   Dim temp As String
   Dim templateName As String
   
   '**********************************************
'   Dim doc As NotesDocument
'   Dim session As New NotesSession
'   Dim db As NotesDatabase
   Dim user As String   
   Dim Reaktionsbriefpfad As String
   Set db = session.CurrentDatabase   
   
   user = session.UserName   
   Set doc = db.GetProfileDocument( "e4frmProfil" , user )
   Reaktionsbriefpfad = doc.Serien_1_Pfad(0)
   '**********************************************   
   
   
   Set db = session.CurrentDatabase
   Dim dlgDoc As New NotesDocument(db)
   OK=False
   OK=w.dialogbox("TemplatePicker", True, True, False, False, False, False, "Choose Template",dlgDoc)
   If OK Then
      templateName=dlgDoc.templatechoices(0)
      Set MergeView = db.GetView( "Serienbriefvorlagen" )
      Set MergeDoc = MergeView.GetDocumentByKey(templateName,True)
'      Das Attachment wird abgespeichert unter Reaktionsbriefpfad
      
      If MergeDoc.HasEmbedded Then                        
         Set rtitem = doc.GetFirstItem( "Body" )
         If ( rtitem.Type = RICHTEXT ) Then   ' **************** OBJECT VARIABLE NOT SET
            Forall o In rtitem.EmbeddedObjects
               If ( o.Type = EMBED_Attachment ) Then
       'Messagebox o.name                              
                  Call o.ExtractFile ( Reaktionsbriefpfad & "\" & Filename1 )      'Anhang auf Laufwerk "Pfad" speichern
               End If
            End Forall
         End If
      End If
   End If

--- Ende Code ---

Axel:
Hi,

du beziehst dich eine Zeile davor auf doc

Set rtitem = doc.GetFirstItem( "Body" )

und doc ist laut deiner Zuweisung ein Profildokument.

Set doc = db.GetProfileDocument( "e4frmProfil" , user )
   
Meines Wissens funktionieren RTF-Felder nicht in Profildokumenten.

Axel

         

ata:
... das rtItem scheint nicht vorhanden zu sein. Prüfe die Objekte vorher ab mit ...

If doc.HasItem("ItemName")....

@Axel
Ob die in Profildokumentren nicht verwendet werden können ist mir unbekannt, werde ich für mich mal checken....

ata

ata:
... mir ist noch was aufgefallen:

du überprüfst das MergeDoc auf Embedded, das Richtext-Feld "Body" ziehst du dann aber aus dem doc...

ata

Axel:
@ata

RTF-Felder können anscheinend doch in Profildokumenten verwendet werden. Mir war so, irgendwo gelesen zu haben, dass es nicht möglich sei.

Allerdings gibt es in manchen Fällen doch Probleme.

Siehe hier:

http://www-1.ibm.com/support/docview.wss?rs=203&q=document%2BText%2BProfile%2BRich&uid=sim1030e2dc1c4a4e67285256c250071eb3c


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite