VB.Net - 发送邮件

由 yiyohunter 创建，youj 最后一次修改 2016-12-12 VB.Net允许从您的应用程序发送电子邮件。 System.Net.Mail命名空间包含用于向简单邮件传输协议（SMTP）服务器发送电子邮件以进行传递的类。下表列出了一些常用的类：SN类描述1Attachment表示对电子邮件的附件。2AttachmentCollection存储要作为电子邮件的一部分发送的附件。3MailAddress表示电子邮件发件人或收件人的地址。4MailAddressCollection存储与电子邮件相关联的电子邮件地址。5MailMessage表示可以使用SmtpClient类发送的电子邮件。6SmtpClient允许应用程序使用简单邮件传输协议（SMTP）发送电子邮件。7SmtpException表示当SmtpClient无法完成发送或SendAsync操作时抛出的异常。SmtpClient类SmtpClient类允许应用程序使用简单邮件传输协议（SMTP）发送电子邮件。以下是SmtpClient类的一些常用属性：SN属性描述1ClientCertificates指定应使用哪些证书建立安全套接字层（SSL）连接。2Credentials获取或设置用于验证发件人的凭据。3EnableSsl指定SmtpClient是否使用安全套接字层（SSL）加密连接。4Host获取或设置用于SMTP事务的主机的名称或IP地址。5Port获取或设置用于SMTP事务的端口。6Timeout获取或设置一个值，该值指定同步发送调用超时的时间量。7UseDefaultCredentials获取或设置一个布尔值，该值控制是否随请求一起发送DefaultCredentials。以下是SmtpClient类的一些常用方法： SN方法和说明1 Dispose 向SMTP服务器发送QUIT消息，正常结束TCP连接，并释放SmtpClient类的当前实例使用的所有资源。 2 Dispose（Boolean） 向SMTP服务器发送QUIT消息，正常结束TCP连接，释放由SmtpClient类的当前实例使用的所有资源，并且可选地处置托管资源。 3 OnSendCompleted 引发SendCompleted事件。 4 Send(MailMessage) 将指定的消息发送到SMTP服务器进行传递。 5 Send（String，String，String，String） 将指定的电子邮件发送到SMTP服务器进行传送。消息发件人，收件人，主题和邮件正文使用String对象指定。 6 SendAsync（MailMessage，Object） 将指定的电子邮件发送到SMTP服务器进行传送。此方法不会阻止调用线程，并允许调用者将一个对象传递给操作完成时调用的方法。 7 SendAsync（String，String，String，String，Object）将电子邮件发送到SMTP服务器进行传送。消息发件人，收件人，主题和邮件正文使用String对象指定。此方法不会阻止调用线程，并允许调用者将一个对象传递给操作完成时调用的方法。 8 SendAsyncCancel 取消异步操作以发送电子邮件。 9 SendMailAsync（MAILMESSAGE） 发送指定消息，以交付作为异步操作的SMTP服务器。 10 SendMailAsync（MailMessage）将指定的消息发送到SMTP服务器以作为异步操作进行传递。 11 ToString返回表示当前对象的字符串。 以下示例演示如何使用SmtpClient类发送邮件。 在这方面应注意以下几点： 您必须指定用于发送电子邮件的SMTP主机服务器。 不同主机服务器的主机和端口属性将不同。 我们将使用gmail服务器。 如果SMTP服务器需要，您需要授予认证凭据。 您还应该分别使用MailMessage.From和MailMessage.To属性提供发件人的电子邮件地址和收件人的电子邮件地址。 您还应该使用MailMessage.Body属性指定消息内容。 示例在这个例子中，让我们创建一个发送电子邮件的简单应用程序。 执行以下步骤： 在表单中添加三个标签，三个文本框和一个按钮控件。 将标签的文本属性分别更改为 - “From”，“To：”和“Message：”。 将文本的名称属性分别更改为txtFrom，txtTo和txtMessage。 将按钮控件的文本属性更改为“发送” 在代码编辑器中添加以下代码。 Imports System.Net.MailPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Set the caption bar text of the form. Me.Text = "tutorialspoint.com" End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try Dim Smtp_Server As New SmtpClient Dim e_mail As New MailMessage() Smtp_Server.UseDefaultCredentials = False Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password") Smtp_Server.Port = 587 Smtp_Server.EnableSsl = True Smtp_Server.Host = "smtp.gmail.com" e_mail = New MailMessage() e_mail.From = New MailAddress(txtFrom.Text) e_mail.To.Add(txtTo.Text) e_mail.Subject = "Email Sending" e_mail.IsBodyHtml = False e_mail.Body = txtMessage.Text Smtp_Server.Send(e_mail) MsgBox("Mail Sent") Catch error_t As Exception MsgBox(error_t.ToString) End Try End Sub您必须提供您的gmail地址和真实密码以获取凭据。当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口，您将使用该窗口发送电子邮件，自行尝试。