VBOffice

Empfangskonto einer Email ermitteln

Mit diesem Script erfahren Sie, über welches Emailkonto eine bestimmte Email empfangen wurde.

Zuletzt geändert: 17.05.2006 | Aufrufe: 38.525  | #26
◀ Vorheriges Beispiel Nächstes Beispiel ▶

Inhalt

OLKeeper OLKeeper
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schließen und so etwa wichtige Emails verpassen würden.

Für Outlook XP und 2003

Seit Outlook XP wird für jede empfangene E-Mail gespeichert, über welches Konto diese empfangen wurde, wenn es nicht das Standardkonto war. Über das gleiche Konto werden standardmäßig auch die Antworten zurückgesendet. Dafür verwendet Outlook zwei Eigenschaften; die eine speichert den Namen des Kontos, die andere die ID und Emailadresse.

Das folgende Beispiel zeigt, wie Sie die Information mit Hilfe der Redemption ermitteln können. Wählen Sie eine Email aus und starten Sie dann das Makro z.B. mit ALT+F8.


tip  So fügen Sie Makros in Outlook ein
Public Sub ReadNextSendAccount()
  Dim Mail As Redemption.RDOMail
  Dim Session As Redemption.RDOSession
  Dim PR_ACCT_ID As Long
  Dim PR_ACCT_NAME As Long

  Set Session = CreateObject("redemption.rdosession")
  Session.Logon

  With Application.ActiveExplorer.Selection(1)
    Set Mail = Session.GetMessageFromID(.EntryId, .Parent.StoreID)
  End With
  
  PR_ACCT_NAME = Mail.GetIDsFromNames("{00062008-0000-0000-C000-000000000046}", &H8580)
  PR_ACCT_NAME = PR_ACCT_NAME Or &H1E
  
  PR_ACCT_ID = Mail.GetIDsFromNames("{00062008-0000-0000-C000-000000000046}", &H8581)
  PR_ACCT_ID = PR_ACCT_ID Or &H1E
  
  Mail.Fields (PR_ACCT_NAME) & " " & Mail.Fields(PR_ACCT_ID)
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.

Seit Outlook 2007

Seit Outlook 2007 gibt es eine neue Eigenschaft, in der beides steht, also Kontoname und Konto-ID.

Public Sub ReadNextSendAccount()
  Dim Mail As Redemption.RDOMail
  Dim Session As Redemption.RDOSession
  Const PR_NEXT_SEND_ACCT = &HE29001F

  Set Session = CreateObject("redemption.rdosession")
  Session.MAPIOBJECT = Application.Session.MAPIOBJECT

  With Application.ActiveExplorer.Selection(1)
    Set Mail = Session.GetMessageFromID(.EntryId, .Parent.StoreID)
  End With
  
  MsgBox Mail.Fields(PR_NEXT_SEND_ACCT)
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