Макрос Outlook, чтобы указать, откуда отправляется электронная почта

Question

У меня настроено несколько учетных записей электронной почты в моем внешнем виде.Одно из этих писем (например, myemail@mail.com) предоставляет доступ к некоторым почтовым ящикам (например, emaiolbox@mail.com).

Если я выберу«От»> «Другой адрес электронной почты», чем я могу выбрать, какую учетную запись я хочу использовать («Отправить с помощью») и какую электронную почту («От»).

Теперь я хотел бы установитьэто с использованием моих макросов, чтобы я не ошибся и отправлял электронные письма, используя мой неправильный почтовый ящик.

У меня уже есть макрос для ответа на электронные письма.Но я бы хотел установить параметры «отправлено с помощью» и «от».Как я могу достичь этого?

Sub send_email()
    Dim origEmail As MailItem
    Dim replyEmail As MailItem

    Set origEmail = Application.ActiveWindow.Selection.Item(1)
    Set replyEmail = Application.CreateItemFromTemplate("C:\Utils\Outlook_Templates\macro.oft")

    replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
    replyEmail.Subject = "RE: " + origEmail.Subject
    replyEmail.To = origEmail.Sender
    replyEmail.CC = origEmail.CC + ";" + replyEmail.CC
    replyEmail.Display

End Sub

Answer 1

В объектной модели Outlook доступны две опции:

1. Свойство SendUsingAccount позволяет установить объект Учетная запись , представляющий учетную запись, под которой должен отправляться MailItem. Свойство SendUsingAccount можно использовать для указания учетной записи, которая должна использоваться для отправки MailItem при вызове метода Send. Это свойство возвращает Null (Nothing в Visual Basic), если учетная запись, указанная для 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  
         Set oMail.SendUsingAccount = oAccount  
         oMail.Send  
        End If 
       Next  
      End Sub

2. Свойство SentOnBehalfOfName позволяет задать строку, указывающую отображаемое имя для предполагаемого отправителя почтового сообщения. Обратите внимание, что в этом случае вам необходимо убедиться, что у вас достаточно прав для отправки электронных писем от имени другого лица.