asp使用CDO实现qq邮箱ssl方式发送邮件类

Function xmail(Email_To, title, msg) '邮件发送类
Const Email_From = "xxxxxxx@qq.com" '发件人邮箱 
Const Password = "xxxxxxx" '发件人邮箱密码 
  
Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象 
CDO.Subject = title '邮件主题 
CDO.From = Email_From '发件人地址 
CDO.To = Email_To '收件人地址 
CDO.HtmlBody = msg '邮件正文 TextBody文本
'cdo.AddAttachment = "C:\hello.txt" '邮件附件文件路径 
Const schema = "http://schemas.microsoft.com/cdo/configuration/" '规定必须是这个，我也不知道为什么 
With CDO.Configuration.Fields '用with关键字减少代码输入 
.Item(schema & "sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器 
.Item(schema & "smtpserver") = "smtp.qq.com" 'SMTP服务器地址 
.Item(schema & "smtpauthenticate") = 1 '服务器认证方式 
.Item(schema & "sendusername") = Email_From '发件人邮箱 
.Item(schema & "sendpassword") = Password '发件人邮箱密码 
.Item(schema & "smtpserverport") = 465 'SMTP服务器端口 
.Item(schema & "smtpusessl") = True '是否使用SSL 
.Item(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间 
.Update '更新设置 
End With 
'CDO.Send '发送邮件 
if CDO.Send then
   xmail=false
else 
   xmail=true
end if
End Function

使用：if xmail("xxxxx@qq.com", title, msg) then response.Write("<script>alert('ok');</script>") end if

注意QQ密码是独立密码。

打赏

感谢支持与鼓励～