在日常工作中，我们经常需要从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

```

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

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