在日常工作中，我们经常需要从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
```
最后，运行该宏即可批量下载选中邮件的所有附件！💡🚀
通过这种方式，工作效率瞬间提升，快来试试吧！👏💼