【蜂邮EDM】：邮件群发系统，EDM邮件营销平台，邮件代发服务。 查看价格
【AokSend邮件API】：触发式邮件API，15元/万封，99%送达率。 查看价格
【烽火邮箱】：新人领取免费域名邮箱，可用作企业邮箱公司邮箱。 查看价格

VB.NET 发送邮件的 12 段实用代码

引言

随着互联网的快速发展，邮件功能在我们的日常生活中扮演着越来越重要的角色。无论是商务沟通、个人协作，还是数据统计，邮件都是一种高效的信息传递工具。而在开发领域，发送邮件的功能通常通过编程语言实现，以满足自动化、高频次的操作需求。对于学习VB.NET的开发者来说，掌握如何用VB.NET发送邮件，无疑是一种非常实用的技能。

本文将介绍12段VB.NET代码，每段代码都展示了不同的邮件发送功能，帮助开发者更好地理解和应用VB.NET在邮件处理中的强大能力。

1. 邮件发送基础

在介绍具体代码之前，我们先从邮件发送的基础知识开始。使用VB.NET发送邮件，首先需要安装并配置一个邮件服务器。常见的邮件服务器包括Exchange Server、Outlook Server以及一些第三方邮件服务提供商（如Mailbird、ASPA）。

代码段1：发送一封邮件的基本示例

**代码逻辑**：  1. 初始化Outlook对象并连接到邮件服务器。  2. 创建一个Outlook邮件。  3. 设置邮件的主题、收件人和内容。  4. 执行邮件发送操作。  5. 处理返回的状态信息（成功与否）。  **代码示例**：

Dim olApp As Object
Dim olMail As Object

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

olMail = olApp.CreateMail()
olMail.Subject = "测试邮件"
olMail.To = "test@example.com"
olMail.Body = "这是一个测试邮件，用于演示VB.NET邮件发送功能。"

olMail.Send

' 检查邮件发送状态
If olMail.Sent Then
MsgBox "邮件已成功发送！"
Else
MsgBox "邮件发送失败，请检查网络或邮件服务器设置。"
End If

---## 2. 多个邮件批量发送在实际应用中，通常需要发送多封邮件，尤其是在需要频繁但非紧急的邮件发送场景中。使用VB.NET批量发送邮件可以大大提高效率。### 代码段2：批量发送多封邮件```markdown**代码逻辑**：  1. 定义邮件参数，包括主题、收件人列表和内容。  2. 遍历收件人列表，创建并发送邮件。  3. 处理发送失败的情况。  **代码示例**：

Dim olApp As Object
Dim olMailArray() As Outlook.Mail
Dim sendCount As Integer

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' 定义邮件参数
Dim subject As String = "批量邮件测试"
Dim body As String = "这是一个批量邮件发送的测试，用于演示VB.NET邮件功能。"

' 收件人列表
Dim addresses() As String = {"a@example.com", "b@example.com", "c@example.com"}

' 创建并发送邮件
sendCount = 0
For Each address In addresses
Dim olMail As Outlook.Mail
olMail = olApp.CreateMail()
olMail.Subject = subject
olMail.To = address
olMail.Body = body
sendCount += 1
olMail.Send
Next

' 显示成功或失败信息
If sendCount > 0 Then
MsgBox "已成功发送" & sendCount & "封邮件。"
Else
MsgBox "所有邮件发送均失败，请检查设置。"
End If

---## 3. 自定义邮件主题和内容在邮件功能中，主题和内容的自定义能力非常重要。开发者可以根据具体需求，动态地调整邮件的主题、收件人和内容，以满足不同的业务需求。### 代码段3：动态设置邮件主题和内容```markdown**代码逻辑**：  1. 定义动态的邮件主题和内容字段。  2. 遍历收件人列表，为每封邮件设置不同的主题和内容。  3. 发送邮件并处理返回状态。  **代码示例**：

Dim olApp As Object
Dim olMailArray() As Outlook.Mail
Dim sendCount As Integer

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' 收件人列表
Dim addresses() As String = {"a@example.com", "b@example.com", "c@example.com"}

' 动态邮件参数
Dim subject As String = "测试邮件"
Dim body As String = "这是一个动态邮件发送的测试，用于演示VB.NET邮件功能。"

