提供将邮件里的附件保存至硬盘的代码。

Sub Exprot_Mail_Attachments()
  
On Error Resume Next
 
    Dim myolapp As New Outlook.Application
  
    Set myNameSpace = myolapp.GetNamespace("MAPI")
    Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)
   
    For i = 1 To myfolder.Items.Count
        Set mymailitem = myfolder.Items(i)
        With mymailitem
            Set myAttachments = mymailitem.Attachments
            myAttachments.Item(1).SaveAsFile "C:\电子邮件\" + IIf(IsNull(myAttachments.Item(1).DisplayName), i, myAttachments.Item(1).DisplayName)
        End With
    Next
End Sub