Per VBS Script Ordner überwachen und Inhalt per E-Mail verschicken!
Hallo zusammen!
habe folgendes Problem beim erstellen eines Scrips!
Ich erzeuge über ein PDF Creater eine Dokument das in einen festem Ordner auf einem XP Client abgelegt wird! Nun brauche ich eine Script der diesen Ordner zeitlich (ca. 5 Minuten) auf neue Daten überprüft! Bei Eingang eines neuen Dokuments soll dieses an eine feste E-Mail Adresse verschickt werden und das Dokument nach dem Versenden in einen Sicherungsordner verschoben werden!
Da ich mit Scripten nicht wirklich erfahrung habe und ich auch leider keinen Passenden Beitrag gefunden habe bin ich für jede hilfe Dankbar.
Ich habe versucht aus bestehenden Beiträgen ein Script zu basteln, hat aber leider nicht geklappt!
Im voraus schonen mal vielen Dank
Gruß Wolfgang
habe folgendes Problem beim erstellen eines Scrips!
Ich erzeuge über ein PDF Creater eine Dokument das in einen festem Ordner auf einem XP Client abgelegt wird! Nun brauche ich eine Script der diesen Ordner zeitlich (ca. 5 Minuten) auf neue Daten überprüft! Bei Eingang eines neuen Dokuments soll dieses an eine feste E-Mail Adresse verschickt werden und das Dokument nach dem Versenden in einen Sicherungsordner verschoben werden!
Da ich mit Scripten nicht wirklich erfahrung habe und ich auch leider keinen Passenden Beitrag gefunden habe bin ich für jede hilfe Dankbar.
Ich habe versucht aus bestehenden Beiträgen ein Script zu basteln, hat aber leider nicht geklappt!
Im voraus schonen mal vielen Dank
Gruß Wolfgang
Please also mark the comments that contributed to the solution of the article
Content-Key: 108088
Url: https://administrator.de/contentid/108088
Printed on: April 19, 2024 at 23:04 o'clock
4 Comments
Latest comment
Also im eigentlichen ist das ja keine große Sache.
Ein VBS das den Ordnerninhalt ausliest und falls mehr als nix drinne is ab damit als email am besten über Outlook als attachment an die Zieladresse.
Ich hab das mal grob zusammenkopiert, keien gewähr aber es könnte klappen
Ein VBS das den Ordnerninhalt ausliest und falls mehr als nix drinne is ab damit als email am besten über Outlook als attachment an die Zieladresse.
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
Ich hab das mal grob zusammenkopiert, keien gewähr aber es könnte klappen