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

Makro ausführen: Liste ist leer

Frage Microsoft Outlook & Mail

Mitglied: mupan7

mupan7 (Level 1) - Jetzt verbinden

28.11.2014, aktualisiert 12:40 Uhr, 1216 Aufrufe, 3 Kommentare

Bin sicher kein VBA-Neuling, aber mit Outlook, seinem riesigen Objektmodell und seinem <gnx$$§%&> Sicherheitssystem habe ich noch kaum Erfahrung.

Hab ein simples Skript im Netz gefunden, der Plan ist, es weiter anzupassen, auszuprobieren und dann an eine Regel zu hängen. Es soll dann ca. 80 Mitarbeitern die tägliche Arbeit erleichtern.

01.
Public Sub SaveAllAttachmentsOfThisMailToDisk(olMail As MailItem) 
02.
 
03.
    'http://www.webdata.de/index.php/blogs/trainernews-kai-weible/226-outlook-tipp-3-dateianhaenge-automatisch-speichern.html 
04.
    Dim strPfad As String 
05.
    Dim Datei As Attachments 
06.
    Pfad = "C:\...\...\"   'Der Pfad muss entsprechend angepasst werden. Wichtig ist der letzte Backslash 
07.
 
08.
    On Error Resume Next 
09.
 
10.
    Set Datei = olMail.Attachments 
11.
    For i = 1 To Datei.Count 
12.
        Datei.Item(i).SaveAsFile strPfad & Datei.Item(i).FileName 
13.
    Next i 
14.
 
15.
End Sub
Ich hab es im VbaProjekt.OTM in ThisOutlookSession gespeichert. Es ist Public deklariert. DEP ist aus, Makrosicherheit ganz unten. Trotzdem ist die Liste mit Alt+F8 leer. Was kann ich noch checken? gpedit.msc, gpresult.exe, secpol.msc, wenn ja, wo da genauer? Vermutlich muss ich mich auch mit den Windows-Internetoptionen auseinandersetzen? Ich darf den Avira-Schild nicht testweise deaktivieren, also wenn es der sein sollte, muss ich genau wissen, welche Ausnahme ich beantrage und in 5 Wochen vielleicht mal abgelehnt oder eingetragen kriege. Ich nehme an, der Exchange ist auch sensibel für VBA-Sicherheitskonfiguration. Es macht aber keinen Unterschied, ob die ausgewählte Mail in der Inbox und damit auf dem Exchange liegt oder ob ich sie in einen lokalen Ordner verschoben habe, bevor ich den Makro neu zu starten versuche.

Ich würde mich über Hinweise, wo ich die Antwort ggf. selbst finden kann, sehr freuen.

Danke schonmal fürs Lesen.

mupan
Mitglied: mupan7
28.11.2014 um 11:30 Uhr
OK, die Teil-Frage "Welche GPOs checken?" kann ich mir vermutlich aus http://www.administrator.de/forum/makro-in-office2013-verbieten-256087. ... selbst beantworten.
Bitte warten ..
Mitglied: 114757
LÖSUNG 28.11.2014, aktualisiert um 12:40 Uhr
Public Sub SaveAllAttachmentsOfThisMailToDisk(olMail As MailItem) 
wenn du kein VBA Neuling bist sollte dir der Parameter der Prozedur auffallen !! Du übergibst dieser ja überhaupt kein Mailitem ...

Nehme das NewMailEx Event das bei jeder eintreffenden Mail ausgeführt wird.
http://www.administrator.de/forum/outlook-newmailex-oder-newmail-250389 ...

Gruß jodel32
Bitte warten ..
Mitglied: mupan7
28.11.2014 um 12:44 Uhr
Zitat von 114757:

> Public Sub SaveAllAttachmentsOfThisMailToDisk(olMail As MailItem) 
wenn du kein VBA Neuling bist sollte dir der Parameter der Prozedur auffallen !! Du übergibst dieser ja überhaupt kein
Mailitem ...

Nun, ich habe fantasiert, dass olMail automatisch übergeben wird, so wie das control-Handle bei Makro-Rufen aus den Ribbons heraus. Ist also nicht so. Hat aber auch keine Auswirkung auf die Alt+F8-Liste, ob ich einen existierenden oder nicht-existierenden Parameter übergebe ... Wichtig ist, dass zwischen den ( ) gar nichts steht, dann gehts auch. Löst natürlich meine Aufgabe nicht, aber ich habs halt jetzt gelernt.

Nehme das NewMailEx Event das bei jeder eintreffenden Mail ausgeführt wird.
http://www.administrator.de/forum/outlook-newmailex-oder-newmail-250389 ...

Danke, hast mich in die richtige Richtung geschubst.

Grüße

mupan
Bitte warten ..
Ähnliche Inhalte
Windows 10
gelöst Win10 Pro Creators Update - "Ausführen"-Historie ist leer (3)

Frage von emeriks zum Thema Windows 10 ...

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Microsoft Office
gelöst Excel: viele leere Zeilen zwischendurch - effizient löschen? (9)

Frage von PixL86 zum Thema Microsoft Office ...

Microsoft Office
Excel Makro zum Kopieren von Daten aus Mappe1 in Mappe2 (3)

Frage von Alex993 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (12)

Frage von jensgebken zum Thema Windows Server ...

Linux Desktop
Bildschirmauflösung unter Linux festlegen (12)

Frage von itebob zum Thema Linux Desktop ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (11)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Userverwaltung
gelöst Administrator hat alle Rechte verloren (10)

Frage von mrdead zum Thema Windows Userverwaltung ...