StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
 
Samples
General
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Visitors1409444
Impressions5190365
Links
Imprint
Privacy Policy
Contact
E-Mail: Get the account the item was received with
Author: Michael BauerHomepage
Date: 17.05.2006Accessed: 18971
  
Description

We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory.

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

  ' Annahme, dass aktuell eine empfangene E-Mail ausgewählt ist.
  With Application.ActiveExplorer.Selection(1)
    Set Mail = Session.GetMessageFromID(.EntryID, .Parent.StoreID)
  End With

  ' Ausgabe der Info im Debug-Fenster
  Debug.Print Mail.Fields(PR_NEXT_SENDING_ACCOUNT)
End Sub
 
 

ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more]

 

Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more]

 

SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more]

 

OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more]

All names, products and pictures are under the copyright of the respective producers.
Microsoft and the Office logo are trademarks or registered trademarks
of Microsoft Corporation in the United States and/or other countries.