AppointmentItem“From”属性

Question

我有这段代码从Excel工作表创建Outlook约会。它工作正常。但我在Outlook上使用2个电子邮件帐户，我不知道如何在这些帐户之间轮换会议主持人。 AppointmentItem对象的属性是什么，它会更改会议主持人？

PS：不是“组织者”，我已经尝试过了。

@EDIT：

我尝试按照Macro Man的建议使用.SendUsingAccount，但仍未更改发件人。

我的代码：

Set oApp = CreateObject("Outlook.Application")
Set ItemAppoint = oApp.CreateItem(1)
ItemAppoint.MeetingStatus = olMeeting

'===============Accounts===============
 Dim Var As Object
 Set Var = ItemAppoint.session.accounts

'======================================

With ItemAppoint
    .SendUsingAccount = Var(2) 'The account that I want to use is the index "2"
    .Subject = "Sub"
    .Body = "text"
    .Display
End With

Answer 1

.Organizer属性是只读的，您在{/ 1}}属性之后读/写

.SendUsingAccount

有关MSDN网页的更多信息：AppointmentItem.SendUsingAccount Property (Outlook)

Answer 2

AppointmentItem.SendUsingAccount属性允许指定一个Account对象，该对象表示要在其下发送AppointmentItem的帐户。

  

AppointmentItem对象的属性是什么，它会更改会议主持人？

最简单的方法是在日历文件夹中创建属于特定帐户的约会项目。您使用什么代码创建约会项目？

How To: Create a new Outlook Appointment item文章解释了在Outlook中创建约会项目的所有可能方法。尝试获取正确的文件夹并使用Items类的Add方法。例如：

 items.Add(Outlook.OlItemType.olAppointmentItem)

Store类的GetDefaultFolder方法返回一个Folder对象，该对象表示存储中的默认文件夹，并且是FolderType参数指定的类型。此方法类似于GetDefaultFolder对象的NameSpace方法。区别在于此方法获取与该帐户关联的传递存储上的默认文件夹，而NameSpace.GetDefaultFolder返回当前配置文件的默认存储上的默认文件夹。

Answer 3

这很有效。

Sub Test()
Dim oNamespace As Outlook.Namespace
Dim oCalendarFolder As Outlook.MAPIFolder
Dim oItems As Outlook.items
Dim strEntryID As String
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
For Each i In oNamespace.Folders
    If i.Name = "yourEmailIDhere" Then
        For Each j In i.Folders
            If j.Name = "Calendar" Then
                strEntryID = j.EntryID
            End If
        Next j
    End If
Next i
Set oCalendarFolder = oNamespace.GetFolderFromID(strEntryID)
oItems = oCalendarFolder.items
oMeeting = oItems.Add(Outlook.OlItemType.olAppointmentItem)
oMeeting.Save
oMeeting.Display`

结束子`