大象介绍英文怎么写:如何在vb中使用Jmail(4.0)发送邮件??
来源:百度文库 编辑:神马品牌网 时间:2024/10/03 06:11:31
你的回答没有意义
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