Per VBS Script Ordner überwachen und Inhalt per E-Mail verschicken!

Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment
Dim ol, ns, newMail

set fs = createobject("Scripting.FileSystemObject")
Set direc = fs.getfolder("E:\test\")
If direc.files.Count > 0 Then
'versenden der datei mittels outlook
ToAddress = "Presley, Elvis"
MessageSubject = "Don't be cruel"
MessageBody = "Tutti Frutti"
MessageAttachment = "d:\work\report.txt"
' connect to Outlook
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")

Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf

' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
  MsgBox "Unknown recipient"
Else
  newMail.Recipents.Add(ToAddress)
  newMail.Attachments.Add(MessageAttachment).Displayname = "Check this out"
  newMail.Send
End If

Set ol = Nothing

'verschieben der datei in das gewünschte zielverzeichnis
origin="c:\test\a\a.txt"
target = "c:\test\b\"
Set f1 = fs.GetFile(origin)
f1.Move (target)

End if