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
