Hi,
das Einfügen von Dateien in ein Dokument kannst Du grundsätzlich mit folgenden Skript abwickeln:
Dim tmpDoc As NotesDocument
TmpDir = "C:\temp\"
Set tmpDoc = db.CreateDocument
Call tmpDoc.CreateRichTextItem("Anhang")
Set rtitem = tmpDoc.GetFirstItem("Anhang")
If Not rtitem Is Nothing Then
If rtitem.Type = RICHTEXT Then
Call rtitem.AddNewLine(1)
Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", TmpDir & "brief.doc")
Call tmpDoc.Save(True, True)
Call tmpDoc.PutInFolder(folderName)
End If
End If
Musst Du natürlich noch an Deine Gegebenheiten anpassen.
Ich hoffe das hilft Dir.
Gruß semtex
kann man hier nicht mit irgend einer Systembibliothek nachhelfen, die den Inhalt eines bestimmten Ordners (auf der Festplatte) zurück liefert ... müsste hier mal genauer schauen.
Hab da mal ein Script gemacht um automatisiert bestimmte Dateien in einem Verzeichnis zu löschen. Vielleicht hilft das ja ein wenig weiter:
' Dieser Script löscht alle Dateien im angegebenen Verzeichnis, die das Maximalalter erreicht haben.
' Script befindet sich im Testmodus zum "schärfen" REM vor MsgBox setzen und bei Filesystemobject entfernen
Ordner = "C:\Test\" ' zu durchsuchender Ordner
Alter = 2 ' maximalalter in Tagen
Set fso = CreateObject ("Scripting.FileSystemObject")
if fso.FolderExists(Ordner) then
set f = fso.GetFolder(Ordner)
set fc = f.Files
for each datei in fc
Generated = datei.DateLastModified
age = Abs(Datediff("d",now,Generated))
if age => Alter then
'fso.DeleteFile datei, True
MsgBox datei
end if
next
end if
hiermit solltest Du schon mal die Dateinamen herausbekommen. Ich habe hoffentlich richtig verstanden, dass der Pfad pro Mitarbeiter feststeht und Du lediglich herausbekommen musst, welche Files dort liegen.
Viele Grüße
cubetoon
Sub Click(Source As Button)
Set fso = Createobject ("scripting.filesystemobject")
back = fso.Folderexists("C:\Test\")
Messagebox back
If back = True Then
Set f = fso.GetFolder("C:\Test")
Set fc = f.Files
Forall datei In fc
Filename= fso.GetFileName(datei.path)
Messagebox Filename
End Forall
End If
End Sub
bin schon ein Stück voran gekommen, dank der DIR Funktion. Leider kann er die Dateien nicht Anhängen, da er die Dateien selber nicht findet. Liegt wohl daran, dass ich ihm kein Pfad zugewiesen haben, wo er suchen soll? Wenn ich den Pfad fest eingebe also " Set object = rtitem.EmbedObject
( EMBED_ATTACHMENT, "", "c:\test.txt"), dann klappt es. Wie kann ich den Pfad festlegen? Wobei ja gegeben sein muß, dass der Pfad sich ja immer ändert, da er ja die Ordner ändert.
Sub Test
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Eingabe = Inputbox$("Bitte Betreff eingeben (z.B. RPI 03/05)","Eingabe des Betreffs RPI-Mail")
If Eingabe = "" Then
Msgbox "Achtung!" & Chr(13) & "Sie haben nichts eingegeben."
Exit Sub
End If
fileNum% = Freefile()
Open "c:\dir.txt" For Output As fileNum%
pathName$ = "c:\test\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
fileName$ = Dir$()
Print #fileNum%, fileName$
Set rtItem = New NotesRichTextItem(doc,"Body")
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", (fileName$))
doc.Form = "Memo"
doc.Subject = Eingabe
doc.SendTo = "1@2.de"
Loop
Close fileNum%
Call doc.Send(False)
End Sub
Im Debugger zeigt er mir komischerweise unter Globals an, dass er im Verzeichnis c:\test ist, sagt aber trotzdem "test.bmp not found"