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

Neueste Datei anfügen.bat

Frage Entwicklung Batch & Shell

Mitglied: Questionmark93

Questionmark93 (Level 1) - Jetzt verbinden

06.10.2014, aktualisiert 11:33 Uhr, 801 Aufrufe, 6 Kommentare

Guten Morgen zusammen =)

Ich hätte da mal eine Frage und zwar

Ich würde gerne eine .bat erstellen die folgendes kann:


1. Eine Outlook Nachricht erstellen
2. Empfänger (sample@gmail.com) einfügen
3. Betreff: "Löhne" einfügen
4. In die Nachricht C:\DiesDas\PDF\alles\Neustes erstelltes PDF anfügen
5. In die Nachricht \\Server\Stick\Dokumente\Neuste erstellte Datei anfügen
6. Die Nachricht nicht senden, sondern im Feld für den Nachrichtentext stehen bleiben

würde das denn gehen?

Vielen Dank schon einmal im Voraus
Freundliche Grüße

Jeremy
Mitglied: colinardo
LÖSUNG 06.10.2014, aktualisiert um 11:33 Uhr
Hallo Jeremy,
mit VBS geht das z.B. :
01.
Dim strFile1,strFile2,objMail, fso, objOutlook 
02.
'--------------------------------------- 
03.
Const FOLDER1 = "C:\DiesDas\PDF\alles" 
04.
Const FOLDER2 = "\\Server\Stick\Dokumente" 
05.
 
06.
Const MAILTO = "sample@gmail.com" 
07.
Const SUBJECT = "Löhne" 
08.
Const BODY = "Die Löhne finden sie im Anhang." 
09.
 
10.
'--------------------------------------- 
11.
Set fso = CreateObject("Scripting.Filesystemobject") 
12.
Set objOutlook = CreateObject("Outlook.Application") 
13.
 
14.
strFile1 = getNewestFile(FOLDER1, "pdf") 
15.
strFile2 = getNewestFile(FOLDER2, "") 
16.
 
17.
Set objMail = objOutlook.CreateItem(0) 
18.
With objMail 
19.
	.To = MAILTO 
20.
	.Subject = SUBJECT 
21.
	.Body = BODY 
22.
	If strFile1 = "" Then  
23.
		MsgBox "Es wurde keine Datei in Ordner 1 gefunden", vbExclamation 
24.
	Else 
25.
		.Attachments.Add strFile1 
26.
	End If 
27.
	If strFile2 = "" Then  
28.
		MsgBox "Es wurde keine Datei in Ordner 2 gefunden", vbExclamation 
29.
	Else 
30.
		.Attachments.Add strFile2 
31.
	End If 
32.
	.Display 
33.
End With 
34.
 
35.
Set fso = Nothing 
36.
Set objOutlook = Nothing 
37.
 
38.
Function getNewestFile(strFolder,strType) 
39.
	Set objFile = Nothing 
40.
	For Each file In fso.GetFolder(strFolder).Files 
41.
		If strType <> "" Then 
42.
			If fso.GetExtensionName(file.Path) = strType Then 
43.
				If objFile Is Nothing Then 
44.
					Set objFile = file 
45.
				ElseIf (file.DateLastModified > objFile.DateLastModified) Then 
46.
					Set objFile = file 
47.
				End If 
48.
			End If 
49.
		Else 
50.
			If objFile Is Nothing Then 
51.
				Set objFile = file 
52.
			ElseIf (file.DateLastModified > objFile.DateLastModified) Then 
53.
				Set objFile = file 
54.
			End If 
55.
		End If 
56.
	Next 
57.
	If Not objFile Is Nothing Then 
58.
		getNewestFile = objFile.Path 
59.
	Else 
60.
		getNewestFile = "" 
61.
	End If 
62.
End Function
Grüße Uwe
Bitte warten ..
Mitglied: Questionmark93
06.10.2014 um 11:34 Uhr
Perfekt das klappt prima, nun möchte ich aber bei den PDF Dateien noch, da es 2 neue Files sind, das es beide nimmt, ginge das auch? =)
Bitte warten ..
Mitglied: colinardo
LÖSUNG 06.10.2014, aktualisiert um 14:06 Uhr
Zitat von Questionmark93:

Perfekt das klappt prima, nun möchte ich aber bei den PDF Dateien noch, da es 2 neue Files sind, das es beide nimmt, ginge
das auch? =)
01.
Dim objMail, objOutlook,oList 
02.
'--------------------------------------- 
03.
Const FOLDER1 = "C:\Ordner1" 
04.
Const FOLDER2 = "C:\Ordner2" 
05.
 
06.
Const MAILTO = "sample@gmail.com" 
07.
Const SUBJECT = "Löhne" 
08.
Const BODY = "Dein Body" 
09.
 
