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

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

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
gelöst VBA Outlook - Mail delivery system (5)

Frage von carolin.zelda zum Thema VB for Applications ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

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

Frage von mcnico1978 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

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

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...