|
Hallo zusammen
Mit untenstehendem Code habe ich programmiert, dass der Anhang einer angewählten Email per mit Ausführung des Makros in einen bestimmten Ordner im Explorer verschoben wird. Direkt nach der Programmierung hat das Makro funktioniert.
Als ich das Makro am Folgetag erneut ausführen wollte, erschien die folgende Fehlermeldung: «Die Makros in diesem Projekt sind deaktiviert. Informationen zum Aktivieren der Makros finden Sie in der Online-Hilfe oder der Dokumentation der Host-Anwendung».
Was ich nach Google-Recherche versucht habe aber nicht funktioniert hat:
-Bei den Makroeinstellungen «Alle Makros aktivieren» anstelle von «Benachrichtigungen für digital signierte Makros. Alle anderen Maros sind deaktiviert» einzustellen
-Die Datei C/Benutzer/Mein_Benutzername/AppData/Roaming/Microsoft/OutlookVbaProject.OTM zu löschen und dann das Makro neu zu erstellen.
Habt ihr eine Idee was ich tun kann, um dieses Problem zu lösen?
Sub MailAnhängeSpeichern()
'Variablen dimensionieren
Dim Mail As MailItem
Dim Pfad As String
Dim Att As Attachment
'Mail auslesen
Set Mail = ActiveExplorer.Selection.Item(1)
'Pfad definieren
Pfad = "T:\Mein_Pfad\Archivierung"
'Schleife über alle Anhänge der Mail
For Each Att In Mail.Attachments
'Anhang speichern
Att.SaveAsFile Pfad
Next Att
'Benutzer benachrichtigen
MsgBox "Alle Anhänge wurden gespeichert unter " & Pfad
End Sub
|