Speichern Sie einen Anhang aus Outlook 2013 in einen bestimmten Ordner und benennen Sie ihn um

421
Mindbender

Ich habe die Schritte aus einem anderen Beitrag auf dieser Website verwendet und es hat seit ein paar Tagen funktioniert und jetzt funktioniert es nicht. Die Datei kommt immer von derselben Person und ist immer ein XLS-Anhang.

Ich habe die unsicheren Client-Mail-Regeln in Outlook aktiviert, um die Ausführung eines Skripts zu ermöglichen

Ich habe dann eine Regel erstellt, mit der die E-Mail von einer bestimmten Person in einen Unterordner unter dem Posteingang verschoben wird

Anhangregel

und führt dann das folgende Skript aus

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "c:\Automation\CBM\" For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName Set objAtt = Nothing Next End Sub

Das Verschieben in den Unterordner funktioniert, das Speichern der Anlage im Ordner ist jedoch nicht mehr möglich.

Ich habe die Makroeinstellung überprüft und sie sind so eingestellt, dass sie alle aktivieren.

Ich bin nicht sicher, warum es nicht funktioniert hat. es läuft aber nach dem Umzug in einen Unterordner passiert nichts.

Jeder Rat wäre sehr dankbar

0
Die Regel wird möglicherweise ausgeführt, aber woher wissen Sie, dass der Code dies getan hat? Sie könnten eine MsgBox zur Überprüfung einfügen. Wenn der Code ausgeführt wird, können Sie den Code nach dem Speichern der Anhänge mit dem Element verschieben, wodurch die Bewegung von der Regel entfernt wird. niton vor 6 Jahren 0
Ich glaube nicht, dass es ausgeführt wird. Ich füge die MsgBoxs dem Code hinzu und es erscheint nie etwas ... Ich kann auch den Code aus dem Modul ausführen ... zeigt leer Ich fügte MsgBox "Startcode" direkt unter Dim saveFolder As String und MsgBox hinzu Code "zwischen Next und End Sub Mindbender vor 6 Jahren 0
Wenn für diese Frage keine Lösung angeboten wird, können Sie zu ItemAdd wechseln, das ausgeführt wird, wenn E-Mails automatisch oder manuell in einen angegebenen Ordner verschoben werden. https://superuser.com/questions/286658/how-to-run-outlook-rule-than-message-moved-to-folder niton vor 6 Jahren 0
Ich habe diesen Code gefunden und an meine Bedürfnisse angepasst. Es funktioniert, aber ich bin nicht sicher, wie ich es ändern soll. Ich möchte die Datei jedes Mal als Report_ACTIVITY.xlsm speichern. Kannst du bei diesem Teil helfen? Dies ist der Link zum ursprünglichen Code, den ich verwendet habe: http://www.vbaexpress.com/kb/getarticle.php?kb_id = 522 Mindbender vor 6 Jahren 0
Sie könnten eine neue Frage erstellen, da diese häufig gestellte Frage nicht erneut gestellt werden muss. Siehe https://stackoverflow.com/questions/43639596/saving-and-renaming-an- outlook-attachment-with-static-name niton vor 6 Jahren 0

1 Antwort auf die Frage

0
thims

Wie ich auf Ihrem Screenshot und dem verwendeten Makro sehen kann, löst die Regel das SaveAttachments- Makro aus, und Ihr Skript heißt saveAttachtoDisk . Vielleicht feuert Ihre Regel nur ein anderes Skript, das nichts tut?

Verwandte Probleme