VBOffice

Email-Ordner ermitteln

Wo ist die Email gespeichert, die Sie gerade betrachten? Dieses Makro verrät es Ihnen und kann auch gleich den Ordner öffnen.

Zuletzt geändert: 08.06.2008 | Aufrufe: 187.985  | #65
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.

Wenn Sie eine Suche nach E-Mails über mehrere Ordner durchführen, kann Outlook zwar den Namen des Ordners nennen, in dem eine E-Mail gefunden wurde. Wenn Sie aber mehrere Ordner mit dem gleichen Namen haben, nützt Ihnen das wenig. Dieses Beispiel zeigt den ganzen Pfad und bietet die Möglichkeit, gleich zum betreffenden Ordner zu wechseln.

Wenn Sie die erweiterte Suche benutzt haben, müssen Sie die E-Mail zuerst öffnen und dann das Makro starten.


tip  So fügen Sie Makros in Outlook ein
Public Sub GetItemsFolderPath()
  Dim obj As Object
  Dim F As Outlook.MAPIFolder
  Dim Msg$
  Set obj = Application.ActiveWindow
  If TypeOf obj Is Outlook.Inspector Then
    Set obj = obj.CurrentItem
  Else
    Set obj = obj.Selection(1)
  End If
  Set F = obj.Parent
  Msg = "Ordner: " & F.FolderPath & vbCrLf
  Msg = Msg & "Zum Ordner wechseln?"
  If MsgBox(Msg, vbYesNo) = vbYes Then
    Set Application.ActiveExplorer.CurrentFolder = F
  End If
End Sub
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.
email  Senden Sie eine Nachricht