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

gelöst Suche ein Script das Ordner durchsucht und Dateien per E-Mail weiterschickt?

Mitglied: Heros83

Heros83 (Level 1) - Jetzt verbinden

15.09.2010 um 14:12 Uhr, 4910 Aufrufe, 11 Kommentare

Hallo Leute,

Ich benötige ein Script mit dem ich einen Ordner nach dateien durchsuche. Und die gefundenen Dateien über Smtp per mail weiter verschickt an eine beliebige E-mail - Adresse?

ich habe eine Datei "mail.vbs erstellt:

Set fs = CreateObject("Scripting.FileSystemObject")


Sub FileSearch(pfad)

Set ordner = fs.GetFolder(pfad)

Set dateien = ordner.files

For Each datei In dateien

If LCase(fs.GetExtensionName(datei.Name)) = "tiff" Then WScript.Echo datei.Path

objMessage.Subject = "Example CDO Message"
objMessage.Sender = "yyy@yyy.de"
objMessage.To = "xxx@yyy.de"
objMessage.TextBody = "This is some sample message text."



objMessage.Send

Next

End Sub

FileSearch("C:\temp\test")

Der Ordner wird durchsucht nach einer Tiff Datei, und sendet mir eine E-mail, aber wie kann ich jetzt die gefundene Datei an die E-mail anhängen?

Vielen Dank für eure Hilfe


MFG

Heros83
Mitglied: 76109
15.09.2010 um 14:55 Uhr
Hallo Heros83!

Könnte in etwa so funktioneren:
objMessage.Attachments.Add Datei.Path

Gruß Dieter
Bitte warten ..
Mitglied: Heros83
15.09.2010 um 15:22 Uhr
Das hätte ich schon versucht, funktioniert leider nicht! Kommt immer eine fehlermeldung das dies nicht unterstüzt wird!
Bitte warten ..
Mitglied: 60730
15.09.2010 um 17:08 Uhr
Servus Ddidi,

Zitat von 76109:
Hallo Heros83!

Könnte in etwa so funktioneren:
objMessage.Attachments.Add Datei.Path

*grübel* nicht so?
objMessage.AddAttachment "datei.Path"

Gruß Dieter
retour
Bitte warten ..
Mitglied: 76109
15.09.2010 um 19:46 Uhr
Hallo Timo!

Zitat von 60730:
> Könnte in etwa so funktioneren:
> || objMessage.Attachments.Add Datei.Path ||
Die Syntax sollte in VB, VB-Net und Outlook laut Microsoft schon stimmen
*grübel* nicht so?
objMessage.AddAttachment "datei.Path"
Datei.Path in Anführungszeichen geht schon mal garnicht. Datei ist ein Object (siehe Each-Schleife) und Datei.Path liefert einen String in Anführungszeichen.

Ich denke, dieselmal liegts Du daneben *Grübel*

Gruß Dieter
Bitte warten ..
Mitglied: bastla
15.09.2010 um 19:51 Uhr
Hallo Heros83!

