Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 763 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(6)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
Mehrere.csv Dateien zusammenfügen zu einer Datei mit bat (4)

Frage von Piotrney zum Thema Batch & Shell ...

Batch & Shell
gelöst Per Batch nur neueste Datei mit bestimmten Dateianfang kopieren (3)

Frage von Peter32 zum Thema Batch & Shell ...

Windows Server
gelöst Sichtbares Ausführen einer BAT-Datei mittels GPOs (10)

Frage von DasWombat1993 zum Thema Windows Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (17)

Frage von Unwichtig zum Thema Netzwerkmanagement ...