;~ =================================================
;~ 函数名:JmailSend
;~ 作 用:用Jmail发送邮件
;~ 参 数:Subject 邮件标题
;~ Body 邮件内容
;~ isHtml 是否发送Html格式邮件 (True 是)
;~ HtmlBody Html格式邮件内容
;~ MailTo 收件人Email
;注意:From,MailServerUserName,.MailServerPassWord,Send 必须匹配
;~ From 发件人Email
;~ FromName 发件人姓名
;~ Smtp smtp服务器
;~ Username 邮箱用户名
;~ Password 邮箱密码
;~isCheck 服务器是否需验证用户,缺省需要
;~$Receipt 是否接收回执,默认需要
;~需要先注册jmail.dllRunWait(@ComSpec & " /c " & 'regsvr32 jmail.dll /s', "", @SW_HIDE)
;~ =================================================
Func _JmailSend($subject, $Body, $isHtml, $HtmlBody, $MailTo, $From, $FromName, $attachment, $Smtp, $username, $Password, $isCheck = True) Func _JmailSend($subject, $Body, $isHtml, $HtmlBody, $MailTo, $From, $FromName, $attachment, $Smtp, $username, $Password, $isCheck = True)
$msg = ObjCreate("jmail.Message")
$msg.MailServerUserName = $username
$msg.MailServerPassWord = $Password
$msg.AddRecipient($MailTo)
$msg.From = $From
$msg.Fromname = $FromName
$msg.Charset = "gb2312"
$msg.Logging = True
$msg.Silent = True
$msg.ReturnReceipt = True
$msg.Subject = $subject
$msg.Body = $Body
If $attachment <> "" And FileExists($attachment) = 1 Then
$msg.AddAttachment($attachment)
EndIf
If $isHtml = True Then $msg.Htmlbody = $HtmlBody
If $isCheck = True Then
$msg.Send($username & ":" & $Password & "@" & $Smtp)
Else
$msg.Send($Smtp)
EndIf
$msg.Close
$msg = 0
EndFunc 测试没成功,继续研究 确实不错。辛苦了。 不能用啊 要不是提示服务器链接失败 要么就是服务器未响应 谢谢分享谢谢分享 这个支持中文的吗? 谢谢,好东西,163不能通过验证,QQ邮箱可以 未作多的测试
163.com 和qq.com均发送成功,收到中英文不乱码.谢谢楼主纠正后分享。 这两天163不能用了 我也测试未通过,有人知道原因吗?
页:
1
[2]