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

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

%>

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 1024 设计师:白松林 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值