Outlook宏以获取约会的收件人

Question

我正在尝试让所有收件人“我选择的Outlook预约的TO：..部分中的人员列表”。

我需要所有选定约会的主题和收件人，我可以获得主题但无法获得收件人。以下是我试过的代码..

Sub testCode()

Dim objItem As Object
Dim objApp As Outlook.Application

Set objApp = Application
Set xlApp = CreateObject("Excel.Application")

xlApp.Application.Visible = True
xlApp.workbooks.Open "C:\data.xlsm"
For i = 1 To 49

    Set objItem = objApp.ActiveExplorer.Selection.Item(i)

    xlApp.Range("A" & i & "").Value = objItem.Subject
    xlApp.Range("B" & i & "").Value = objItem.To  // not working

Next i
End Sub 

Answer 1

约会中没有To字段。需要与会者和可选的与会者。

使用以下属性：

objItem.OptionalAttendees

和

objItem.RequiredAttendees

作为旁注，找出这样的事情的最简单方法是在逐步执行代码时检查代码窗口的locals窗口中的对象。这样，您可以看到对象具有的所有属性，并找出要使用的内容。

Answer 2

使用{{test1}}集合并循环浏览所有收件人。 Recipient.Type = olTo是必需的，olCC - 可选，olBCC - 资源。