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

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, 905 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
VB for Applications
Outlook VBA - Anhang autom. speichern
gelöst Frage von sokraTonisVB for Applications8 Kommentare

Hallo, ich bekomme an eine bestimmte E-Mail-Adresse immer wieder Nachrichten mit einem Anhang. Der Name vom Anhang ist immer ...

Outlook & Mail
Outlook vba Email Anhang in Ordner speichern
gelöst Frage von DaywalkercxpOutlook & Mail3 Kommentare

Liebe Community, Ich bin am verzweifeln, da ich einfach nicht auf die Lösung komme. Daher hoffe ich das es ...

Batch & Shell
Automatisiertes bash Script
gelöst Frage von SpeakerSTBatch & Shell5 Kommentare

Hallo, ich hoffe mir kann hier jemand helfen. Ich versuchen uns unsere Linux Installation zu Autmoatisieren. Dabei sollen Teil ...

Microsoft Office
Excel Serienbrief VBA mit Standardtext und Anhang
gelöst Frage von xfilesMicrosoft Office5 Kommentare

Hallo Leute, ich habe folgendes Problem: Ich habe eine Excel Datei mit mehreren Mail Adressen. Diese sollen alle eine ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 4 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 9 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 9 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 21 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...