cdo.message发邮件无需组件

最新推荐文章于 2021-06-11 15:51:04 发布

云成致雨

最新推荐文章于 2021-06-11 15:51:04 发布

阅读量2.6k

点赞数

文章标签： file url

本文介绍了一种利用CDO组件发送包含附件的电子邮件的方法。通过设置CDO.Message和CDO.Configuration对象的各项属性，如SMTP服务器配置、认证信息及邮件具体内容等，实现了从指定发件人向收件人发送带有附件的HTML格式邮件的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "0x0804"
objConfig.Fields.Update()
Set objMail.Configuration = objConfig
objMail.Subject = "Mail Subject"
objMail.From = chr(34) & "姓名" & chr(34) & " username@mail.com<yirlin@GMAIL.COM>"
objMail.To = "gbhglxs@customs.gov.cn"
objMail.HTMLBody = "Mail Body"
objMail.AddAttachment( http://xxxxxx/xxxx.xxx) '或者其他任何正确的url,包括http,ftp,file等等。
objMail.Send
Response.Write "邮件发送成功！"
最值得注意的是:sendusername要和From相一致。