Какой самый простой способ переключения между разными отправителями в 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

Я ищу свойство .SendUsingAccount, например ниже из этой статьи :

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

Answer 2

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

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")