展望宏来获得约会的收件人

我想获得所有收件人的“我在人力资源管理部门：..部分”的Outlook预约，我选择。展望宏来获得约会的收件人

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

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

来源

2016-10-03 A.Gautam

用于[收件人集合]中的每个收件人（https://msdn.microsoft.com/en-us/library/office/ff868695.aspx?f=255&MSPPError=-2147217396） – 0m3r

约会中没有To字段。需要参加者和可选参加者。

使用这些属性：

objItem.OptionalAttendees

和

objItem.RequiredAttendees

一点题外话，最简单的方法找出这样的事情是检查在代码窗口而当地人窗口对象浏览代码。通过这种方式，您可以查看该对象所具有的所有属性，并找出要使用的内容。

来源

2016-10-03 19:53:01 OpiesDad

使用AppointmentItem.Recipients集合并遍历所有收件人。 Recipient.Type = olTo是必需的，olCC - 可选，olBCC - 资源。

来源

2016-10-03 20:04:24

展望宏来获得约会的收件人

回答

相关问题