ʼͿؼ
ȫѵ OCX  VB5  IIS3 С
ṩ VB5 ʹõӣ
Լ IIS3 ʹõӡ
ֱӦ֯   ݣ
ֱӷͣ

ʹǰҪ Regsvr32 BPMail.DLL עᡣ


Private Sub Command1_Click()
dim Mail as object
Set Mail = CreateObject("BPMail.Mail")

'Ҫģ ܹ
Mail.Free = "This component is freeware"

'SMTP ŷ
Mail.SMTPServer = "ppp.wzptt.zj.cn"

'ȼ 1 to 5 (3 being default)
Mail.Priority = 1

'ʼ
Mail.From = "kenj@163.net"

' 500  e-mail ַ
'һַ
Mail.AddTo = "to1@sender.com"
Mail.AddTo = "to2@sender.com"

' 500  e-mail ַ
'һҪ
Mail.AddCc = "cc1@sender.com"
Mail.AddCc = "cc2@sender.com"

' 500 ܼ e-mail ַ
'һҪ
Mail.AddBCc = "BCc1@sender.com"
Mail.AddBCc = "BCc2@sender.com"

'You can also specify to whom the recipient mus reply to.
'һҪ
Mail.ReplyTo = "barry@dick.co.za"

'
Mail.Subject = "This is a test"

'
Mail.AddMessage = "Test line 1"
Mail.AddMessage = "Test line 2"
Mail.AddMessage = "Test line 3"

'ż
' شϢ

MsgBox Mail.Send
End Sub

