Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

VBA Outlook - Automatisierte Anhänge - Script erweitern

Frage Entwicklung VB for Applications

Mitglied: sokraTonis

sokraTonis (Level 1) - Jetzt verbinden

22.01.2015, aktualisiert 03.02.2015, 889 Aufrufe, 3 Kommentare, 1 Danke

Hallo Leute,

ich würde mein Script:

Sub AnlagenRewe(olMail As MailItem)

Dim att As Attachment, fso As Object, ziel As String, ziel1 As String, ziel2 As String,

Set fso = CreateObject("Scripting.FilesystemObject")

ziel1 = "T:\"
ziel2 = "T:\Fehler"

If olMail.Attachments.Count > 0 Then
If Not fso.FolderExists(ziel1) Then
MsgBox "Das primäre Ziel ist nicht verfügbar. Sekundäres Ziel wird angewählt. Administrator kontaktieren.", vbExclamation
If fso.FolderExists(ziel2) Then
ziel = ziel2
MsgBox "Die Datei wurde erfolgreich im sekundären Ziel gespeichert."
Exit Sub
Else
MsgBox "Das sekundäre Ziel ist nicht erreichbar. Administrator kontaktieren. Die Email wird nun geöffnet.", vbCritical
olMail.Display
Exit Sub
End If
Else
ziel = ziel1
End If
For Each att In olMail.Attachments
att.SaveAsFile ziel & "\" & att.FileName
Next
MsgBox "Die Datei wurde erfolgreich im primären Ziel T:\ gespeichert."
Else
MsgBox "Es ist kein Anhang vorhanden. Die E-Mail wird nun geöffnet.", vbInformation
olMail.Display
End If
End Sub

gern erweitern.

Ist es möglich, dass mir die Massagebox auch den Dateinamen ausgibt?
Ist es möglich, dass mir die Massagebox die Anzahl der gespeicherten Dateien ausgibt für den aktuellen Tag?
Ist es möglich, dass mir der Dateiname zusätzlich in eine -meinetwegen- Textdatei gespeichert wird (am besten mit Zeitstempel)?
Mitglied: 114757
LÖSUNG 22.01.2015, aktualisiert 03.02.2015
Lern erst mal die Formatierungen hier im Forum zu nutzen, damit sich hier nicht erst jemand den Code "zurechtrücken" muss damit man ihn einigermaßen lesen kann.

01.
'Öffentliche Variable die die Anzahl der Anlagen des Tages zwischenspeichert 
02.
Dim intDayCount as Integer 
03.
 
04.
Sub AnlagenRewe(olMail As MailItem) 
05.
	Dim att As Attachment, fso As Object, ziel As String, ziel1 As String, ziel2 As String, allAttachments As String 
06.
	Set fso = CreateObject("Scripting.FilesystemObject") 
07.
	 
08.
	'Logfile 
09.
	Const LOGFILE = "C:\temp\logfile.txt" 
10.
	ziel1 = "T:\" 
11.
	ziel2 = "T:\Fehler" 
12.
	 
13.
	 
14.
	If olMail.Attachments.Count > 0 Then 
15.
		If Not fso.FolderExists(ziel1) Then 
16.
			MsgBox "Das primäre Ziel ist nicht verfügbar. Sekundäres Ziel wird angewählt. Administrator kontaktieren.", vbExclamation 
17.
			If fso.FolderExists(ziel2) Then 
18.
				ziel = ziel2 
19.
				MsgBox "Die Datei wurde erfolgreich im sekundären Ziel gespeichert." 
20.
				Exit Sub 
21.
			Else 
22.
				MsgBox "Das sekundäre Ziel ist nicht erreichbar. Administrator kontaktieren. Die Email wird nun geöffnet.", vbCritical 
23.
				olMail.Display 
24.
				Exit Sub 
25.
			End If 
26.
		Else 
27.
			ziel = ziel1 
28.
		End If 
29.
		For Each att In olMail.Attachments 
30.
			att.SaveAsFile ziel & "\" & att.FileName 
31.
			'alle Attachments in einem String zusammenfassen 
32.
			allAtachments = allAttachments & att.Filename & vbNewLine 
33.
		Next 
34.
		intDayCount = intDayCount + olMail.Attachments.Count 
35.
		'Ausgabe der gespeicherten Dateien 
36.
		MsgBox "Die Datei(en) " & vbNewLine & allAttachments & vbNewline & "wurde(n) erfolgreich im primären Ziel T:\ gespeichert." & vbNewLine & "Heute wurden insgesamt schon " & intDayCount & " Anlagen gespeichert" 
37.
		'Schreibe die gespeicherten Anlagen in ein Logfile 
38.
		fso.OpenTextFile(LOGFILE,8).WriteLine "Am " & Now() & " wurden folgende Attachments gespeichert:" & vbNewLine & "=======================" & vbNewLine 
39.
	Else 
40.
		MsgBox "Es ist kein Anhang vorhanden. Die E-Mail wird nun geöffnet.", vbInformation 
41.
		olMail.Display 
42.
	End If 
43.
End Sub
Gruß jodel32
Bitte warten ..
Mitglied: 114757
LÖSUNG 29.01.2015, aktualisiert 03.02.2015
Den Beitrag dann bitte noch auf gelöst setzen.
Bitte warten ..
Mitglied: sokraTonis
03.02.2015 um 12:41 Uhr
Danke
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook vba Email Anhang in Ordner speichern (3)

Frage von Daywalkercxp zum Thema Outlook & Mail ...

Batch & Shell
gelöst Powershell Script für VHD Sicherung erweitern (7)

Frage von Sprudi zum Thema Batch & Shell ...

VB for Applications
Powershell Script aus VBA heraus ausführen (2)

Frage von mcnico1978 zum Thema VB for Applications ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows Server
gelöst Kopiervorgang schlägt fehl, weil Datei- und Ordnername zu lang sind (14)

Frage von Schroedi zum Thema Windows Server ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...