cdo.message 发送html文件,CDO.Message 发送邮件

最新推荐文章于 2024-07-03 13:29:45 发布

YY仙武同修

最新推荐文章于 2024-07-03 13:29:45 发布

阅读量371

点赞数

文章标签： cdo.message 发送html文件

这段代码展示了如何通过CDO组件配置SMTP服务器发送邮件，包括设置SMTP服务器地址（smtp.163.com）、端口（465）、SSL连接、认证方式（基本认证）、发件人用户名和密码，以及邮件的基本内容。邮件发送完成后，对象被释放。

摘要由CSDN通过智能技术生成

Set Mail = CreateObject("CDO.Message")

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.163.com" 'SMTP服务器地址

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'SMTP服务器端口

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 '是否使用SSL

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 '连接服务器的超时时间

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '服务器认证方式

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="aaa" '发件人用户名

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="000000" '发件人邮箱密码

Mail.Configuration.Fields.Update

Mail.Subject="Email subject" '邮件主题

Mail.From= chr(34) & "姓名" & chr(34) &"aaa@163.com" '发件人地址

Mail.To="xxx@qq.com" '收件人地址

Mail.TextBody="表单提交内容如下"&Chr(13)&chr(10)&"This is an" &chr(32)&chr(32)&"email message！！" '邮件正文

Mail.Send

Set Mail = Nothing

关注