予定の受信者を取得する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 

を、このようなものを把握するための最も簡単な方法は、コードウィンドウの中の[ローカル]ウィンドウでオブジェクトを調べることですコードをステップ実行します。このようにして、オブジェクトにあるすべてのプロパティを表示し、何を使用するかを判断できます。

Answer 2

AppointmentItem.Recipientsコレクションを使用し、すべての受信者をループします。 Recipient.Type = olToは必須です、olCC - オプション、olBCC - リソース。