Outlook-Makro, um Empfänger eines Termins zu erhalten

Question

Ich versuche, alle Empfänger "Liste der Personen in TO: .. Abschnitt" eines Outlook-Termin, den ich auswählen.

Ich brauche den Betreff und und die Empfänger aller ausgewählten Termine, ich könnte das Thema bekommen, aber bin nicht in der Lage, die Empfänger zu bekommen. Unten ist der Code habe ich versucht, ..

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

Es gibt keine To Feld in einen Termin. Es sind erforderliche Teilnehmer und optionale Teilnehmer erforderlich.

Mit diesen Eigenschaften:

objItem.OptionalAttendees 

und

objItem.RequiredAttendees 

Als Nebenbei bemerkt, ist die einfachste Art und Weise, Dinge wie diese, um herauszufinden, ist das Objekt im Lokalfenster des Codefensters, während zu untersuchen durch den Code gehen. Auf diese Weise können Sie alle Eigenschaften des Objekts sehen und herausfinden, was zu verwenden ist.

Answer 2

Verwenden Sie die AppointmentItem.Recipients Sammlung und durchlaufen Sie alle Empfänger. Recipient.Type = olTo sind erforderlich, olCC - optional, olBCC - Ressourcen.