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

即，我正在谈论MAPIFolder，MailItem和Recipient对象类型。在VBA中切换不同发件人的最简单方法是什么？

-------------------附加信息------------------------- ------------------

下面是一些我的对象有：

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

来源

2012-02-05 stanigator

不是真的.....因为你想要什么，然后确认您的详细信息使用Excel来自动化Outlook将是有益的 – brettdj 2012-02-05 03:33:00

@brettdj：见我的编辑。 – stanigator 2012-02-05 03:46:51

我还不清楚你在做什么。代表其他人发送邮件（有问题的“其他发件人”）或更改收件箱，收件人等 – brettdj 2012-02-05 04:16:56

如果第二个邮箱叫“其他人”，那么你可以试试这个从引用属于它（从默认收件箱不同）收件箱

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

来源

2012-02-05 04:32:02 brettdj

我想找.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

来源

2012-02-05 04:46:31 stanigator

那么你面临的问题是什么？上面的代码应该可以工作。 – 2012-02-06 23:24:13

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

回答

相关问题