点击工具-引用-Microsoft Outlook 16.0 Object Library进行outlook的引用
Sub DownloadAttachments()Dim olApp As Outlook.ApplicationDim olNamespace As Outlook.NamespaceDim olFolder As Outlook.MAPIFolderDim olMail As Outlook.MailItemDim olAttachment As Outlook.AttachmentDim saveFolder As StringsaveFolder = ThisWorkbook.PathSet olApp = New Outlook.ApplicationSet olNamespace = olApp.GetNamespace("MAPI")Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)i = 0For Each olMail In olFolder.ItemsIf olMail.Attachments.Count > 0 ThenFor Each olAttachment In olMail.Attachmentsi = i + 1saveFolder & "\" & i & "-" & olAttachment.Filename& i) = olMail.SenderEmailAddress& i) = olMail.Subject_Anchor:=Range("C" & i), _Address:=saveFolder & "\" & i & "-" & olAttachment.Filename, _TextToDisplay:=olAttachment.FilenameNext olAttachmentEnd IfNext olMailEnd Sub
执行代码后，效果如下：
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
