1、使用outLook提供的發(fā)送
如：我見(jiàn)過(guò)的用友軟件U8生產(chǎn)制造(演示版)，其中的郵件功能就是通過(guò)調(diào)用outLook的ActiveX 組件
優(yōu)點(diǎn)：開(kāi)發(fā)簡(jiǎn)單
缺點(diǎn)：依賴outlook組件，SMTP 郵件服務(wù)
郵件發(fā)送的代碼如下：
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
參考：使用 Microsoft Outlook 2002 開(kāi)發(fā)解決方案http://www.microsoft.com/china/msdn/library/dndotnetout2k2/html/odc_oldevsol.asp

2、WEB開(kāi)發(fā)，在ASP.NET中引用System.Web.Mail類
System.Web.Mail 命名空間包含使您可以使用 CDOSYS（Windows 2000 的協(xié)作數(shù)據(jù)對(duì)象）消息組件來(lái)構(gòu)造和發(fā)送消息的類。郵件消息是通過(guò)內(nèi)置在 Microsoft Windows 2000 中的 SMTP 郵件服務(wù)或任意的 SMTP 服務(wù)器來(lái)傳送的。此命名空間中的類可以在 ASP.NET 或任何托管應(yīng)用程序
MailAttachment提供用于構(gòu)造電子郵件附件的屬性和方法。
MailMessage提供用于構(gòu)造電子郵件的屬性和方法。
SmtpMail提供用于使用 Windows 2000 的協(xié)作數(shù)據(jù)對(duì)象 (CDOSYS) 消息組件來(lái)發(fā)送消息的屬性和方法。
郵件可以通過(guò) Microsoft Windows 2000 中內(nèi)置的 SMTP 郵件服務(wù)或任意 SMTP 服務(wù)器來(lái)傳送。System.Web.Mail 命名空間中的類型可以在 ASP.NET 或任何托管應(yīng)用程序使用。
Smtp服務(wù)器的設(shè)置，現(xiàn)在一些免費(fèi)郵件提供商是不再提供針對(duì)所有郵件提供Smtp服務(wù)，在發(fā)送郵件的時(shí)候，需要驗(yàn)證用戶信息，考慮Smtp用戶驗(yàn)證問(wèn)題
如果Smtp服務(wù)器在本地計(jì)算機(jī)，發(fā)送速度很快的，基本上不用擔(dān)心，如果不是本地服務(wù)器，那么發(fā)送的時(shí)候最好不要以此太多，一是速度問(wèn)題，二是以此發(fā)送太多郵件，Smtp服務(wù)器可能認(rèn)為是垃圾郵件而拒絕服務(wù)
代碼如下:
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服務(wù)器的名稱
        smtp.SmtpServer = "smtp.XXX.com"
        ‘定義郵件的發(fā)送地址
        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的格式發(fā)送
        mailObj.BodyFormat = MailFormat.Html
        ‘定義郵件的有限級(jí)，在此設(shè)定為高
        mailObj.Priority = MailPriority.High
        ‘給發(fā)送的郵件附加上一個(gè)附件
        mailObj.Attachments.Add(New MailAttachment("c:\aa.doc"))
        smTp.Send(mailObj)
End Sub

3、在VB.NET或C#開(kāi)發(fā)Windows 應(yīng)用程序中使用System.Net.Sockets
也是基于SMTP協(xié)議
一、SMTP協(xié)議簡(jiǎn)介
1、 客戶端通過(guò)服務(wù)器的25端口建立TCP/IP連接
服務(wù)器端： 220 server.com Simple Mail Transfer Service Ready
2、 客戶端使用“HELO”命令標(biāo)識(shí)發(fā)件人
客戶端：HELO server.com
服務(wù)器端：250 server.com
3、 客戶端發(fā)送MAIL命令，服務(wù)器端以O(shè)K作為響應(yīng)表明準(zhǔn)備接收
客戶端： MAIL FROM: <A@B.com>
服務(wù)器端： 250 OK
4、 客戶端發(fā)送RCPT命令標(biāo)識(shí)收件人，服務(wù)器端回應(yīng)是否愿意為收件人接受郵件
客戶端：RCPT TO: <c@d.com>
服務(wù)器端：250 OK
5、 協(xié)商結(jié)束后用命令DATA發(fā)送發(fā)送郵件
客戶端：DATA
服務(wù)器端：354 Start mail input: end with <CRLF>.<CRLF>
6、 客戶端以.表示結(jié)束輸入內(nèi)容一起發(fā)送出去
客戶端：Subject:  <CRLF>
內(nèi)容<CRLF>
.<CRLF>
7、客戶端用QUIT命令退出。
        客戶端：QUIT
服務(wù)器端：250 server.com closing transmission channel

優(yōu)點(diǎn)：可以在此基礎(chǔ)上開(kāi)發(fā)出自己的組件，利用Sockets我們可以進(jìn)行網(wǎng)絡(luò)編程開(kāi)發(fā)
缺點(diǎn)：程序量相對(duì)較多，

