导航：首页 > 开发技术 >

如何理解VB.NET发送邮件的两种方法

发表于：2024-11-26 作者：千家信息网编辑

千家信息网最后更新 2024年11月26日，今天就跟大家聊聊有关如何理解VB.NET发送邮件的两种方法，可能很多人都不太了解，为了让大家更加了解，小编给大家总结了以下内容，希望大家根据这篇文章可以有所收获。VB.NET功能非常强大，程序界面标准

千家信息网最后更新 2024年11月26日如何理解VB.NET发送邮件的两种方法

今天就跟大家聊聊有关如何理解VB.NET发送邮件的两种方法，可能很多人都不太了解，为了让大家更加了解，小编给大家总结了以下内容，希望大家根据这篇文章可以有所收获。

VB.NET功能非常强大，程序界面标准，可以帮助程序员提高开发效率。它能够支持类的各种特性。那么今天我们将会通过对VB.NET发送邮件的方法的理解，对这一语言的使用技巧进行一个详细的解读。

VB.NET发送邮件实现方法之一、使用outLook提供的发送

如：我见过的用友软件U8生产制造(演示版)，其中的邮件功能就是通过调用outLook的ActiveX 组件

优点：开发简单

缺点：依赖outlook组件，SMTP 邮件服务

邮件发送的代码如下：

以下是引用片段：

Private Sub Send()
Dim outObj As New
Outlook.Application()
Dim Item As Outlook.
MailItemClass
Item = outObj.CreateItem(0)
Item.To = "lihonggen0@163.com "
Item.Subject = "hello"
Item.Body = "hell"
Item.Attachments.Add
("C:\abc.txt")
Item.Send()
End Sub

VB.NET发送邮件实现方法之二、WEB开发，在asp.net中引用System.Web.Mail类

VB.NET赋值语句基本概念剖析
VB.NET声明语句具体应用方法详解
VB.NET可执行语句示例代码解读
VB.NET创建过程相关步骤详解
如何对VB.NET流进行正确操作

System.Web.Mail 命名空间包含使您可以使用 CDOSYS(Windows 2000 的协作数据对象)消息组件来构造和发送消息的类。邮件消息是通过内置在 Microsoft Windows 2000 中的 SMTP 邮件服务或任意的 SMTP 服务器来传送的。此命名空间中的类可以在 asp.Net 或任何托管应用程序

MailAttachment提供用于构造电子邮件附件的属性和方法。

MailMessage提供用于构造电子邮件的属性和方法。

SmtpMail提供用于使用 Windows 2000 的协作数据对象 (CDOSYS) 消息组件来发送消息的属性和方法。

邮件可以通过 Microsoft Windows 2000 中内置的 SMTP 邮件服务或任意 SMTP 服务器来传送。System.Web.Mail 命名空间中的类型可以在 ASP.Net 或任何托管应用程序使用。

Smtp服务器的设置，现在一些免费邮件提供商是不再提供针对所有邮件提供Smtp服务，在发送邮件的时候，需要验证用户信息，考虑Smtp用户验证问题

如果Smtp服务器在本地计算机，发送速度很快的，基本上不用担心，如果不是本地服务器，那么发送的时候***不要以此太多，一是速度问题，二是以此发送太多邮件，Smtp服务器可能认为是垃圾邮件而拒绝服务

VB.NET发送邮件的代码如下:

以下是引用片段：

Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim mailObj As New MailMessage()
Dim smtp As SmtpMail
'定义SMTP服务器的名称
smtp.SmtpServer = "smtp.XXX.com"
'定义邮件的发送地址
mailObj.From = "lihonggen@XXX.com"
'定义邮件的接收地址
mailObj.To = " AAA@XXX.com"
'定义邮件的暗送地址
mailObj.Bcc= "aa@sina.com"
'定义邮件的抄送地址
mailObj.Cc = "aaa@sina.com"
'定义邮件的主题
mailObj.Subject = "主题"
'定义邮件的主体
mailObj.Body = "邮件主体!"
'邮件以 HTML的格式发送
mailObj.BodyFormat = MailFormat.Html
'定义邮件的有限级，在此设定为高
mailObj.Priority = MailPriority.High
'给发送的邮件附加上一个附件
mailObj.Attachments.Add(New
MailAttachment("c:\aa.doc"))
smTp.Send(mailObj)
End Sub