StartDownloadsServiceSamplesWorkshopsContact DeutschEnglish
 
Samples
General
Outlook®
 
Awarded by
Microsoft since 2005:
mvp logo
VBOffice Info
Visitors1639410
Impressions6206890
Links
Imprint
Privacy Policy
Contact
E-Mail: Get the account the item was received with
Author: Michael BauerHomepage
Date: 17.05.2006Accessed: 21688
  
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]