Voraussetzung für dieses Script ist die ASPEMail Komponente von Persits.

Set Mail = CreateObject(“Persits.MailSender”)
set fs=CreateObject(“Scripting.FileSystemObject”)
set r=fs.OpenTextFile(“c:\meintextfile.txt”)
Mail.Host = “SMTP HOST”
Mail.From = from@festplatte.ch
Mail.AddAddress to@festplatte.ch
Mail.Subject = “Betreff Textfile auslesen”
Mail.Body = “File in E-Mail abbilden” & chr(10) & chr(10)
Mail.Body = Mail.Body + r.readall Mail.Send set r = nothing set Mail = nothing

Share