Какой самый простой способ переключения между разными отправителями в VBA?

Question

А именно, я говорю о типах объектов MAPIFolder, MailItem и Recipient.

------------------- Дополнительная информация ------------------------- ------------------

Вот некоторые объекты, у меня есть:

Dim w As Outlook.Application 
Dim wInbox As Outlook.MAPIFolder 
Dim objOutlookMsg As Outlook.MailItem 
Dim objOutlookRecip As Outlook.Recipient 

Answer 1

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

Dim objOl As Outlook.Application 
Dim objNS As Outlook.Namespace 
Dim objFolder As Outlook.MAPIFolder 
Set objOl = New Outlook.Application 
Set objNS = objOl.GetNamespace("MAPI") 
Set objFolder = objNS.Folders("Other Person") 
Set objFolder = objFolder.Folders("Inbox") 

Answer 2

Я ищу .SendUsingAccount собственности, например, ниже от this article:

Public Sub New_Mail() 
Dim oAccount As Outlook.Account 
Dim oMail As Outlook.MailItem 

For Each oAccount In Application.Session.Accounts 
    If oAccount = "Name_of_Default_Account" Then 
     Set oMail = Application.CreateItem(olMailItem) 
     oMail.SendUsingAccount = oAccount 
     oMail.Display 
    End If 
Next 
End Sub