vb怎么发送邮件

先引用jmail.dll

Private Sub Command1_Click()

' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library
Dim iMsg As New CDO.Message
Dim iBp As CDO.IBodyPart
Dim Flds As ADODB.Fields

Dim iConf As New CDO.Configuration
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "MySMTPServer"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = "example@example.com, another@example.com"
.From = "exampleuser3@example.com, exampleuser4@example.com"
.Sender = "example@example.com"
.Subject = "Files for Monday's meeting."
.TextBody = "Please review the attached files for Monday's meeting. Thanks." + vbLfCr + vbLfCr <