Attachment abspeichern

[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

[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

[Don Pasquale]

Hallo Axel, hallo ata

Vielen Dank für Eure Hilfe

... mir ist noch was aufgefallen:

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

ata

Das war des Pudels Kern.

Leider bin ich nicht sehr viel weiter gekommen, denn es gibt wohl verschiedene Möglichkeiten eine Datei in einem Notes DOkument zu speichern.

Die Worddateien, die ich mit "Anhängen" an das NotesDokument dranhänge werden von dieser Routine NICHT erfasst, sondern nur WordDokumente die als Objekt eingebettet sind.
Wie kann ich aber angehängte dateien abspeichern ?

Ciao
Don Pasquale

[ata]

@Axel

... danke für den Hinweis mit den DocLinks, die in Profildokumenten nicht funktionieren. Generell verhält sich eine Profilmaske aber wie eine gewöhnliche Maske... mit dieser Ausnahme eben...

ata

[sloe]

Hi,
bei den Zeilen
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
gibt es nur Probleme, wenn das doc kein Body-Field hat oder das doc nicht gefunden wird.
Sowohl
Set object = doc.GetAttachment( "hurz.doc" )
als auch
Set object = rtitem.GetEmbeddedObject( "hurz.doc" )
lassen sich bei mir zum "abhängen" verwenden.
sloe