VBOffice

Unterordner aufklappen, wenn eine Email eintrifft

Übersehen Sie manchmal eine neue Email, weil diese automatisch in einen geschlossenen Unterordner verschoben wird? Dieses Makro öffnet den Ordner, so dass Sie sofort sehen, dass es eine neue Email gibt.

Zuletzt geändert: 23.05.2013 | Aufrufe: 39.203  | #98
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

Sie können neue Emails per Regel in Unterordner verschieben lassen. Wenn der entsprechende Ordner aber gerade nicht in der Ordnerliste sichtbar ist, weil diese zusammengeklappt ist, dann sehen Sie auch nicht, dass der Ordner ungelesene Emails enthält.

Dieses Script sorgt dafür, dass der Zielordner in der Ordnerliste sichtbar wird. Kopieren Sie das Script ins Modul "DieseOutlookSitzung" und erweitern Sie die Regel um die Aktion "ein Skript ausführen".


tip  So fügen Sie Makros in Outlook ein
Public Sub ExpandFolder(Mail As Outlook.MailItem)
  Dim F1 As Outlook.MAPIFolder
  Dim F2 As Outlook.MAPIFolder

  Set F1 = Application.ActiveExplorer.CurrentFolder
  Set F2 = Mail.Parent
  Set Application.ActiveExplorer.CurrentFolder = F2
  DoEvents
  Set Application.ActiveExplorer.CurrentFolder = F1
End Sub
Reporter Reporter
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert.
email  Senden Sie eine Nachricht