100分---用vb 怎么来发email

Question

多种方法：
使用winsock控件执行smtp协议的命令；
使用mapimessage和mapisession两个控件；
使用shellexecute执行“emailto:[email protected]”。

Answer 1

这种例子网上很多啊
去21code.com看看

Answer 2

方法(1) 使用 MAPI 发邮件。
请参考 我的 发言：
http://www.csdn.net/expert/topic/563/563639.xml?temp=.8383905
-----------------------------------------------------------------
方法（2） 使用 winsock 控件 发邮件：
    dsSock.SendData "EHLO " & strFrom & vbCrLf
    dsSock.SendData "AUTH LOGIN " & vbCrLf
    dsSock.SendData Base64Encode(txtUser) & vbCrLf    
    dsSock.SendData Base64Encode(txtPwd) & vbCrLf
===================================================    
 Base64Encode  是一个 进行 base64 编码的函数， 需自己写。
 txtUser 是 需验证的用户名，txtPwd 是 密码。
 其它的 和一般的 smtp 命令一样。 你可参考 一下 那些 随处可见 的 例程。再 给你 base64 的编码 和解码 部分的 函数：：
http://www.csdn.net/Expert/topic/422/422011.xml
-----------------------------------------------------------------方法（3）使用 CDO 组件发邮件。
请参考：HOWTO: Send HTML Mail with CDO for Win 2000 and Remote SMTP Serv[mapi]
http://support.microsoft.com/support/kb/articles/q286/4/31.asp