sendCount = 0
For Each address In addresses
Dim olMail As Outlook.Mail
olMail = olApp.CreateMail()
olMail.Subject = subject
olMail.To = address
olMail.Body = body
sendCount += 1
olMail.Send
Next

' 显示成功或失败信息
If sendCount > 0 Then
MsgBox "已成功发送" & sendCount & "封邮件。"
Else
MsgBox "所有邮件发送均失败，请检查设置。"
End If

---## 4. 个性化邮件签名在专业邮件中，签名部分通常包括发送人的名字、职位、公司名称等信息，以增加邮件的专业性和可信度。使用VB.NET可以轻松地设置和个性化邮件签名。### 代码段4：设置邮件签名```markdown**代码逻辑**：  1. 定义邮件签名信息。  2. 遍历收件人列表，为每封邮件设置签名。  3. 发送邮件并处理返回状态。  **代码示例**：

Dim olApp As Object
Dim olMailArray() As Outlook.Mail
Dim sendCount As Integer

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' 签名信息
Dim name As String = "测试用户"
Dim position As String = "测试开发人员"
Dim company As String = "测试公司"

' 收件人列表
Dim addresses() As String = {"a@example.com", "b@example.com", "c@example.com"}

sendCount = 0
For Each address In addresses
Dim olMail As Outlook.Mail
olMail = olApp.CreateMail()
olMail.Subject = "测试邮件"
olMail.To = address
olMail.Body = "这是一个带有个性签名的邮件，用于演示VB.NET邮件功能。"
olMail.Signature = "<br />Name: " & name & "<br />Position: " & position & "<br />Company: " & company
sendCount += 1
olMail.Send
Next

' 显示成功或失败信息
If sendCount > 0 Then
MsgBox "已成功发送" & sendCount & "封邮件。"
Else
MsgBox "所有邮件发送均失败，请检查设置。"
End If

---## 5. 邮件附件上传在许多邮件场景中，发送附件是不可或缺的功能。使用VB.NET可以方便地在邮件中附加文件，如图片、Word文件、Excel文件等。### 代码段5：上传邮件附件```markdown**代码逻辑**：  1. 定义附件信息，包括文件路径、文件名和描述。  2. 遍历收件人列表，为每封邮件上传附件。  3. 发送邮件并处理返回状态。  **代码示例**：

Dim olApp As Object
Dim olMail As Outlook.Mail
Dim attachmentPath As String
Dim fileName As String
Dim description As String

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' 附件信息
attachmentPath = "C:\testfile.jpg"
fileName = "testfile.jpg"
description = "这是一个测试附件，用于演示VB.NET邮件功能。"

' 收件人列表
Dim addresses() As String = {"a@example.com", "b@example.com", "c@example.com"}

For Each address In addresses
Dim olMail As Outlook.Mail
olMail = olApp.CreateMail()
olMail.Subject = "测试邮件"
olMail.To = address
olMail.Body = "这是一个测试邮件，包含一个附件：" & description
olMail.Attachments.Add(attachmentPath, fileName)
olMail.Send
Next

' 显示成功或失败信息
If olMail.Sent Then
MsgBox "邮件已成功发送！"
Else
MsgBox "邮件发送失败，请检查附件路径和网络设置。"
End If

---## 6. 邮件主题使用HTML格式在某些情况下，邮件主题可能会使用HTML格式以增加邮件的可读性和吸引力。使用VB.NET可以轻松地在邮件主题中使用HTML标签。### 代码段6：使用HTML格式设置邮件主题```markdown**代码逻辑**：  1. 定义HTML格式的主题内容。  2. 使用VB.NET的Outlook对象设置邮件主题。  3. 发送邮件并处理返回状态。  **代码示例**：

Dim olApp As Object
Dim olMail As Outlook.Mail

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' HTML格式主题
Dim htmlSubject As String = "<b>测试邮件主题</b>"
htmlSubject = htmlSubject & vbCrLf & "这是一个使用HTML格式的邮件主题，用于演示VB.NET邮件功能。"

olMail = olApp.CreateMail()
olMail.Subject = htmlSubject
olMail.To = "test@example.com"
olMail.Body = "这是一个测试邮件，主题使用HTML格式。"
olMail.Send

' 检查邮件发送状态
If olMail.Sent Then
MsgBox "邮件已成功发送！"
Else
MsgBox "邮件发送失败，请检查设置。"
End If

