'How to refresh ActiveInspector?

I changed the sender data in the currently open mail.

This is well done by the following code:

Sub AktiveMailSetVonHotline() 
  Dim oMail As Outlook.MailItem
  Set oMail = ActiveInspector.CurrentItem 
  oMail.SentOnBehalfOfName = "[email protected]"
End Sub`

I cannot see that the sender is set as desired. For this, I'd like to refresh the visible Mail (inspector window).

vbaemailoutlook


Solution 1:[1]

It looks like you are interested in the SendUsingAccount property of the MailItem class which allows to set an Account object that represents the account under which the MailItem is to be sent. For example:

 Sub SendUsingAccount() 
  Dim oAccount As Outlook.account 
  For Each oAccount In Application.Session.Accounts 
   If oAccount.AccountType = olPop3 Then 
    Dim oMail As Outlook.MailItem 
    Set oMail = Application.CreateItem(olMailItem) 
    oMail.Subject = "Sent using POP3 Account" 
    oMail.Recipients.Add ("[email protected]") 
    oMail.Recipients.ResolveAll 
    oMail.SendUsingAccount = oAccount 
    oMail.Send 
   End If 
  Next 
 End Sub

Solution 2:[2]

To make sure the From label shows the right value, you need to set the PR_SENT_REPRESENTING_EMAIL_ADDRESS property (DASL name http://schemas.microsoft.com/mapi/proptag/0x0065001F) using MailItem.PropertyAccessor.SetProperty.

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source
Solution 1 Eugene Astafiev
Solution 2

Related Questions