VBA сохраняет вложения Outlook на ПК без скриптового правила

Question

Мне нужен vba (выполняется в outlook или нет), который сохраняет вложения электронной почты на моем рабочем столе (c: /), без использования функции сценария правил outlook (больше нет способа включить в windows10 с момента последнего обновления2018 года, в соответствии с выпуском Windows).

Когда появилась функция для выполнения скрипта, я использовал:

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String

    sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"

    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
End Sub

Есть другой код vba?