Откройте задачу Sharepoint в Outlook из Excel VBA

Question

В настоящее время у меня есть код VBA, который перебирает электронные письма Sharepoint в Outlook; как выбрать кнопку «Открыть эту задачу ...», ввести информацию и закрыть ее? Этот фрагмент кода, который у меня есть, имена папок помечены звездочкой:

Dim Namespace As Outlook.Namespace
Dim Folder As Outlook.MAPIFolder
Dim SubFolder As Outlook.MAPIFolder
Dim InnerFolder As Outlook.MAPIFolder
Dim Item As Object
Dim MailTask As Outlook.MailItem

On Error Resume Next
Set OL = GetObject(, "Outlook.Application")

If Err.Number = 0 Then

    Set Namespace = OL.GetNamespace("MAPI")

    For Each Folder In Namespace.Folders
        If StrComp(Folder.Name, "*****") = 0 Then
            For Each SubFolder In Folder.Folders
                If StrComp(SubFolder.Name, "*****") = 0 Then
                    For Each InnerFolder In SubFolder.Folders
                        If StrComp(InnerFolder.Name, "*****") = 0 Then

                            *****Go through each email and open the "Open this task..." window*****

                        End If
                    Next InnerFolder
                    Exit For
                End If
            Next SubFolder
            Exit For
        End If
    Next Folder
End If
End Function