vba无需脚本规则即可在PC上保存Outlook附件

Question

我需要一个vba（是否在Outlook中执行），以便将电子邮件附件保存在我的桌面（c：/）上，而不使用Outlook规则的脚本功能（自上次更新以来，不再有在Windows10中启用的功能）根据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吗？