---## 7. 个性化邮件正文在邮件正文部分，开发者可以使用HTML、CSS等技术来设计邮件的布局和样式，以提高邮件的可读性和专业性。### 代码段7：使用CSS样式表设置邮件正文```markdown**代码逻辑**：  1. 定义邮件正文的CSS样式表。  2. 使用VB.NET的Outlook对象应用样式表。  3. 发送邮件并处理返回状态。  **代码示例**：

Dim olApp As Object
Dim olMail As Outlook.Mail
Dim styleUrl As String

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' CSS样式表路径
styleUrl = "C:\custom.css"

' 应用样式表
olMail = olApp.CreateMail()
olMail.Subject = "测试邮件"
olMail.To = "test@example.com"
olMail.Body = "这是一个测试邮件，正文使用了CSS样式表。"

olMail.ApplyFromUr[文]l(styleUrl)

olMail.Send

' 检查邮件发送状态
If olMail.Sent Then
MsgBox "邮件已成功发送！"
Else
MsgBox "邮件发送失败，请检查样式表路径和网络设置。"
End If

---## 8. 邮件群发在实际应用中，发送多封不同的邮件到同一个或多个收件人是常见的任务。使用VB.NET可以轻松地实现邮件群发功能。### 代码段8：邮件群发示例```markdown**代码逻辑**：  1. 定义群发邮件的参数，包括主题、收件人列表和内容。  2. 使用Outlook的高级邮件发送功能发送群发邮件。  3. 处理返回的状态信息。  **代码示例**：

Dim olApp As Object
Dim olMailArray() As Outlook.Mail
Dim sendCount As Integer

olApp = New Outlook.Application
olApp.ConnectTo("smtp.example.com", 587)
olApp.Identify

' 群发邮件参数
Dim subject As String = "群发邮件测试"
Dim body As String = "这是一个群发邮件的测试，用于演示VB.NET邮件功能。"

' 收件人列表
Dim addresses() As String = {"a@example.com", "b@example.com", "c@example.com"}

' 发送群发邮件
sendCount = 0
For Each address In addresses
Dim olMail As Outlook.Mail
olMail = olApp.CreateMail()
olMail.Subject = subject
olMail.To = address
olMail.Body = body
sendCount += 1
olMail.Send
Next

' 显示成功或失败信息
If sendCount > 0 Then
MsgBox "已成功发送" & sendCount & "封邮件。"
Else
MsgBox "所有邮件发送均失败，请检查设置。"
End If

---## 9. 邮件批量群发在一些复杂的应用场景中，需要同时发送不同的邮件类型（如测试邮件、促销邮件等）。使用VB.NET可以实现批量群发，以提高邮件发送的效率。### 代码段9：批量群发邮件```markdown**代码逻辑**：  1. 定义批量群发邮件的参数，包括主题、收件人列表和内容。  2. 使用Outlook的高级邮件发送功能批量发送邮件。  3. 处理返回的状态信息

【蜂邮EDM】：邮件群发系统，EDM邮件营销平台，邮件代发服务。 查看价格
【AokSend邮件API】：触发式邮件API，15元/万封，99%送达率。 查看价格
【烽火邮箱】：新人领取免费域名邮箱，可用作企业邮箱公司邮箱。 查看价格

【烽火邮箱】：烽火邮箱是一款简洁高效的企业邮箱平台，新客户赠送免费企业邮箱，一个起卖、按月付费（低至9.9元）；支持别名邮箱及群组邮箱，支持定制无限邮箱。高权重纯净IP池，系统自带反垃圾机制。
立即查看 >> ：企业邮箱价格

【蜂邮EDM】：邮件群发系统，EDM邮件营销平台，邮件代发服务，专业研发定制邮件营销系统及邮件群发解决方案！蜂邮自研产品线主要分为标准版、外贸版、企业版、定制版，及邮件API邮件SMTP接口服务。
立即查看 >> ：邮件发送价格

【AokSend邮件API】：专注触发式邮件API发送服务。15元/万封，发送验证码邮件、忘记密码邮件、通知告警邮件等，不限速。综合送达率99%、进箱率98%。触发邮件也叫事务性邮件或推送邮件，包含：验证码邮件、重置密码邮件、余额提醒邮件、会员到期邮件、账号认证邮件等！
立即查看 >> ：邮件发送价格