Kein Excel: per VBScript Email erzeugen
10.11.2004 22:01:33
Stefan
vieleicht kann mir hier einer helfen.
Ich verschiebe per VBScript (Ausführung per Taskplaner) Dateien von einem Ordner in einen anderen. Dabei werden diese umbenannt.
Um nun nicht dauernd in den Zielordner gucken zu müssen möchte ich mich jedesmal benachrichtigen, wenn Dateien verschoben werden. Dies mache ich bisher per msgbox. Nun bin ich aber nicht jedesmal am Server wenn Dateien verschoben werden und möchte mich per Email benachrichtigen lassen.
hier das script
Dim fso, f, f1, z, sf, nfilename
Set fso = CreateObject("Scripting.FileSystemObject")
Set sf = fso.GetFolder(InPfad)
Set f = sf.Files
z = 1
For Each f1 in f
strTempFile = fso.GetTempName
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
nfilename = OutPfad & "\" & left(strTempFile,len(strTempFile) - 4) & "-" & dtmThisYear & dtmThisMonth & dtmThisDay & "_" & z & ".aka"
' MsgBox "Neuer Filename: " & nfilename & f1,32,"Files"
z = z + 1
f1.Copy(nfilename)
f1.delete
Next
wie generiere ich nun eine mail an name@firma.de mit dem Betreff "Neue Datei vorhanden"?
Das script ist von einem Bekannten, den ich nicht Fragen kann und von VBA habe ich keine Ahnung