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

最新推荐文章于 2023-09-21 11:58:42 发布

haierccc

最新推荐文章于 2023-09-21 11:58:42 发布

阅读量1.1k

点赞数

文章标签： windows

本文链接：https://blog.youkuaiyun.com/haierccc/article/details/111773026

版权

本文介绍了如何使用VBScript发送邮件并解决邮件标题乱码问题。通过在邮件主题中使用BASE64编码，结合特定格式，可以确保中文标题正确显示。提供了两种方法：一是使用在线编码工具将中文转换为BASE64编码；二是手动添加=?UTF-8?B?...?=前缀和后缀。示例中详细说明了脚本的使用方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下是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"      ' 发信服务器，也

最低0.47元/天解锁文章