Сохранение электронной почты из excel

---

уважаемый господин
желаю вам хорошего дня.

у нас есть код Excel VBA, который сохраняет выбранное электронное письмо из outlook и гиперссылает на него ячейку. но проблема заключается в том, что выбранное письмо находится в результате поиска по "всем почтовым ящикам". Я был бы благодарен, если бы вы проверили, в чем проблема, и дали мне знать, как сохранить письмо в outlook, когда выбранное письмо находится в результатах поиска на "всех почтовых ящиках".

Что я уже пробовал:

Sub LinkToQuotation()
    Dim oMail As Outlook.MailItem
    Dim objItem As Object
    Dim sPath As String
    Dim dtDate As Date
    Dim sName As String
    Dim enviro As String
    enviro = CStr(Environ("USERPROFILE"))
    For Each objItem In ActiveExplorer.Selection
        Set oMail = objItem
        sName = oMail.Subject & ".msg"
        ReplaceCharsForFileName sName, " "
        sPath = "D:\Dropbox\calc quotations\"
        Debug.Print sPath & sName
        oMail.SaveAs sPath & sName, olMSG
        Range("E3").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=sPath & sName,    TextToDisplay:="Link to Email"
    Next
End Sub

---