导语：在这个流量为王的时代，时间就是金钱。如果你的时间都花在复制粘贴发邮件上，那你离“暴富”可能还差一个VBA的距离。今天，咱们不聊虚的，直接上硬菜——如何用Excel里的Mailer对象（其实是Outlook MailItem），把重复劳动变成一键自动化，省下来的时间去写爆款文章香不香吗？💡 为什么你需要这个“摸鱼神器”？
想象一下这个场景：月底了，老板让你给100个客户发对账单，或者给50个员工发工资条。
普通青年：打开Excel，复制名字，切换到邮箱，粘贴，写主题，找附件，发送……循环100次。手指头都要敲断了，还得担心发错人。
二逼青年：把所有收件人放在密送里，一发入魂。结果客户A看到了客户B的名字，尴尬得想用脚趾抠出三室一厅。
精英青年（也就是你）：打开Excel，点击一个按钮，去泡杯咖啡。回来时，100封邮件已经整整齐齐地躺在发件箱里，每封邮件还带着客户的专属称呼和数据。
这就是VBA的魅力。虽然我们在Excel里写代码，但真正干活的其实是Outlook的MailItem对象。别被名字吓到了，它其实就是个听话的“电子邮差”。
🛠️ 准备工作：磨刀不误砍柴工
在开始写代码之前，咱们得先搭好台子。别慌，很简单，三步走：
数据要整齐：打开你的Excel，第一行做表头。比如A列是“邮箱地址”，B列是“姓名”，C列是“业绩数据”。从第二行开始填数据，别留空行。
开启“开发者”模式：如果你的Excel顶部没有“开发工具”选项卡，去“文件”->“选项”->“自定义功能区”，把“开发工具”勾选上。这就像是给你的武器库开了光。
信任宏：在“开发工具”选项卡里，点击“宏安全性”，选择“禁用所有宏的通知”或者更低的安全级别（当然，如果你是自己电脑，选“启用所有宏”最省心，但要注意病毒风险哦）。
💻 核心代码：见证奇迹的时刻
好了，重头戏来了。我们要写的这段代码，逻辑非常简单粗暴：读取Excel的一行 -> 创建一个邮差对象 -> 填好信息 -> 踢一脚让它出发 -> 下一行。
按Alt + F11打开VBA编辑器，插入一个模块，然后把下面这段代码“喂”给它：
Sub 批量发送个性化邮件() Dim OutlookApp As Object Dim MailItem As Object Dim Ws As Worksheet Dim i As Integer Dim LastRow As Long Dim EmailAddr As String Dim NameStr As String Dim DataStr As String ' 设置工作表，这里默认是Sheet1，你可以改成你的名字 Set Ws = ThisWorkbook.Sheets("Sheet1") ' 获取最后一行，防止漏发 LastRow = Ws.Cells(Ws.Rows.Count, "A").End(xlUp).Row ' 创建Outlook应用程序对象 On Error Resume Next Set OutlookApp = GetObject(, "Outlook.Application") If Err.Number <> 0 Then Set OutlookApp = CreateObject("Outlook.Application") End If On Error GoTo 0 ' 循环处理每一行数据 For i = 2 To LastRow ' 读取数据 EmailAddr = Ws.Cells(i, 1).Value ' A列是邮箱 NameStr = Ws.Cells(i, 2).Value ' B列是姓名 DataStr = Ws.Cells(i, 3).Value ' C列是数据 ' 简单的防呆设计，如果没邮箱就跳过 If EmailAddr <> "" Then ' 创建邮件对象 Set MailItem = OutlookApp.CreateItem(0) With MailItem .To = EmailAddr .Subject = "亲爱的" & NameStr & "，这是您的专属报告" ' 使用HTML格式，可以加粗变色，显得专业点 .HTMLBody = "<h3>尊敬的 " & NameStr & "：</h3>" & _ "<p>您好！本月您的业绩数据如下：</p>" & _ "<p style='color:red; font-size:14px;'><b>" & DataStr & "</b></p>" & _ "<p>祝工作愉快！</p><br><hr><small>此邮件由Excel自动发送，请勿回复。</small>" ' 如果你想加附件，取消下面这行的注释，并修改路径 ' .Attachments.Add "C:\Users\YourName\Desktop\Test.pdf" .Send ' 如果想先预览，把.Send改成.Display End With ' 释放内存，给电脑减减负 Set MailItem = Nothing End If Next i MsgBox "搞定！所有邮件已发射，快去喝咖啡吧！", vbInformation, "发送完成"End Sub
代码解读（说人话版）：
Dim那一堆：是在声明变量，就像告诉电脑“我要用几个盒子装东西”。
GetObject和CreateObject：这是在抓Outlook。如果Outlook已经开了就用现有的，没开就新起一个。
.HTMLBody：这是精髓！普通的.Body只能发纯文本，丑得要死。用了HTML，你就能像写网页一样写邮件，加粗、标红、甚至插图片（虽然代码里没写，但可以用<img>标签实现）。
.Send vs .Display：.Send是直接发出去，相当于扣动扳机；.Display是先把邮件窗口弹出来给你检查，适合新手练手，防止“误伤友军”。
🎨 进阶玩法：让Mailer更聪明
如果你觉得上面的代码只是“及格”，那咱们再来点“高分”操作。
带附件怎么搞？
很多时候我们需要发工资条PDF或者发票。只需要在.Send之前加一行：
MailItem.Attachments.Add ("D:\Files\" & NameStr & ".pdf")
这样，电脑就会自动去D盘找对应名字的文件塞进邮件里。是不是感觉像个黑客？
抄送给老板怎么办？
老板总想监控大家的工作。你可以在代码里加上：
.CC = "boss@company.com"
这样，每发一封邮件，都会悄悄抄送一份给老板，让他知道你有多努力（或者多会偷懒）。
遇到错误怎么办？
万一Outlook没开，或者网络断了，程序直接报错停止是很尴尬的。可以在代码开头加上错误处理机制，比如On Error Resume Next，但这属于高阶技巧，玩不好容易掩盖真正的Bug。
⚠️ 避坑指南：别让“神器”变“凶器”
虽然VBA很强大，但它也有脾气。作为资深玩家，我有几条血泪经验要分享：
Outlook必须在线：这个脚本依赖Outlook客户端。如果你用的是网页版邮箱，或者Foxmail之类的，这代码可能会罢工。请确保Outlook配置好了账户并且能正常收发信。
别发太快：如果你一口气发几千封，Exchange服务器可能会把你当成垃圾邮件发送者给封了。可以在循环里加个Application.Wait，让程序歇个0.5秒再发下一封。
宏病毒恐慌：发给别人Excel文件时，记得存成.xlsm格式（启用宏的工作簿）。如果发给不懂技术的同事，他们可能会因为看到“宏安全警告”而不敢打开，这时候就需要你耐心地解释：“亲，这不是病毒，这是我写的魔法。”
📌 结语
学会了用VBA控制Mailer对象，你不仅仅是省下了几个小时的时间，更重要的是，你拥有了“自动化思维”。
当别人还在苦哈哈地Ctrl+C/V的时候，你已经运行完脚本，打开公众号后台查看今天的广告收益了。这才是技术改变命运，代码解放双手的真实写照。
