首页 > 科技 >

💻✨VBA常用实例 | OUTLOOK批量下载选中邮件中的附件💪

发布时间:2025-03-22 06:09:45来源:

在日常工作中,我们经常需要从Outlook中提取大量邮件里的附件,手动操作既耗时又繁琐。这时,借助VBA(Visual Basic for Applications)脚本可以轻松实现自动化处理!👇以下是简单易懂的操作步骤:

首先,打开Outlook软件,点击“开发者”选项卡(如果没有显示,需先启用)。接着,点击“Visual Basic”进入编辑器,新建一个模块,并粘贴以下代码:

```vba

Sub SaveSelectedAttachments()

Dim objOL As Outlook.Application

Dim objNS As Outlook.Namespace

Dim objFolder As Outlook.MAPIFolder

Dim objItem As Object

Dim objAtt As Outlook.Attachment

Dim strSavePath As String

Dim lngCount As Long

Set objOL = Application

Set objNS = objOL.GetNamespace("MAPI")

strSavePath = "C:\Attachments\" ' 设置保存路径

MkDir strSavePath

For Each objItem In Application.ActiveExplorer.Selection

If objItem.Class = olMail Then

For Each objAtt In objItem.Attachments

objAtt.SaveAsFile strSavePath & objAtt.FileName

lngCount = lngCount + 1

Next objAtt

End If

Next objItem

MsgBox "共下载 " & lngCount & " 个附件!", vbInformation, "完成"

End Sub

```

最后,运行该宏即可批量下载选中邮件的所有附件!💡🚀

通过这种方式,工作效率瞬间提升,快来试试吧!👏💼

免责声明:本答案或内容为用户上传,不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。 如遇侵权请及时联系本站删除。