Visual Basic真的能自动发送邮件吗？
刚接触VB的新手们是不是经常遇到这种情况？领导要你做个自动发送报表的程序，同事说想实现用户注册验证功能，可你连邮箱服务器是什么都不知道…别慌！今天咱们就掰开了揉碎了讲讲，怎么用VB实现这个看似高大上的功能。放心，不用懂网络协议也不用买服务器，跟着做就完事了！
第一步：配置开发环境 先打开你的VB6.0或者VB.NET开发环境，不管是社区版还是专业版都行。重点是要确保.NET Framework版本在3.5以上（右键我的电脑看属性就能确认）。这时候你可能要问：为啥非得3.5版本？因为System.Net.Mail这个关键的邮件类库就是从这个版本开始支持的呀！
准备发送工具包 在项目里右键引用，找到System.Net和System.Net.Mail这两个程序集打勾。这相当于给你的VB工具箱里塞进了发送邮件的”瑞士军刀”。要是没找到这两个选项，八成是.NET Framework版本太旧，得去微软官网下个更新包。
构建邮件骨架 咱们先搭个最简单的框架试试水。新建个Windows窗体，拖三个文本框分别用来填发件箱、收件箱和密码，再放个按钮控件。双击按钮进入代码编辑界面，这时候手别抖，把这段核心代码敲进去：
“`vb Imports System.Net.Mail
Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click Dim mail As New MailMessage() mail.From = New MailAddress(txtFrom.Text) mail.To.Add(txtTo.Text) mail.Subject = “VB自动发送测试” mail.Body = “这是VB程序自动发送的邮件内容”
Dim smtp As New SmtpClient(“smtp.163.com”) ‘以网易邮箱为例 smtp.Port = 25 smtp.Credentials = New NetworkCredential(txtFrom.Text, txtPassword.Text) smtp.EnableSsl = False Try smtp.Send(mail) MessageBox.Show(“发送成功！”) Catch ex As Exception MessageBox.Show(“发送失败：” & ex.Message) End TryEnd Sub “`
这时候你可能要拍桌子了：等等！smtp.163.com是啥？端口25又是哪来的？别急，这就给你说清楚。每个邮箱服务商都有自己的SMTP服务器地址，就像快递公司有不同的分拣中心。常见的有： – 网易邮箱：smtp.163.com 端口25/465 – QQ邮箱：smtp.qq.com 端口587 – Gmail：smtp.gmail.com 端口465
解决发送失败问题 跑完代码弹出发送失败？先别怀疑人生，按照这个检查清单排查： 1. 是否开启SMTP服务（邮箱设置里找”POP3/SMTP服务”） 2. 端口是否正确（25端口常被运营商屏蔽，可改用465） 3. SSL加密开关对不对（QQ邮箱必须开启SSL） 4. 密码是不是应用专用密码（部分邮箱需要单独生成）
比如QQ邮箱就得这么改： vb smtp.Port = 587 smtp.EnableSsl = True 还要去QQ邮箱官网生成个16位的授权码代替登录密码，这个坑不知道让多少新手抓狂过！
添加附件和HTML内容 想让邮件更专业？试试这两个进阶功能： – 添加附件：mail.Attachments.Add(New Attachment(“D:\报表.xlsx”)) – 支持HTML格式：mail.IsBodyHtml = True
不过要注意附件别超过20M，否则容易被服务器拒收。要是想插入图片，得先把图片上传到图床，然后用
的方式引用。
小编观点：测试时建议先用本地邮箱给自己发，亲眼看到收件箱躺着程序发的邮件时，那成就感可比通关游戏强多了！最后提醒，千万别在代码里写死密码，正式环境记得用配置文件加密存储敏感信息。
相关文章：
相关推荐：