Outlook mit vba aktuellen Ordner feststellen

Hallo lastwebpage,

danke für den Tip mit den Links. Die Seite “outlookcodes.com” konnte ich allerdings nicht finden (kein error 404 aber leeres Bild! ?). Aber die Suche mit der allgegenwärtigen Suchmaschine lieferte mir “outlookcode.com” als Alternative. Und da bin ich fündig geworden. Es ist ganz einfach, wenn man’s weiß, wie immer. Man muss lediglich das ‘Parent’ der fraglichen Mail “auslesen”. Damit kann ich dann ganz einfach auf Gleichheit mit dem ausgewählten Ordner vergleichen.

Für alle Interessierten das Code-Schnipsel:

….

‘ Ziel-Ordner auswählen lassen
Set moveFolder = Application.Session.PickFolder
‘ erst mal in 1. Mail nachsehen, ob ein anderer Ordner gewählt wurde, sonst nichts machen nur Nachricht
Set myFolder = ActiveExplorer.Selection(1).Parent
If myFolder = moveFolder Then
MsgBox “Keine Verschiebung, da gleicher Ordner gewählt!”
Else
‘ nun E-Mails in Loop bearbeiten

…