用于下载所选邮件附件的宏 - 有关下载文件计数的问题
我更改了一些代码,以便将选定的邮件附件添加到我的硬盘中,如下所示: Public Sub SaveAttachments() Dim objOL As Outlook.Application Dim objMsg As Outlook.MailItem 'Object Dim objAttachments As Outlook.Attachments Dim objSelection As Outlook.Selection Dim I As Long Dim lngCount As Long Dim strFile As String Dim strFolderpath As String Dim strDeletedFiles As String Dim Counter As Long strFolderpath = "D:\attachments" If (Dir$(strFolderpath, …