<p>用Winsock控件發(fā)信Email</p>
<p></p>
<p>　　使用控件有：Winsock控件，CommandButton 控件，TextBox 控件</p>
<p>編程步驟如下：</p>
<p>1.聲明變量</p>
<p>2.把如下代碼加到Command1的Command1_Click事件：</p>
<p>Private Sub Command1_Click()</p>
<p>Winsock1.LocalPort = 0 '設(shè)置本地使用的端口</p>
<p>Winsock1.Protocol = sckTCPProtocol '設(shè)置Winsock控件使用的協(xié)議，TCP或UDP。</p>
<p>Winsock1.RemoteHost="smtp.21cn.com" '設(shè)置發(fā)送Email的服務(wù)器</p>
<p>Winsock1.RemotePort = 25 '設(shè)置要連接的遠(yuǎn)程端口號(hào) </p>
<p>Winsock1.Connect '返回與遠(yuǎn)程計(jì)算機(jī)的連接。</p>
<p>End Sub</p>
<p>這里要注意的是：Winsock1.RemotePort的值，80為HTTP,21為FTP，25為SMTP。</p>
<p></p>
<p>3.把如下代碼加到Winsock1的Connect事件：</p>
<p>Private Sub Winsock1_Connect() ''當(dāng)一個(gè) Connect 操作完成時(shí)發(fā)生</p>
<p>first = "mail from:" + Chr(32) + "yingzi007@21cn.com" + vbCrLf '發(fā)信人地址</p>
<p>Second = "rcpt to:" + Chr(32) + "yingzi007@21cn.com" + vbCrLf '收信人地址</p>
<p>DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"</p>
<p>Third = "Date:" + Chr(32) + DateNow + vbCrLf '開(kāi)始發(fā)信時(shí)間</p>
<p>Fourth = "From:" + Chr(32) + "VB 小園" + vbCrLf '發(fā)信人姓名</p>
<p>Fifth = "To:" + Chr(32) + "Jimven"+ vbCrLf '收信人姓名</p>
<p>Sixth = "Subject:" + Chr(32) +"VB 小園更新通知" + vbCrLf '發(fā)信的主題</p>
<p>Seventh = "VB 小園已經(jīng)更新" + vbCrLf '發(fā)信的內(nèi)容</p>
<p>Ninth = "X-Mailer: EBT Reporter v 2.x" + vbCrLf</p>
<p>Eighth = Fourth + Third + Ninth + Fifth + Sixth </p>
<p>Winsock1.SendData ("HELO www.21cn.com" + vbCrLf) '開(kāi)始發(fā)送</p>
<p>Winsock1.SendData (first) </p>
<p>Winsock1.SendData (Second)</p>
<p>Winsock1.SendData ("data" + vbCrLf)</p>
<p>Winsock1.SendData (Eighth + vbCrLf)</p>
<p>Winsock1.SendData (Seventh + vbCrLf)</p>
<p>Winsock1.SendData ("." + vbCrLf)</p>
<p>Winsock1.SendData ("quit" + vbCrLf)</p>
<p>End Sub</p>
<p></p>
<p>4.把如下代碼加到Winsock1的DataAmival事件：</p>
<p>Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接受數(shù)據(jù)時(shí)產(chǎn)生</p>
<p>On Error Resume Next '在錯(cuò)誤處理程序結(jié)束后，恢復(fù)原有的運(yùn)行</p>
<p>Dim webData As String</p>
<p>Winsock1.GetData webData, vbString '取得發(fā)信后的反饋信息，可以檢查是否錯(cuò)誤</p>
<p>Text1.Text = Text1.Text + webData</p>
<p>'Debug.Print Text1.Text</p>
<p>End Sub </p>
<p></p>
<p>　</p>
<p></p>