利用vbs发送邮箱

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set emailObj = CreateObject("CDO.Message")
emailObj.From = "xxxxx@163.com"    '发件人,需修改
emailObj.To = "xxxx@qq.com"          '收件人,需修改
emailObj.Subject = "请假打卡"        '邮件主题
emailObj.Htmlbody = "<div><span id=""_FoxTONAME"">亲爱的</span>，你好：</div><div><br></div><div><span style=""background-color: rgba(0, 0, 0, 0); font-size: 10.5pt; line-height: 1.5;"">&nbsp; &nbsp; RT</span></div>" '邮件内容，支持HTML格式
emailObj.AddAttachment "C:\培训笔记.txt"       '邮件附件

With emailObj.Configuration.Fields
    .Item(NameSpace&"sendusing") = 2
    .Item(NameSpace&"smtpserver") = "smtp.163.com"      '163的SMTP服务器
    .Item(NameSpace&"smtpserverport") =25
    .Item(NameSpace&"smtpauthenticate") = 1
    .Item(NameSpace&"sendusername") = "181xxxx"                 '用户名,需修改
    .Item(NameSpace&"sendpassword") = "xxxxx"                '邮箱密码,需修改
    .update
End With

emailObj.Send