VBOffice

Get the Receiving Account

This macro tells you by which of your accounts a certain message was received.

Last modified: 2006/05/17 | Accessed: 25.076  | #26
◀ Previous sample Next sample ▶
Category-Manager Category-Manager
Access the master category list in the blink of an eye, share your color categories in a network, get a reminder service, and more.

Since Outlook XP for each email is stored by which account the email was received. By default, Outlook replies using that account.

This sample uses the Redemption to get the information. Select an email, then start the macro.


tip  How to add macros to Outlook
Public Sub ReadNextSendAccount()
  Dim Mail As Redemption.rdoMail
  Dim Session As Redemption.RDOSession
  Const PR_NEXT_SENDING_ACCOUNT = &H808E001E

  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_SENDING_ACCOUNT)
End Sub
ReplyAll ReplyAll
ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.
email  Send a message