前端之家收集整理的这篇文章主要介绍了
VB6, ASP 通用的 用Jmail组件发送邮件，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
@H_
404_0@'
函数名: SendMail'作 用：用Jmail组件
发送邮件'参 数：' MailtoAddress -----收信人信箱' Subject -----
主题' MailBody -----信件
内容' MailFrom -----发信人信箱' MailServerUser -----登陆邮箱
用户名' MailServerPass -----登陆邮箱密码' MailServer -----发件SMTP服务器'**************************************************Function SendMail(MailtoAddress,Subject,MailBody,MailFrom,MailServerUser,MailServerPass,MailServer)' on error resume next Dim JMail As JMail.Message,JMailstat Set JMail = CreateObject("JMail.Message") If Err Then Err.Clear JMail.Close Set JMail = Nothing Exit Function End If JMail.Charset = "gb2312" '
邮件字符集 JMail.Silent = True '忽略
错误 JMail.ContentType = "text/html" '
邮件编码 JMail.AddRecipient MailtoAddress '收件人地址 'JMail.ReturnReceipt = True '是否收条（验证中） JMail.From = MailFrom '发件人邮箱 'JMail.MailDomain = MailDomain '邮箱所在域名（验证中） 'JMail.FromName = FromName '发件人姓名 JMail.MailServerUserName = MailServerUser '邮箱
用户名 JMail.MailServerPassWord = MailServerPass '邮箱密码 JMail.Subject = Subject '
邮件主题 'JMail.Body = MailBody '
邮件正文（纯文本格式） JMail.HTMLBody = MailBody '
邮件正文（HTML格式） 'JMail.Priority = 3 '
邮件等级，1为加急，3为普通，5为低级 JMailstat = JMail.Send(MailServer) If JMailstat Then SendMail = True Else 'Msg
Box JMail.Log SendMail = False End If JMail.Close Set JMail = NothingEnd Function
原文链接：https://www.f2er.com/vb/263142.html
