邮件标题乱码的解决方法，VBS脚本发送邮件

以下是2个发送邮件的VBS脚本，且解决了邮件主题乱码的问题。

之前应准备邮箱并开启SMTP服务，本例是用139邮箱发送邮件，其它邮箱请自行尝试。

邮箱地址：abc@139.com

SMTP：SMTP.139.COM

邮箱密码：123456789

脚本1：

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" ' 这个必须有，应该是VBS脚本链接微软网站获取某些支持应用的，删除的话vbs脚本会报错！ 
Set Email = CreateObject("CDO.Message")  ' 调用vbs邮件接口 
Email.From = "abc@139.com"   ' 发信人地址 
Email.to = "abc@139.com"    ' 收信人地址 
Email.Subject = "=?UTF-8?B?6LSi5Yqh56eR55m75b2V77ya?="+cstr(now())+cstr(now())  ' 本行的含义见下文 
Email.Textbody = "邮件正文"
'Email.AddAttachment "d:\1.txt" ' 如果有附件就在这里指明，本例注释掉了 
With Email.Configuration.Fields
.Item(NameSpace&"sendusing")= 2
.Item(NameSpace&"smtpserver")= "smtp.139.com"      ' 发信服务器，也