在VBA中不同发件人之间切换的最简单方法是什么？

Question

Namely, I'm talking about MAPIFolder, MailItem, and Recipient object types.

-------------------Additional Info-------------------------------------------

Here's some objects I have:

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

Answer 1

I'm looking for .SendUsingAccount property, for example below from 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

Answer 2

If you second mailbox is called "Other Person" then you could try this to reference the Inbox that belongs to it (as distinct from the default Inbox)

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