10.
'--------------------------------------- 
11.
Set objOutlook = CreateObject("Outlook.Application") 
12.
 
13.
Set objMail = objOutlook.CreateItem(0) 
14.
With objMail 
15.
	.To = MAILTO 
16.
	.Subject = SUBJECT 
17.
	.Body = BODY 
18.
	'Dateien im Ordner 1 einlesen 
19.
	Set oList = getNewestFiles(FOLDER1,"pdf") 
20.
	If oList.RecordCount > 0 Then 
21.
		oList.MoveFirst 
22.
		For i = 1 To oList.RecordCount 
23.
			If i = 3 Then Exit For 
24.
			.Attachments.Add oList.Fields("name").Value 
25.
			oList.MoveNext 
26.
		Next 
27.
		oList.Close 
28.
	Else 
29.
		MsgBox "Keine entsprechenden Dateien im Ordner 1 gefunden" 
30.
	End If 
31.
	'Dateien im Ordner 2 einlesen 
32.
	Set oList = getNewestFiles(FOLDER2,"xml") 
33.
	If oList.RecordCount > 0 Then 
34.
		oList.MoveFirst 
35.
		.Attachments.Add oList.Fields("name").Value 
36.
		oList.Close 
37.
	Else 
38.
		MsgBox "Keine entsprechenden Dateien im Ordner 2 gefunden" 
39.
	End If 
40.
	.Display 
41.
End With 
42.
 
43.
Set objOutlook = Nothing 
44.
Set oList = Nothing 
45.
Set objMail = Nothing 
46.
 
47.
'Bestimmte Dateien eines Verzeichnisses in ein Recordset einlesen und Absteigend nach Datum sortieren 
48.
Function getNewestFiles(strFolder,strEXT) 
49.
	Set objList = CreateObject("ADOR.Recordset") 
50.
	Set fso = CreateObject("Scripting.Filesystemobject") 
51.
	objList.Fields.Append "name", 200, 255 
52.
	objList.Fields.Append "date", 7 
53.
	objList.Open 
54.
	For Each file In fso.GetFolder(strFolder).Files 
55.
		If fso.GetExtensionName(file.Path) = strEXT Then 
56.
			objList.AddNew 
57.
			objList("name").Value = file.Path 
58.
			objList("date").Value = file.DateLastModified 
59.
			objList.Update 
60.
		End If 
61.
	Next 
62.
	objList.Sort = "date DESC" 
63.
	Set getNewestFiles = objList 
64.
	Set fso = Nothing 
65.
End Function
Bitte warten ..
Mitglied: Questionmark93
06.10.2014 um 13:27 Uhr
ich will beim 2ten, das er mir die letzte xml Datei ausgibt
ich bekomm das grad nicht auf die Reihe :D
Bitte warten ..
Mitglied: colinardo
06.10.2014, aktualisiert um 13:32 Uhr
Zitat von Questionmark93:
ich will beim 2ten, das er mir die letzte xml Datei ausgibt
ich bekomm das grad nicht auf die Reihe :D
kommt alles tröpfchenweise bei dir ...schreib das oben doch gleich richtig in deinen Post
ist im letzten Post ensprechend angepasst ....
Bitte warten ..
Mitglied: Questionmark93
06.10.2014 um 13:41 Uhr
Vielen Vielen Dank
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Neueste Datei mit Batch suchen
gelöst Frage von thilo-55Batch & Shell4 Kommentare

Ein herzliches Hallo an die Teilnehmer des Forums. Leider komme ich mit meinen batch/dos-Kenntnissen nicht mehr weiter. Evtl. kann ...

Batch & Shell
Neue Dateien an BLAT übergeben
gelöst Frage von xgUixBatch & Shell13 Kommentare

Hallo Leute, ich habe einen Ordner mit diversen PDF Datein. Jeden Ersten im Monat kommen neue Dateien hinzu. Diese ...

Batch & Shell
Ordnerabfrage ob neue Dateien vorhanden
gelöst Frage von BigibobBatch & Shell1 Kommentar

Hallo Gemeinde, ich verwenden z.Z AVM Fritzfax für ISDN. die Software schiebt die Anhänge auf ein Netzlaufwerk. Gibt es ...

Batch & Shell
Dateien eines Tages zusammenführen und in einer neuen Datei speichern
gelöst Frage von Sven289Batch & Shell4 Kommentare

Hallo, ich bin auf der Suche nach einem Script, dass mehrere .txt-Dateien zusammenführt und diese in einer neuen Datei ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 8 StundenBatch & Shell8 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 10 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 1 TagSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...

Batch & Shell
Neuste Datei via PowerShell kopieren
gelöst Frage von kaiuwe28Batch & Shell11 Kommentare

Hallo zusammen, ich hatte mir mit Hilfe der Suche im Forum einen kleinen Code von colinardo rausgesucht und versucht ...