用Visual Basic .Net发送电子邮件

二．Visual Basic .Net是如何发送电子邮件：

　　在.Net FrameWork SDK Beta 2版中，有一个叫做System.Web.Mail的名称空间，这个名称空间被封装在System.Web.dll文件中。在这个名称空间中定义了关于发送电子邮件的方法、对象和属性。Visual Basic .Net就是通过调用此名称空间中的方法、对象和属性，发送电子邮件的。在本文中，发送电子邮件主要用到了二个对象：一个是MailMessage对象，此对象主要是封装电子邮件的各个属性，即所谓的发信人，收信人，信件的主题，信件的内容和信件的附件等。另外一个是SmtpMail对象，这个对象的主要的作用是把已经定义好各个属性的MailMessage对象(即电子邮件内容)给发送出去，这是通过调用SmtpMail对象的Send ( )方法来实现的

　　三．在Visual Basic .Net中做发送电子邮件程序的主要步骤：

　　（1）.首先就要在程序的最前面导入封装对象的名称空间，具体如下：

　　　　Imports System.Web.Mail

　　（2）. MailMessage对象中的各个属性的含义：

　　下表是MailMessage对象中的各个属性以及他们所代表的意思：

属性名称	代表意义
From	电子邮件源地址
To	电子邮件目的地址
Subject	电子邮件邮件主题
Priority	电子邮件优先级 ( High , Low , Normal )
Attachments	电子邮件的附件
Bcc	电子邮件的暗送地址
Cc	电子邮件的抄送地址
Body	电子邮件内容主体
Bodyformat	电子邮件格式( Html , Text )
Bodyencoding	电子邮件编码( Base64 , Uuencode )

　　在程序中，通过以下代码实现对电子邮件的各个属性的定义，具体如下：

Dim aMessage as new MailMessage '新建一个MailMessage对象 aMessage.From = FromTextBox.Text '定义发信人地址，如果是多人，可以用"，"分开 aMessage.To = ToTextBox.Text '定义收信人地址，如果是多人，可以用"，"分开 aMessage.Cc = CCTextBox.Text '定义抄送人地址，如果是多人，可以用"，"分开 aMessage.Bcc = BCCTextBox.Text '定义暗送人地址，如果是多人，可以用"，"分开 aMessage.Subject = SubjectTextBox.Text '定义邮件的主题 aMessage.Body = MessageTextBox.Text '定义邮件的内容 if AttachmentTextBox.Text.Length > 0 then aMessage.Attachments.Add ( new MailAttachment ( AttachmentTextBox.Text , MailEncoding.Base64 ) ) End if '给邮件增加一个附件

　　可见定义用Visual Basic .Net来定义电子邮件属性是比较方便的。

　　注：以上程序代码中"＝"右边是程序中定义的文本框的"Text"值。

　　（3）.用SmtpMail对象发送已经定义好的各个属性的MailMessage对象：

　　用Visual Basic .Net调用SmtpMail对象的Send ( )方法有多种方式。本文介绍的只是其中的一种比较常用的调用方式，即：SmtpMail.Send ( MailMessage对象 )。在程序中的实现语句如下：

SmtpMail.Send ( aMessage ) '发送电子邮件