Domino 9 und frühere Versionen > Entwicklung

Frage zu "EmbedObject"

(1/2) > >>

Grabby:
Hallo zusammen.

Ich versuche, einen Agenten zu erstellen, der eine View durchlaufen soll, jedes Dokument anfasst, KST und Dateinamen aus den Felder ausliest, dann auf ein Netzwerklaufwerk (s. Verzeichnis) geht und nach der Datei (s. Dateinamen) sucht. Diese Datei wird dann in das Dokument gehängt und das Dokument gespeichert.

Das Verzeichnis setzt sich einmal aus dem Pfad (V:\\VERW\\....) und dem Wert des Feldes KST zusammen, der identisch mit dem Ordnernamen in dem o.a. Pfad ist.

(z.B.   V:\\VERW\\Informatik\\Bilder\\136   )

Jedoch scheint es ein Problem mit meinem Pfad zu geben. Hat irgendeiner einen Rat oder kann sich mal mein beigefügtes Script anschauen. Würde mich über jeden Tip freue.

Grabby  ::) ::)


Dim Session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim Titel As String
Dim KST As String
Dim Pfad As String
Dim Verzeichnis As String

Sub Initialize
   Set session = New NotesSession   
   
   Set db = session.CurrentDatabase
   
   Set view = db.GetView("(Alle Fotos)")
   
   Set doc = view.GetFirstDocument
   
   Do While Not (doc Is Nothing)
      
      KST = doc.FA_KST(0)
      Pfad = "V:\\VERW\\Informatik\\Bilder\\"
      
      Titel = doc.FA_Foto_Name(0)
      
      Verzeichnis = Pfad & KST & "\\"
      
      Msgbox Titel
      
      Set rtitem = doc.GetFirstItem("FA_Foto")
      
      If Not doc.HasEmbedded And Titel <> "" Then
         
         
      Set object = rtitem.EmbedObject _
         ( EMBED_ATTACHMENT, "", Verzeichnis & Titel)         
         
         Call doc.Save( True, True )
         
         Set doc = view.GetNextDocument(doc)
      Else
         Set doc = view.GetNextDocument(doc)
      End If
   Loop
End Sub

Axel:
Hi,

versuch's mal mit einfachen Backslashes.


Axel

Grabby:
Sorry, aber egal, wie ich die Schreibweise vornehme  (/  //   \  oder \\  ) nichts scheint zu klappen. Fehlermeldung "Object varible not set" tritt in der Zeile  Set object = ... auf.

Ich weiß nicht mehr weiter   ???
Grabby

Till_21:
dann schau dir mal die fehlermeldung an :
die besagt naemlich, dass RTITEM nicht gesetzt ist,
daraus kann man wieder folgern, dass es irgendwie das feld FA_FOTO nicht gibt...

gruss

wflamme:
Set rtitem = New NotesRichTextItem(doc,"FA_FOTO")

und dann natürlich Pfad ohne doppelten Backslash, Escape-Char braucht's bei LS nur dann, wenn Du den verwendeten String-Delimiter (", | oder {}) selbst in der Zeichenkette verwendest.

Navigation

[0] Themen-Index

[#] Nächste Seite