|Determine the "identity" of your emails. Set with SAM the sender, signature and folder for sent items with the help of rules.|
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.
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 alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the e-mail.|