屋顶滑雪场:如何在vb中使用Jmail(4.0)发送邮件??

Option Explicit

Private Sub cmdCommand1_Click()
SendMail \"测试\", \"我爱你\",\"这里填附件地址\"
MsgBox \"OK\"
End Sub

Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)

Dim Jmail
Set Jmail = CreateObject(\"jmail.Message\")
If sFileName <> \"\" Then Jmail.AddAttachment sFileName \'附件

Jmail.Charset = \"gb2312\"
Jmail.Silent = False
Jmail.Priority = 1 \'邮件状态,1-5 1为最高
Jmail.MailServerUserName = \"test\" \'Email帐号
Jmail.MailServerPassWord = \"********\" \'Email密码

Jmail.FromName = \"邮件\" \'发信人姓名
Jmail.From = \"test@163.com\" \'发邮件地址地址

Jmail.Subject = sSubject \'主题
Jmail.AddRecipient \"test@163.com\" \'收信人地址
Jmail.Body = sBody \'信件正文

Jmail.Send (\"smtp.163.com\") \'SMTP服务器，如smtp.sohu.com

Set Jmail = Nothing
End Sub

------------------------------------------------
保证可以用，如果感觉很好，记得再加分哈

用shell函数进行发送

shell "mailto:" & 邮箱名 , VbHide