Du willst wirklich für jede gefundene Datei eine eigene Mail verschicken? Wenn ja, könntest Du es so versuchen:
01.
... 
02.
objMessage.TextBody = "Datei """ & datei.Path & """ gefunden." 
03.
...
Grüße
bastla
Bitte warten ..
Mitglied: 76109
15.09.2010 um 20:00 Uhr
Hallo bastla!

Zitat von bastla:
Du willst wirklich für jede gefundene Datei eine eigene Mail verschicken? Wenn ja, könntest Du es so versuchen:
01.
... 
02.
objMessage.TextBody = "Datei """ & datei.Path & """ gefunden." 
03.
...
Glaube nicht, das das funktioniert. TextBody kann nur Text und keine Bilder anzeigen. HTMLBody wäre eventuell eine Möglichkeit

Gruß Dieter
Bitte warten ..
Mitglied: bastla
15.09.2010 um 20:04 Uhr
Hallo Dieter!

Kann natürlich nicht für den tatsächlich gewünschten Zweck funktionieren - mir war vorhin noch nicht klar, dass tatsächlich die Datei selbst verschickt werden soll ...

Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
16.09.2010 um 05:43 Uhr
Hallo zusammen,

ich hatte mal irgendwo dieses Beispiel gefunden:
01.
Set oOApp = CreateObject("Outlook.Application") 
02.
Set oOMail = oOApp.CreateItem(olMailItem) 
03.
 
04.
SkriptPfad = "D:\1\2010\" 
05.
 
06.
oOMail.display ' Fenster anzeigen 
07.
oOMail.To = "xyz@mail.de" 
08.
oOMail.CC = "report@mail.de" 
09.
oOMail.Subject = "Automatisierter Report" 
10.
oOMail.Body = "Text" 
11.
oOMail.Attachments.Add (SkriptPfad & "Report.doc") 
12.
 
13.
Set WshShell = WScript.CreateObject("WScript.Shell") 
14.
WScript.Sleep 500 
15.
WshShell.AppActivate oOMail 
16.
WScript.Sleep 500 
17.
oOMail.display ' Fenster anzeigen 
18.
 
das funktionierte zu Testzwecken bei mir. Eventuell kannst du, Heros83, da Auszüge von benutzen und dein
Script entsprechend umschreiben.

Eigentlich musst du die Pfadangabe nur in "(" Klammern setzen!

Gruss
Tsuki
Bitte warten ..
Mitglied: 76109
16.09.2010 um 07:54 Uhr
Hallo Tsuki!

Mir ist eingefallen, dass ich ja Outlook auf'm virtuellen PC installiert habe und selbst mal getestet. Es funktioniert sowohl mit Klammern als auch ohne Klammern, was es eigentlich auch tun sollte

Jetzt ist die Frage, ob Heros83 überhaupt Outlook verwendet oder vielleicht doch ein anderes E-Mail-Programm, dass diese Funktion tatsächlich nicht unterstützt?

Ich vermute mal letzteres, da es meines Wissens in Outlook aus Sicherheitsgründen nicht möglich ist, E-Mails vollautomatisiert zu versenden. D.h. das nach dem Send-Befehl immer nochmal eine Abfrage erscheint, ob die Mail tatsächlich versendet werden soll?

Gruß Dieter
Bitte warten ..
Mitglied: Heros83
16.09.2010 um 09:00 Uhr
Hallo vielen Dank für eure Hilfe. ich habe jetzt eine funktionierende Lösung.

Das Script durchläuft mir den Ordner, schickt alle *.tiff Dateien weg und löscht sie anschließend:



Set fs = CreateObject("Scripting.FileSystemObject")

Sub FileSearch(pfad)

Set ordner = fs.GetFolder(pfad)

Set dateien = ordner.files



Set fso = CreateObject("Scripting.FileSystemObject")

For Each datei In dateien

Set objEmail = CreateObject("CDO.Message")
With objEmail
.From = "xx@yy.de"
.To = "yy@xx.de"
.Subject = "FAXEINGANG"
.Textbody = "NEUES FAX"
.AddAttachment datei
.Configuration.Fields.Update


If LCase(fs.GetExtensionName(datei.Name)) = "tiff" then objEmail.send

Set fso = CreateObject("Scripting.FileSystemObject")

IF LCase(fs.GetExtensionName(datei.Name)) = "tiff" then fso.GetFile(datei.path).Delete


End With

Next

End Sub

FileSearch("C:\Temp\Faxtest")
Bitte warten ..
Mitglied: 76109
16.09.2010 um 10:12 Uhr
Hallo Heros83!

Was ist das denn (kenn ich nicht)
Set objEmail = CreateObject("CDO.Message")

Toll! Freut mich, dass Du es bei dem ganzen Wirrwar doch hingekriegt hast

Timo kennt dieses Programm offensichtlich und hatte wieder mal Recht

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Windows 7

Explorer Suche: Netzlaufwerke können nicht mehr durchsucht werden

Frage von manibamWindows 73 Kommentare

Hallo zusammen Die Suche im Explorer funktioniert nur noch auf den lokalen Laufwerken, auf den Netzlaufwerken passiert nichts. Suchvorgang ...

Linux

E-Mail zu Datei

gelöst Frage von schneerunzelLinux4 Kommentare

Hallo zusammen, für einen unseren Verein möchte ich folgendes Umsätzen: ich habe ein Mailpostfach, welches ich bei Buchhaltungsrelevanten Mails ...

Batch & Shell

E-Mail aus Shell-Script senden

gelöst Frage von newit1Batch & Shell3 Kommentare

Hallo zusammen, da keine meiner Recherchen im Internet den gewünschen Erfolg gebracht hat, versuche ich es noch einmal hier. ...

E-Mail

Suche: kommerziellen E-Mail-Anbieter

gelöst Frage von FA-jkaE-Mail13 Kommentare

Hallo, ich suche für mich privat einen neuen E-Mail-Anbieter. Bis jetzt war ich mit Google Diensten sehr zufrieden; ich ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 3 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 3 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 4 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux22 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen17 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Windows Server
Domänencontroller trennen
Frage von Akit57Windows Server13 Kommentare

Hallo, ich hoffe das mir hier jemand meine Frage trotz der spärlichen Informationen die ich geben kann beantworten kann: ...

Router & Routing
VPN hinter zweiter Fritzbox nutzen im Nachbarhaus
gelöst Frage von georg2204Router & Routing11 Kommentare

Hallo zusammen, ich blicke hier leider nicht mehr so ganz durch. In Haus 1 steht eine Fritzbox 7390, diese ...