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: 79.468  | #65
◀ Vorheriges Beispiel Nächstes Beispiel ▶
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie Absender, Signatur und Speicherort für Emails anhand von Regeln.

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
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.
email  Senden Sie eine Nachricht