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.002  | #26
◀ Previous sample Next sample ▶
Reporter Reporter
VBOffice Reporter is an easy to use tool for data analysis and reporting in Outlook. A single click, for instance, allows you to see the number of hours planned for meetings the next month.

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

  Set Session = CreateObject("redemption.rdoSession")
  Session.MapiObject = Application.Session.MapiObject

  With Application.ActiveExplorer.Selection(1)
    Set Mail = Session.GetMessageFromID(.EntryID, .Parent.StoreID)
  End With

End Sub
OLKeeper OLKeeper
OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or e-mails.
email  Send a message