Kannst Du mir das etwas genauer erklären (ich bin noch nicht so fit in Script)? wo muß ich das einsetzen bzw. wie verwende ich das? Ich hänge am besten mal mein script mit rein.
Grabby
Sub Initialize
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 Variant
Dim Pfad As String
Dim Verzeichnis As String
Dim Verzeichnis_1 As String
Dim Filename As String
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 & "\" & Titel
Verzeichnis_1 = Pfad & KST
If Dir$(Verzeichnis_1, 16) = "" Then
Set doc = view.GetNextDocument(doc)
Else
Set rtitem = New NotesRichTextItem(doc,"FA_Foto")
If Not doc.HasEmbedded And Titel <> "" Then
If Dir$(Verzeichnis, 0) = "" Then
Set doc = view.GetNextDocument(doc)
Else
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", Verzeichnis)
Call doc.Save( True, True )
Set doc = view.GetNextDocument(doc)
End If
Else
Set doc = view.GetNextDocument(doc)
End If
End If
Loop
