82.htm

vb功能实例介绍。详细、很好的实例说明。

<p>用Sockets发送电子邮件 </p>
<p></p>
<p></p>
<p>想必大多数程序员都是运用Microsoft MAPI控件来发送电子邮件。那你有没有想过其它方法呢？其实，只需简单到4个参数，通过WinSock也可以发电子邮件，不信？</p>
<p>在Form中添加一个WinSock控件，命名为Socket。</p>
<p>Function SendMail(psTo As String, psFrom As String, psSubject As String, psBody As String) As Boolean</p>
<p>Dim lsMessage As String</p>
<p>Dim lsSep As String</p>
<p>lsMessage = "MAIL FROM: <" & psFrom & ">" & vbCrLf _</p>
<p>& "RCPT TO: <" & psTo & ">" & vbCrLf _</p>
<p>& "DATA" & vbCrLf _</p>
<p>& "DATE: " & Format$(Now, "dd mmm yy ttttt") & vbCrLf _</p>
<p>& "FROM: " & psFrom & vbCrLf _</p>
<p>& "TO: " & psTo & vbCrLf _</p>
<p>& "SUBJECT: " & psSubject & vbCrLf & vbCrLf _</p>
<p>& psBody & vbCrLf & "." & vbCrLf</p>
<p>Socket.SendData (lsMessage) </p>
<p>End Function</p>
<p>其中，psFrom是发送人的地址，psTo是收件人的地址，psSubject是邮件主题，psBody是邮件内容。</p>
<p>如何，够简单吧。 </p>
<p></p>