Как получить доступ к группам контактов в Excel VBA?

Я создаю дополнение Excel-, которое отправляет активную книгу как вложение в шаблон электронной почты Outlook в определенную группу контактов.

Я получил первые две части для работы с кодом ниже, но я не уверен, как установить поле .TOдля группы контактов.

Public Sub Mail_Reports()
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object 

    With Application
       .EnableEvents = False
       .ScreenUpdating = False
    End With

    On Error Resume Next

    Set OutApp = CreateObject("Outlook.Application")

    'Set this line to the path and file name of your template
    Set OutMail = OutApp.CreateItemFromTemplate("C:\Users\moses\AppData\Roaming\Microsoft\Templates\test.oft")
    On Error Resume Next

    With OutMail
        '.TO field should be set to the contact group
       .BCC = ""
       .Attachments.Add ActiveWorkbook.FullName
       .HTMLBody = Replace(OutMail.HTMLBody, strOldPeriod, strNewPeriod)
       .Subject = Replace(OutMail.Subject, strOldPeriod, strNewPeriod)
        'To display the email leave as is;  to send the Email, change to.Send
       .Display    'or Send
    End With

    On Error GoTo 0

    With Application
       .EnableEvents = True
       .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub