简介这份邮件群发源码面向具备一定VB.NET基础的开发者与邮件通知类应用场景围绕SMTP协议实现批量邮件发送可用于营销推广、系统通知等需要高效分发消息的场合。压缩包共128个文件约646KB以vb源码、vbproj与sln解决方案、exe与dll程序集、application部署清单及xml配置为主另含doc使用说明、htm页面与pfx证书等覆盖从工程结构到运行部署的完整链路。已有422人学习下载说明其在同类源码中具备一定参考价值。读者可从中了解SmtpClient与MailMessage构建邮件、封装发送逻辑为DLL以提升复用性、通过测试用例验证群发功能以及配置SMTP服务器、收件人列表与附件处理等要点适合作为学习SMTP机制与VB.NET邮件开发的实践样本。1. 邮件群发源码一份 VB.NET SMTP 的批量投递骨架先看清它能干什么手里有一批客户邮箱想按模板批量发出去又不想把数据交给第三方平台这时候一份能自己改、自己跑的邮件群发源码就有价值了。这份资源用 VB.NET 写核心投递逻辑走标准 SMTP 协议支持正文模板替换和附件挂载适合需要把群发能力嵌进内部工具、或者想搞明白批量投递底层怎么走的人。它不是那种带界面、带数据库、带退订管理的成品营销系统而是一套能直接读、直接改的投递骨架——SMTP 连接怎么建、附件怎么拼、多收件人怎么循环、失败怎么记这些环节都摆在代码里。新手可以照着跑通一封测试信熟手能拿它当基线去补队列、补限速、补日志。下面按「这东西是什么 → 怎么跑起来 → 哪里会翻车」的顺序拆。2. SMTP 投递链路拆解从连接握手到附件编码的四个关键环节2.1 为什么选 SMTP 直连而不是调第三方接口批量发信常见两条路调第三方邮件服务的 HTTP 接口或者自己用 SMTP 协议直连邮件服务器。这份源码走的是后者。选它的理由很实际——不依赖外部账号体系发件服务器、端口、认证方式全在自己手里改起来没有接口文档的约束。代价是你要自己处理连接复用、认证失败、被对方服务器限流这些事。SMTP 的投递过程本质是一串文本命令的往返客户端连上服务器后先打招呼EHLO服务器回一串能力列表然后认证AUTH LOGIN再声明发件人MAIL FROM、收件人RCPT TO最后传数据DATA并以单独一行句点结束。VB.NET 里System.Net.Mail命名空间把这一串封装成了SmtpClient和MailMessage两个类源码的核心就是围绕这两个类做循环和拼装。需要提前想清楚的一点直连 SMTP 意味着发信信誉完全由你用的发件服务器决定。用企业邮箱的 SMTP 中继信誉跟着企业域名走用自建邮件服务器IP 信誉要自己养。源码本身不解决信誉问题它只负责把信按协议送出去。这一点在选型阶段就要认别指望一套代码能把进垃圾箱的问题一并解决。2.2 连接与认证SmtpClient 的参数怎么配先看连接部分。源码里初始化客户端的典型写法是这样 创建 SMTP 客户端指定发件服务器和端口 Dim smtp As New SmtpClient(smtp.example-mail.com, 587) 启用 STARTTLS587 端口通常要求先明文连接再升级加密 smtp.EnableSsl True 认证凭据用户名一般是完整邮箱地址 smtp.Credentials New Net.NetworkCredential(senderexample-mail.com, your-auth-code) 超时设为 30 秒避免单封卡死拖垮整批 smtp.Timeout 30000这段代码里每个参数都有讲究。端口 587 配EnableSsl True走的是 STARTTLS先明文握手再升级端口 465 走的是隐式 SSL在 .NET 里同样设EnableSsl True但底层行为不同配错会直接连不上。认证密码那一栏很多邮件服务商要求填的是「授权码」而不是登录密码这是新手第一个容易卡住的地方——现象是认证报 5.7.8 之类的错误原因就是拿了登录密码去认证解决方式是去发件服务商后台单独生成授权码。Timeout这个参数容易被忽略。默认值偏长一批几百封里只要有一封卡在某个不响应的服务器上整个循环就停在那里。设成 30 秒是个折中实际跑批量时我一般会再配合外层重试而不是把超时调得特别短——太短会把网络抖动误判成失败。2.3 收件人循环一封一封发还是抄送一堆源码采用的是逐封发送而不是把所有收件人塞进一个MailMessage的To里。这个选择很关键。抄送一堆的做法收件人之间互相可见属于典型的隐私事故而且一旦某个地址无效整封信可能被服务器整体拒收连累其他正常地址。逐封发送虽然慢但每封独立成败失败只影响那一封。循环的骨架大致是 收件人列表来自外部数据源这里用数组示意 Dim recipients As String() {aclient-one.com, bclient-two.com} For Each addr In recipients Try Dim mail As New MailMessage() mail.From New Net.Mail.MailAddress(senderexample-mail.com, 发件显示名) mail.To.Add(addr) mail.Subject ReplaceTemplate(subjectTpl, addr) mail.Body ReplaceTemplate(bodyTpl, addr) mail.IsBodyHtml True mail.SubjectEncoding System.Text.Encoding.UTF8 mail.BodyEncoding System.Text.Encoding.UTF8 smtp.Send(mail) mail.Dispose() 每封之间留间隔降低被限流概率 Threading.Thread.Sleep(800) Catch ex As Exception 记录失败地址和异常信息不中断整批 LogFailure(addr, ex.Message) End Try NextTry...Catch包在循环内部而不是外部这是批量投递的基本纪律——单封失败不能炸掉整批。mail.Dispose()放在发送成功后调用释放附件占用的文件句柄漏掉这步在发带附件的批量任务时会出现「文件被占用」的报错。Thread.Sleep(800)是节流间隔多少取决于发件服务器的限制常见企业邮箱对单账号有每分钟发信数上限间隔太短会触发 4.7.0 类的限流错误。ReplaceTemplate是源码里做模板替换的辅助函数把正文里的占位符换成收件人相关信息。这里要注意编码SubjectEncoding和BodyEncoding都显式设成 UTF8否则中文主题在某些客户端会显示成乱码。这是血泪经验默认编码在部分环境下不是 UTF8不显式设就会翻车。2.4 附件挂载路径、编码与大小三道关附件是这份源码相对完整的一块。挂载本身不复杂难在几个边界 挂载附件注意路径必须是绝对路径或相对于工作目录的正确路径 Dim attach As New Attachment(D:\data\report.pdf) mail.Attachments.Add(attach) 附件显示名含中文时用这个重载指定编码 Dim attach As New Attachment(D:\data\report.pdf, _ System.Net.Mime.MediaTypeNames.Application.Octet, 季度报告.pdf)第一道关是路径。Attachment构造函数接受相对路径但相对的是进程工作目录不是源码文件所在目录。调试时在 IDE 里跑正常部署成服务后工作目录变了附件就找不到报「找不到文件」。稳妥做法是拼绝对路径或者用Path.Combine(AppDomain.CurrentDomain.BaseDirectory, ...)。第二道关是编码。附件内容本身走 Base64 编码由类库自动处理但附件显示名里的中文需要显式指定编码否则收件人看到的是一串乱码文件名。用带name参数的重载并配合ContentDisposition设置能避开这个问题。第三道关是大小。多数邮件服务器对单封邮件总大小有上限常见是 20MB 到 25MB附件加上 Base64 膨胀约增大 33%后很容易超。源码没有内置大小检查需要自己在挂载前判断文件体积超限的走网盘链接或者拆分。批量场景下更要注意一封带大附件的信发几百遍带宽和服务器压力都不小能改成正文里放下载链接的就别硬挂。3. 把源码跑起来环境准备、模板替换与分批投递的实操步骤3.1 环境与依赖VB.NET 项目怎么建、引用什么这份源码是 VB.NET 写的跑起来需要 .NET 环境。用 Visual Studio 建一个 Console ApplicationVB.NET 模板把源码文件加进去即可。核心依赖只有System.Net.Mail它在 .NET Framework 和 .NET 各版本里都在标准库内不需要额外装 NuGet 包。如果目标是 .NET Core 或 .NET 5SmtpClient仍然可用但官方标注为「不推荐用于新开发」功能上跑批量投递没问题介意的话可以换成社区维护的邮件库但那就偏离这份源码的原始形态了。配置项建议抽到一个独立的配置文件里而不是硬编码在代码中。发件服务器、端口、账号、授权码、发件显示名、每封间隔毫秒数这几项都该外部化。源码里如果写死了第一步就是把它挪出来 从 app.config 或环境变量读取避免凭据进版本库 Dim host As String ConfigurationManager.AppSettings(SmtpHost) Dim port As Integer Integer.Parse(ConfigurationManager.AppSettings(SmtpPort)) Dim user As String ConfigurationManager.AppSettings(SmtpUser) Dim pass As String ConfigurationManager.AppSettings(SmtpPass) Dim intervalMs As Integer Integer.Parse(ConfigurationManager.AppSettings(SendIntervalMs))把凭据放进配置文件而不是源码是为了避免提交到代码仓库时泄露。授权码一旦泄露别人可以拿你的发件账号发垃圾邮件后果由账号主体承担。这一步不是可选项。3.2 模板替换函数占位符设计与转义处理模板替换是群发里最容易被低估的环节。源码里的ReplaceTemplate通常做简单的字符串替换比如把{name}换成收件人姓名。简单替换有两个坑一是占位符如果出现在 HTML 属性里替换进去的内容没转义会破坏页面结构二是收件人数据里本身含有占位符字符时可能被二次替换。一个更稳的写法是先转义再替换Function ReplaceTemplate(tpl As String, name As String, email As String) As String 先对用户数据做 HTML 转义防止注入破坏正文结构 Dim safeName As String System.Net.WebUtility.HtmlEncode(name) Dim result As String tpl.Replace({name}, safeName) result result.Replace({email}, System.Net.WebUtility.HtmlEncode(email)) Return result End FunctionHtmlEncode把、、这些字符转成实体避免收件人姓名里带特殊字符时把 HTML 正文搞乱。如果正文是纯文本IsBodyHtml False就不需要这步转义但要注意换行符的处理——纯文本正文里的换行在部分客户端会被吞掉用\r\n而不是\n更稳。占位符命名建议用带花括号或双下划线的形式别用单个普通单词否则正文里正常出现的词会被误替换。源码如果用的是简单形式改模板时留意这一点。3.3 分批与断点几百封以上怎么控制节奏一次循环发几百封中途网络断了或者程序崩了已经发了哪些、还剩哪些得有记录。源码如果只是简单循环缺的正是这块。实操里我一般会加一个已发送记录文件每成功一封追加一行重跑时先读这个文件跳过已发的 已发送记录每行一个邮箱地址 Dim sentFile As String sent.log Dim sentSet As New HashSet(Of String)( If(IO.File.Exists(sentFile), IO.File.ReadAllLines(sentFile), New String() {})) For Each addr In recipients If sentSet.Contains(addr) Then Continue For Try ... 组装并发送 ... IO.File.AppendAllText(sentFile, addr Environment.NewLine) Catch ex As Exception LogFailure(addr, ex.Message) End Try NextHashSet用来做 O(1) 的已发判断比每次遍历列表快。记录文件用追加写程序中途挂掉最多丢最后一行重跑时重发一封的代价可以接受。分批的粒度按发件服务器的限制来定常见做法是每批 50 到 100 封批间停几分钟而不是一口气发完。这个节奏没有统一标准得看你的发件通道能承受多少。提示先用自己控制的几个邮箱做全流程测试确认正文、附件、编码、退信都符合预期再对真实名单动手。测试信别用真实客户地址。4. 群发翻车现场五类高频故障的现象、原因与处置4.1 认证失败授权码、端口与加密方式对不上现象是SmtpException报认证错误错误码常见 5.7.8 或 535。原因有三类拿登录密码当授权码用端口和加密方式配错587 配了隐式 SSL或 465 没开 SSL账号本身没开通 SMTP 发信权限。处置顺序是先确认服务商要求的端口和加密组合再去后台确认 SMTP 服务已开启并生成授权码最后检查账号是否被限制发信。三者逐一排除别一上来就改代码。4.2 进垃圾箱内容、频率与发件域信誉三重因素现象是信发出去了收件人没在收件箱看到。原因通常不在代码而在内容特征大量链接、敏感词、纯图片正文、发送频率短时间大量同主题邮件和发件域信誉新域名、未配 SPF/DKIM。处置上正文保持图文比例合理、少用短链接、主题别带夸张促销词频率按 3.3 的分批节奏走发件域按服务商指引配好 SPF 和 DKIM 记录。源码层面能做的有限但把这几项做到位进箱率会明显不同。4.3 附件丢失或乱码路径、编码与大小三处排查现象是收件人收到信但附件打不开或文件名是乱码。原因对应 2.4 的三道关路径用了相对路径导致部署后找不到文件附件显示名没指定编码单封总大小超服务器上限被静默截断。处置是统一用绝对路径、给中文文件名显式指定编码、挂载前检查文件体积并对超限的改走链接。排查时先看发送端有没有异常再看收件端实际收到的邮件大小。4.4 中文乱码主题、正文与编码声明不一致现象是主题或正文里的中文显示成问号或方块。原因是SubjectEncoding、BodyEncoding没设成 UTF8或者 HTML 正文里缺meta charsetutf-8声明。处置是两处编码都显式设 UTF8HTML 正文头部补上 charset 声明。纯文本正文还要注意用\r\n换行。这类问题在测试阶段用不同客户端各看一遍就能提前发现。4.5 连接被限流或超时间隔、并发与重试策略现象是发到一半开始连续报超时或 4.7.0 限流错误。原因是发送间隔太短、并发太高或者发件服务器对单账号有每分钟/每小时配额。处置是把Thread.Sleep间隔调大、改成单线程顺序发、对限流错误做退避重试失败后等更久再试而不是立即重发。重试要有次数上限否则会陷入死循环。批量任务里宁可慢一点跑完也别因为猛发把账号发信权限搞没了。5. 从能发到发得稳投递结果校验与日志留痕的进阶做法源码跑通只是起点真正决定这套东西能不能长期用的是「发完之后你怎么知道结果」。SMTP 的Send方法返回成功只代表发件服务器接收了这封信不代表收件人收到了。中间可能被对方服务器拒收、进垃圾箱、或者静默丢弃。所以进阶用法的第一件事是补投递结果的可观测性。一个务实的做法是给每封信生成唯一标识写进邮件头同时记进本地日志。邮件头里加自定义字段用mail.Headers.Add 为每封信生成唯一 ID写入邮件头并记入日志 Dim msgId As String Guid.NewGuid().ToString(N) mail.Headers.Add(X-Batch-Id, msgId) 日志记录时间、收件人、msgId、结果 IO.File.AppendAllText(send.log, _ String.Format({0}|{1}|{2}|{3}, DateTime.Now.ToString(s), addr, msgId, OK) Environment.NewLine)有了这个 ID后续如果收到退信NDR退信正文里通常会带回原始邮件头就能对上具体是哪一封、哪个地址失败。没有这个标识几百封发出去退信回来你根本不知道对应哪条记录。这是黑匣子思路——发的时候多记一笔出问题才有后悔药。第二件事是区分「发送成功」和「投递成功」。发送成功看Send有没有抛异常投递成功要靠退信分析和后续的打开/点击数据如果正文里放了追踪链接。源码本身不采集打开数据但你可以把正文里的链接换成带参数的短链用访问日志反推投递效果。这一步超出了源码范围属于落地时按需补的。第三件事是日志的轮转和脱敏。send.log里记了收件人地址属于个人信息文件不能无限增长也不能随便外传。按天切分、保留有限天数、访问权限收紧这几条在正式用之前就该定好。我见过把带完整客户邮箱的日志随手放在共享目录里的情况那比发不出去更麻烦。最后说一个验证方法正式批量前用一组覆盖各种边界的测试地址跑一遍——正常地址、不存在地址、带附件地址、中文名地址、超长主题地址。看日志里每类的记录是否符合预期看退信是否按预期回来。这套测试跑顺了再对真实名单动手心里才有底。从那以后我每次改完投递相关代码都强制走一遍这组边界测试再上线省下来的排查时间远比测试本身多。希望帮到你。本文还有配套的精品资源点击获取 
长河君 · 2026/11/4 13:01:48 · 阅读 1.2k VB.NET SMTP邮件群发源码解析：批量投递实现与避坑指南
简介这份邮件群发源码面向具备一定VB.NET基础的开发者与邮件通知类应用场景围绕SMTP协议实现批量邮件发送可用于营销推广、系统通知等需要高效分发消息的场合。压缩包共128个文件约646KB以vb源码、vbproj与sln解决方案、exe与dll程序集、application部署清单及xml配置为主另含doc使用说明、htm页面与pfx证书等覆盖从工程结构到运行部署的完整链路。已有422人学习下载说明其在同类源码中具备一定参考价值。读者可从中了解SmtpClient与MailMessage构建邮件、封装发送逻辑为DLL以提升复用性、通过测试用例验证群发功能以及配置SMTP服务器、收件人列表与附件处理等要点适合作为学习SMTP机制与VB.NET邮件开发的实践样本。1. 邮件群发源码一份 VB.NET SMTP 的批量投递骨架先看清它能干什么手里有一批客户邮箱想按模板批量发出去又不想把数据交给第三方平台这时候一份能自己改、自己跑的邮件群发源码就有价值了。这份资源用 VB.NET 写核心投递逻辑走标准 SMTP 协议支持正文模板替换和附件挂载适合需要把群发能力嵌进内部工具、或者想搞明白批量投递底层怎么走的人。它不是那种带界面、带数据库、带退订管理的成品营销系统而是一套能直接读、直接改的投递骨架——SMTP 连接怎么建、附件怎么拼、多收件人怎么循环、失败怎么记这些环节都摆在代码里。新手可以照着跑通一封测试信熟手能拿它当基线去补队列、补限速、补日志。下面按「这东西是什么 → 怎么跑起来 → 哪里会翻车」的顺序拆。2. SMTP 投递链路拆解从连接握手到附件编码的四个关键环节2.1 为什么选 SMTP 直连而不是调第三方接口批量发信常见两条路调第三方邮件服务的 HTTP 接口或者自己用 SMTP 协议直连邮件服务器。这份源码走的是后者。选它的理由很实际——不依赖外部账号体系发件服务器、端口、认证方式全在自己手里改起来没有接口文档的约束。代价是你要自己处理连接复用、认证失败、被对方服务器限流这些事。SMTP 的投递过程本质是一串文本命令的往返客户端连上服务器后先打招呼EHLO服务器回一串能力列表然后认证AUTH LOGIN再声明发件人MAIL FROM、收件人RCPT TO最后传数据DATA并以单独一行句点结束。VB.NET 里System.Net.Mail命名空间把这一串封装成了SmtpClient和MailMessage两个类源码的核心就是围绕这两个类做循环和拼装。需要提前想清楚的一点直连 SMTP 意味着发信信誉完全由你用的发件服务器决定。用企业邮箱的 SMTP 中继信誉跟着企业域名走用自建邮件服务器IP 信誉要自己养。源码本身不解决信誉问题它只负责把信按协议送出去。这一点在选型阶段就要认别指望一套代码能把进垃圾箱的问题一并解决。2.2 连接与认证SmtpClient 的参数怎么配先看连接部分。源码里初始化客户端的典型写法是这样 创建 SMTP 客户端指定发件服务器和端口 Dim smtp As New SmtpClient(smtp.example-mail.com, 587) 启用 STARTTLS587 端口通常要求先明文连接再升级加密 smtp.EnableSsl True 认证凭据用户名一般是完整邮箱地址 smtp.Credentials New Net.NetworkCredential(senderexample-mail.com, your-auth-code) 超时设为 30 秒避免单封卡死拖垮整批 smtp.Timeout 30000这段代码里每个参数都有讲究。端口 587 配EnableSsl True走的是 STARTTLS先明文握手再升级端口 465 走的是隐式 SSL在 .NET 里同样设EnableSsl True但底层行为不同配错会直接连不上。认证密码那一栏很多邮件服务商要求填的是「授权码」而不是登录密码这是新手第一个容易卡住的地方——现象是认证报 5.7.8 之类的错误原因就是拿了登录密码去认证解决方式是去发件服务商后台单独生成授权码。Timeout这个参数容易被忽略。默认值偏长一批几百封里只要有一封卡在某个不响应的服务器上整个循环就停在那里。设成 30 秒是个折中实际跑批量时我一般会再配合外层重试而不是把超时调得特别短——太短会把网络抖动误判成失败。2.3 收件人循环一封一封发还是抄送一堆源码采用的是逐封发送而不是把所有收件人塞进一个MailMessage的To里。这个选择很关键。抄送一堆的做法收件人之间互相可见属于典型的隐私事故而且一旦某个地址无效整封信可能被服务器整体拒收连累其他正常地址。逐封发送虽然慢但每封独立成败失败只影响那一封。循环的骨架大致是 收件人列表来自外部数据源这里用数组示意 Dim recipients As String() {aclient-one.com, bclient-two.com} For Each addr In recipients Try Dim mail As New MailMessage() mail.From New Net.Mail.MailAddress(senderexample-mail.com, 发件显示名) mail.To.Add(addr) mail.Subject ReplaceTemplate(subjectTpl, addr) mail.Body ReplaceTemplate(bodyTpl, addr) mail.IsBodyHtml True mail.SubjectEncoding System.Text.Encoding.UTF8 mail.BodyEncoding System.Text.Encoding.UTF8 smtp.Send(mail) mail.Dispose() 每封之间留间隔降低被限流概率 Threading.Thread.Sleep(800) Catch ex As Exception 记录失败地址和异常信息不中断整批 LogFailure(addr, ex.Message) End Try NextTry...Catch包在循环内部而不是外部这是批量投递的基本纪律——单封失败不能炸掉整批。mail.Dispose()放在发送成功后调用释放附件占用的文件句柄漏掉这步在发带附件的批量任务时会出现「文件被占用」的报错。Thread.Sleep(800)是节流间隔多少取决于发件服务器的限制常见企业邮箱对单账号有每分钟发信数上限间隔太短会触发 4.7.0 类的限流错误。ReplaceTemplate是源码里做模板替换的辅助函数把正文里的占位符换成收件人相关信息。这里要注意编码SubjectEncoding和BodyEncoding都显式设成 UTF8否则中文主题在某些客户端会显示成乱码。这是血泪经验默认编码在部分环境下不是 UTF8不显式设就会翻车。2.4 附件挂载路径、编码与大小三道关附件是这份源码相对完整的一块。挂载本身不复杂难在几个边界 挂载附件注意路径必须是绝对路径或相对于工作目录的正确路径 Dim attach As New Attachment(D:\data\report.pdf) mail.Attachments.Add(attach) 附件显示名含中文时用这个重载指定编码 Dim attach As New Attachment(D:\data\report.pdf, _ System.Net.Mime.MediaTypeNames.Application.Octet, 季度报告.pdf)第一道关是路径。Attachment构造函数接受相对路径但相对的是进程工作目录不是源码文件所在目录。调试时在 IDE 里跑正常部署成服务后工作目录变了附件就找不到报「找不到文件」。稳妥做法是拼绝对路径或者用Path.Combine(AppDomain.CurrentDomain.BaseDirectory, ...)。第二道关是编码。附件内容本身走 Base64 编码由类库自动处理但附件显示名里的中文需要显式指定编码否则收件人看到的是一串乱码文件名。用带name参数的重载并配合ContentDisposition设置能避开这个问题。第三道关是大小。多数邮件服务器对单封邮件总大小有上限常见是 20MB 到 25MB附件加上 Base64 膨胀约增大 33%后很容易超。源码没有内置大小检查需要自己在挂载前判断文件体积超限的走网盘链接或者拆分。批量场景下更要注意一封带大附件的信发几百遍带宽和服务器压力都不小能改成正文里放下载链接的就别硬挂。3. 把源码跑起来环境准备、模板替换与分批投递的实操步骤3.1 环境与依赖VB.NET 项目怎么建、引用什么这份源码是 VB.NET 写的跑起来需要 .NET 环境。用 Visual Studio 建一个 Console ApplicationVB.NET 模板把源码文件加进去即可。核心依赖只有System.Net.Mail它在 .NET Framework 和 .NET 各版本里都在标准库内不需要额外装 NuGet 包。如果目标是 .NET Core 或 .NET 5SmtpClient仍然可用但官方标注为「不推荐用于新开发」功能上跑批量投递没问题介意的话可以换成社区维护的邮件库但那就偏离这份源码的原始形态了。配置项建议抽到一个独立的配置文件里而不是硬编码在代码中。发件服务器、端口、账号、授权码、发件显示名、每封间隔毫秒数这几项都该外部化。源码里如果写死了第一步就是把它挪出来 从 app.config 或环境变量读取避免凭据进版本库 Dim host As String ConfigurationManager.AppSettings(SmtpHost) Dim port As Integer Integer.Parse(ConfigurationManager.AppSettings(SmtpPort)) Dim user As String ConfigurationManager.AppSettings(SmtpUser) Dim pass As String ConfigurationManager.AppSettings(SmtpPass) Dim intervalMs As Integer Integer.Parse(ConfigurationManager.AppSettings(SendIntervalMs))把凭据放进配置文件而不是源码是为了避免提交到代码仓库时泄露。授权码一旦泄露别人可以拿你的发件账号发垃圾邮件后果由账号主体承担。这一步不是可选项。3.2 模板替换函数占位符设计与转义处理模板替换是群发里最容易被低估的环节。源码里的ReplaceTemplate通常做简单的字符串替换比如把{name}换成收件人姓名。简单替换有两个坑一是占位符如果出现在 HTML 属性里替换进去的内容没转义会破坏页面结构二是收件人数据里本身含有占位符字符时可能被二次替换。一个更稳的写法是先转义再替换Function ReplaceTemplate(tpl As String, name As String, email As String) As String 先对用户数据做 HTML 转义防止注入破坏正文结构 Dim safeName As String System.Net.WebUtility.HtmlEncode(name) Dim result As String tpl.Replace({name}, safeName) result result.Replace({email}, System.Net.WebUtility.HtmlEncode(email)) Return result End FunctionHtmlEncode把、、这些字符转成实体避免收件人姓名里带特殊字符时把 HTML 正文搞乱。如果正文是纯文本IsBodyHtml False就不需要这步转义但要注意换行符的处理——纯文本正文里的换行在部分客户端会被吞掉用\r\n而不是\n更稳。占位符命名建议用带花括号或双下划线的形式别用单个普通单词否则正文里正常出现的词会被误替换。源码如果用的是简单形式改模板时留意这一点。3.3 分批与断点几百封以上怎么控制节奏一次循环发几百封中途网络断了或者程序崩了已经发了哪些、还剩哪些得有记录。源码如果只是简单循环缺的正是这块。实操里我一般会加一个已发送记录文件每成功一封追加一行重跑时先读这个文件跳过已发的 已发送记录每行一个邮箱地址 Dim sentFile As String sent.log Dim sentSet As New HashSet(Of String)( If(IO.File.Exists(sentFile), IO.File.ReadAllLines(sentFile), New String() {})) For Each addr In recipients If sentSet.Contains(addr) Then Continue For Try ... 组装并发送 ... IO.File.AppendAllText(sentFile, addr Environment.NewLine) Catch ex As Exception LogFailure(addr, ex.Message) End Try NextHashSet用来做 O(1) 的已发判断比每次遍历列表快。记录文件用追加写程序中途挂掉最多丢最后一行重跑时重发一封的代价可以接受。分批的粒度按发件服务器的限制来定常见做法是每批 50 到 100 封批间停几分钟而不是一口气发完。这个节奏没有统一标准得看你的发件通道能承受多少。提示先用自己控制的几个邮箱做全流程测试确认正文、附件、编码、退信都符合预期再对真实名单动手。测试信别用真实客户地址。4. 群发翻车现场五类高频故障的现象、原因与处置4.1 认证失败授权码、端口与加密方式对不上现象是SmtpException报认证错误错误码常见 5.7.8 或 535。原因有三类拿登录密码当授权码用端口和加密方式配错587 配了隐式 SSL或 465 没开 SSL账号本身没开通 SMTP 发信权限。处置顺序是先确认服务商要求的端口和加密组合再去后台确认 SMTP 服务已开启并生成授权码最后检查账号是否被限制发信。三者逐一排除别一上来就改代码。4.2 进垃圾箱内容、频率与发件域信誉三重因素现象是信发出去了收件人没在收件箱看到。原因通常不在代码而在内容特征大量链接、敏感词、纯图片正文、发送频率短时间大量同主题邮件和发件域信誉新域名、未配 SPF/DKIM。处置上正文保持图文比例合理、少用短链接、主题别带夸张促销词频率按 3.3 的分批节奏走发件域按服务商指引配好 SPF 和 DKIM 记录。源码层面能做的有限但把这几项做到位进箱率会明显不同。4.3 附件丢失或乱码路径、编码与大小三处排查现象是收件人收到信但附件打不开或文件名是乱码。原因对应 2.4 的三道关路径用了相对路径导致部署后找不到文件附件显示名没指定编码单封总大小超服务器上限被静默截断。处置是统一用绝对路径、给中文文件名显式指定编码、挂载前检查文件体积并对超限的改走链接。排查时先看发送端有没有异常再看收件端实际收到的邮件大小。4.4 中文乱码主题、正文与编码声明不一致现象是主题或正文里的中文显示成问号或方块。原因是SubjectEncoding、BodyEncoding没设成 UTF8或者 HTML 正文里缺meta charsetutf-8声明。处置是两处编码都显式设 UTF8HTML 正文头部补上 charset 声明。纯文本正文还要注意用\r\n换行。这类问题在测试阶段用不同客户端各看一遍就能提前发现。4.5 连接被限流或超时间隔、并发与重试策略现象是发到一半开始连续报超时或 4.7.0 限流错误。原因是发送间隔太短、并发太高或者发件服务器对单账号有每分钟/每小时配额。处置是把Thread.Sleep间隔调大、改成单线程顺序发、对限流错误做退避重试失败后等更久再试而不是立即重发。重试要有次数上限否则会陷入死循环。批量任务里宁可慢一点跑完也别因为猛发把账号发信权限搞没了。5. 从能发到发得稳投递结果校验与日志留痕的进阶做法源码跑通只是起点真正决定这套东西能不能长期用的是「发完之后你怎么知道结果」。SMTP 的Send方法返回成功只代表发件服务器接收了这封信不代表收件人收到了。中间可能被对方服务器拒收、进垃圾箱、或者静默丢弃。所以进阶用法的第一件事是补投递结果的可观测性。一个务实的做法是给每封信生成唯一标识写进邮件头同时记进本地日志。邮件头里加自定义字段用mail.Headers.Add 为每封信生成唯一 ID写入邮件头并记入日志 Dim msgId As String Guid.NewGuid().ToString(N) mail.Headers.Add(X-Batch-Id, msgId) 日志记录时间、收件人、msgId、结果 IO.File.AppendAllText(send.log, _ String.Format({0}|{1}|{2}|{3}, DateTime.Now.ToString(s), addr, msgId, OK) Environment.NewLine)有了这个 ID后续如果收到退信NDR退信正文里通常会带回原始邮件头就能对上具体是哪一封、哪个地址失败。没有这个标识几百封发出去退信回来你根本不知道对应哪条记录。这是黑匣子思路——发的时候多记一笔出问题才有后悔药。第二件事是区分「发送成功」和「投递成功」。发送成功看Send有没有抛异常投递成功要靠退信分析和后续的打开/点击数据如果正文里放了追踪链接。源码本身不采集打开数据但你可以把正文里的链接换成带参数的短链用访问日志反推投递效果。这一步超出了源码范围属于落地时按需补的。第三件事是日志的轮转和脱敏。send.log里记了收件人地址属于个人信息文件不能无限增长也不能随便外传。按天切分、保留有限天数、访问权限收紧这几条在正式用之前就该定好。我见过把带完整客户邮箱的日志随手放在共享目录里的情况那比发不出去更麻烦。最后说一个验证方法正式批量前用一组覆盖各种边界的测试地址跑一遍——正常地址、不存在地址、带附件地址、中文名地址、超长主题地址。看日志里每类的记录是否符合预期看退信是否按预期回来。这套测试跑顺了再对真实名单动手心里才有底。从那以后我每次改完投递相关代码都强制走一遍这组边界测试再上线省下来的排查时间远比测试本身多。希望帮到你。本文还有配套的精品资源点击获取