發(fā)送郵件的代碼如下：
      Dim sendData As String
      Dim szData As Byte()
      Dim CRLF As String
      CRLF = "\r\n"
   
      ‘創(chuàng)建與服務(wù)器25端口的連接
      Dim SmtpServ As New TcpClient(txtsmtp.Text, 25)
      lstlog.Items.Clear()
   
      ‘顯示服務(wù)器初始信息
      Dim NetStrm As NetworkStream
      NetStrm = SmtpServ.GetStream()
   
      Dim RdStrm As New StreamReader(SmtpServ.GetStream())
      If RdStrm.ReadLine() <> "" Then lstlog.Items.Add(RdStrm.ReadLine())
      ‘
      sendData = "HELO server " + CRLF
      szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
      NetStrm.Write(szData, 0, szData.Length)
      lstlog.Items.Add(RdStrm.ReadLine())
   
      ‘標(biāo)志發(fā)件人
      sendData = "MAIL FROM: " + "<" + txtfrom.Text + ">" + CRLF
      szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
      NetStrm.Write(szData, 0, szData.Length)
      lstlog.Items.Add(RdStrm.ReadLine())
   
      ‘標(biāo)志收件人
      sendData = "RCPT TO: " + "<" + txtTo.Text + ">" + CRLF
      szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
      NetStrm.Write(szData, 0, szData.Length)
      lstlog.Items.Add(RdStrm.ReadLine())
   
      ‘準(zhǔn)備發(fā)送內(nèi)容
      sendData = "DATA " + CRLF
      szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
      NetStrm.Write(szData, 0, szData.Length)
      lstlog.Items.Add(RdStrm.ReadLine())
   
      ‘發(fā)送主題
      sendData = "SUBJECT: " + txtsub.Text + CRLF
      ‘發(fā)送內(nèi)容
      sendData = sendData + txtmsg.Text + CRLF
   
      ‘結(jié)束發(fā)送
      sendData = sendData + "." + CRLF
      szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
      NetStrm.Write(szData, 0, szData.Length)
      lstlog.Items.Add(RdStrm.ReadLine())
   
      ‘退出
      sendData = "QUIT " + CRLF
      szData = System.Text.Encoding.ASCII.GetBytes(sendData.ToCharArray())
      NetStrm.Write(szData, 0, szData.Length)
      lstlog.Items.Add(RdStrm.ReadLine())
   
      ‘關(guān)閉連接
      NetStrm.Close()
      RdStrm.Close()
      lstlog.Items.Add("連接關(guān)閉")
      lstlog.Items.Add("發(fā)送成功")   

大家還可以參考：使用C# 創(chuàng)建郵件發(fā)送組件(SMTP)
http://www.aspcool.com/lanmu/browse1.asp?ID=968&bbsuser=csharp

4、IIS SMTP自帶的基本的發(fā)信組件CDONTS
你不必專門下載，微軟已經(jīng)提供了這個(gè)組件，只要安裝了2000，NT的SMTP就會(huì)有的。
優(yōu)點(diǎn)：組件由操作系統(tǒng)自帶
缺點(diǎn)：功能比較差，可擴(kuò)展性不強(qiáng)
代碼如下:
        Mymail = CreateObject("CDONTS.NewMail")
        Mymail.From = *** ‘信件發(fā)送者信箱
        Mymail.To = *** ‘信件接收者信箱
        Mymail.CC = *** ‘抄送
        Mymail.BCC = *** ’密件發(fā)送
        Mymail.Subject = *** ‘信件主題
        Mymail.Body = *** ’信件正文
        ‘設(shè)置優(yōu)先級(jí)，0-不重要，1-一般，2-重要。
        Mymail.Importance = 2
        Mymail.Send()
        Mymail = Nothing          

5、使用JMail組件
Jmail具有以下特點(diǎn)：
（1）可以發(fā)送附件；
（2）詳細(xì)日志能力，便于你查看問(wèn)題所在；
（3）設(shè)置郵件發(fā)送的優(yōu)先級(jí)；
（4）支持多種格式的郵件發(fā)送，比如說(shuō)以HTML或者TXT的方式發(fā)送郵件。這是個(gè)免費(fèi)的組件。
（5）密件發(fā)送/(CC)抄送/緊急信件發(fā)送能力；
（6）最關(guān)鍵的就是–免費(fèi)的組件，不必發(fā)錢，所以非常值得使用。
網(wǎng)站：http://www.dimac.net/,目前版本是4.3

JMail組件的常用屬性：
Body 　　郵件正文
Logging 　　調(diào)用Log記錄，供Debug用
Priority 　　郵件的優(yōu)先程度，從1到5
Sender 　　發(fā)件人
ServerAddress 　　SMTP服務(wù)器的IP地址或名稱
Subject 　　郵件標(biāo)題

JMail組件的常用方法：
AddAttachment 　　指定附件文件
AddRecipient 　　加入一個(gè)收件人
AddRecipientBCC 　　隱藏的副本抄送，只有發(fā)件人和BCC收件人知道。
AddRecipientCC 　　副本抄送
Execute 　　送出郵件

了解必要的屬性及方法后，余下的部分接收使用者輸入的Email，當(dāng)成參數(shù)傳給AddRecipient方法，然后根據(jù)需要填上其余屬性，最后以Execute方法寄出。例如：

    Dim JMail
    JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.Logging = True
    JMail.ServerAddress = "202.96.144.48"
    JMail.Sender = "lihonggen0@163.com"
    JMail.Subject = "subject."
    JMail.Body = "body."
    JMail.AddRecipient("bbbb@163.com")
    JMail.AddAttachment("c:\go.gif")
    JMail.Priority = 3
    JMail.Execute()
    JMail = Nothing

總結(jié)：選擇何種方案，視程序的用途和需求而定，本文例出的幾種方案，供大家參考。例如用友軟件U8，調(diào)用outlook組件，一樣整合到自己的軟件中。我編寫(xiě)的管理系統(tǒng)，自己寫(xiě)組件（SMTP），功能同樣強(qiáng)大，不過(guò)Coding的時(shí)間就長(zhǎng)了！

作者：李洪根