CDO.Message 发邮件

网络 同时被 2 个专栏收录
4 篇文章 0 订阅
4 篇文章 0 订阅
NameSpace := "http://schemas.microsoft.com/cdo/configuration/"
Email := ComObjCreate("CDO.Message")
Email.From := "sunshinezxk@163.com"
Email.To := "386283215@qq.com"
Email.Subject := "IP变动邮件"
Email.Htmlbody := "IP:192.168.56.1"
;Email.AddAttachment("C:\foo.zip")
Email.Configuration.Fields.Item(NameSpace "sendusing") := 2
Email.Configuration.Fields.Item(NameSpace "smtpserver") := "smtp.163.com" ;SMTP服务器地址
Email.Configuration.Fields.Item(NameSpace "smtpserverport") := 25
Email.Configuration.Fields.Item(NameSpace "smtpauthenticate") := 1
Email.Configuration.Fields.Item(NameSpace "sendusername") := "xxxx@163.com" ;邮箱账号
Email.Configuration.Fields.Item(NameSpace "sendpassword") := "xxxx" ;邮箱密码
Email.Configuration.Fields.update
Email.Send

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

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值