Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

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

Mitglied: roline

roline (Level 1) - Jetzt verbinden

04.02.2009, aktualisiert 20:57 Uhr, 12220 Aufrufe, 4 Kommentare

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
Mitglied: godlie
05.02.2009 um 07:35 Uhr
Wie sieht denn das aus in dem Ordner? Liegt dort immer nur diese 1 Datei oder passierts das dort mehrere liegen?
Wie sieht der DAteinamen aus?
Bitte warten ..
Mitglied: roline
05.02.2009 um 12:57 Uhr
Hallo Godlie,

also es kann vorkommen das auf einmal zwei drei oder nochmehr Daten eintreffen! Es ist ein Sammelordner der von
mehreren Personen angesprochen wird!

Die Datei bildet sich aus dem Datum und dem Juser der die Datei eingestellt hat (ohne jegliche Trennzeichen).

Ach und danke für die schnelle Reaktion.

Gruß Wolfgang
Bitte warten ..
Mitglied: godlie
05.02.2009 um 14:10 Uhr
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.

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
Bitte warten ..
Mitglied: roline
05.02.2009 um 14:30 Uhr
Super vielen Dank,

ich bin leider nicht so fit mit solchen Skripten, für dich scheint es ja spielerei zu sein!

Ich werde dann mal versuchen meine Daten einzufügen und hoffe das es funktioniert!

Danke bis hierhin!

Wolfgang
Bitte warten ..
Ähnliche Inhalte
Windows Tools

Bildschirmbereich überwachen - E-Mail

gelöst Frage von philcoWindows Tools9 Kommentare

Hallo, kennt jemand ein Programm mit dem ich einen gewissen Bildschirmbereich, oder Bildschirmpixel auf Änderungen überwachen kann? An einer ...

Backup

E-Mail Benachrichtigungen von Datensicherungen Überwachen

Frage von manuelwBackup5 Kommentare

Hallo, wir haben bei unseren Kunden verschiedenste Backup Lösungen im Einsatz. Dabei handelt es sich um Versionen von Backup ...

E-Mail

Gefälschte E-Mail-Inhalte mit anderen Kontoinformationen

gelöst Frage von lasterE-Mail17 Kommentare

Hallo, habe diese Woche von zwei Firmen gehört, die das gleiche Problem haben - sie bekommen kein Geld von ...

E-Mail

E-Mail Archivieren - Externe Inhalte

Frage von leon123E-Mail1 Kommentar

Hallo zusammen, wie würdet Ihr beim E-Mail Archivieren mit externen Inhalten umgehen, wenn ich diese als HTML speichern will. ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 2 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 8 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 22 StundenSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server38 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless21 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...