Перспективы VBA - набор sentonbehalf и Refresh ActiveInspector

Question

Я часто хочу, чтобы изменить данные отправителя в настоящее время открытой почты Это хорошо сделано следующим кодом:

Sub AktiveMailSetVonHotline() 
    Dim oMail As Outlook.MailItem 
    Set oMail = ActiveInspector.CurrentItem 
    oMail.SentOnBehalfOfName = "Hotline@mycompany.de" 
End Sub` 

только вопрос/недостаток является: После запуска, что macro Я не вижу, что отправитель установлен по желанию. Для этого я хотел бы обновить видимую почту (окно инспектора)

Answer 1

Чтобы сделать из этикетки показать правильное значение, необходимо установить свойство PR_SENT_REPRESENTING_EMAIL_ADDRESS (имя DASL http://schemas.microsoft.com/mapi/proptag/0x0065001F) с помощью MailItem.PropertyAccessor.SetProperty.

UPDATE:

В качестве теста, вы можете попробовать выполнить следующий сценарий из OutlookSpy - создать новое сообщение в Outlook, нажмите кнопку «Script» на OutlookSpy ленте в инспекторе сообщения, вставьте Приведенный ниже сценарий, нажмите кнопку Выполнить:

set Msg = Application.ActiveInspector.CurrentItem 
Msg.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x0065001F", "another@user.demo" 

Answer 2

Похоже, вас интересует свойство класса MailItem SendUsingAccount, которое позволяет установить объект учетной записи, который представляет учетную запись, под которой находится MailItem. быть отправлен. Например:

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 ("someone@example.com") 
    oMail.Recipients.ResolveAll 
    oMail.SendUsingAccount = oAccount 
    oMail.Send 
    End If 
    Next 
End Sub