Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Grabby am 05.02.03 - 14:00:05

Titel: Frage zu "EmbedObject"
Beitrag von: Grabby am 05.02.03 - 14:00:05

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

Titel: Re:Frage zu "EmbedObject"
Beitrag von: Axel am 05.02.03 - 14:08:27

Hi,

versuch's mal mit einfachen Backslashes.


Axel

Titel: Re:Frage zu "EmbedObject"
Beitrag von: Grabby am 05.02.03 - 14:31:32

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

Titel: Re:Frage zu "EmbedObject"
Beitrag von: Till_21 am 05.02.03 - 14:55:19

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

Titel: Re:Frage zu "EmbedObject"
Beitrag von: wflamme am 05.02.03 - 15:13:23

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.

Titel: Re:Frage zu "EmbedObject"
Beitrag von: Grabby am 05.02.03 - 15:53:06

Vielen Dank. Das hat jetzt schon einmal geklappt.
Aber wie kann ich es jetzt unterbinden, dass er mir eine Fehlermeldung auswirft und das Script abbricht, sofern in dem gewählten Verzeichnis keine Datei mit dem angegebenen Namen zu finden ist? Kann ich das irgendwie abfangen?

Grabby

Titel: Re:Frage zu "EmbedObject"
Beitrag von: wflamme am 05.02.03 - 16:00:22

If Dir$(FilePathName$, 0)<>"" Then
'FilePathName existiert...