vbs处理数组和 Jmail发送带附件邮件乱码

最新推荐文章于 2016-08-23 10:46:00 发布

chenghaibing2008

最新推荐文章于 2016-08-23 10:46:00 发布

阅读量913

点赞数

分类专栏： C#(1) 文章标签：作业 2010 function 公告 c

本文链接：https://blog.csdn.net/chenghaibing2008/article/details/5909999

版权

C#(1) 专栏收录该内容

158 篇文章 0 订阅

订阅专栏

strDebug = "0"
If strDebug = "0" Then
GetUserForSendPassword
End If
Function GetUserForSendPassword
Dim ArrName,objName,ArrEngName,objEngName,ArrPwd,objPwd,i,length
ArrName = array("a.b@163.com","c.d@163.com","e.f@163.com")
ArrEngName = array("a","b","c")
ArrPwd = array("1","2","3")

 strSubject="【服务公告】2010 9 30 18 00~22 00 外线语音密码回收与重新发放作业"

length = UBound(ArrName) - LBound(ArrName) + 1
for i=0 to length-1
 objName = ArrName(i)
 objEngName = ArrEngName(i)
 objPwd = ArrPwd(i)
 strBody="<html><body>Dear "+ objEngName +",   你的外线语音密码已更改为"+ objPwd +".   回收作业期间为2010/9/30 18:00~22:00，期间密码将无法使用。   2010/9/30 22:00请开始使用新外线密码，使用方法不变. Best Regards, ITS8585</body></html>"
 SendMail strBody,strSubject,objName
Next
End Function

Function SendMail(strBody,strSubject, strRecipient)
set jmail = wscript.CreateObject("jmail.message")

'jmail.ContentType = "text/html"

jmail.MailServerUserName = "****"
jmail.MailServerPassWord = "****"
jmail.from = "****@163.Com"
jmail.fromname="****"
'jmail.addrecipientcc "a.b@163.com.cn"
jmail.addattachment("E:/1.txt")
jmail.addrecipient strRecipient
jmail.subject = strSubject
jmail.htmlbody = strBody

jmail.Charset = "gb2312"
jmail.Encoding = "base64"
jmail.ContentTransferEncoding = "base64"
jmail.send "****"

jmail.Close()
Set JMail = Nothing
End Function

chenghaibing2008

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
vbs处理数组和 Jmail发送带附件邮件乱码

 strDebug = "0" If strDebug = "0" Then GetUserForSendPassword End If Function GetUserForSendPassword Dim ArrName,objName,ArrEngName,objEngName,ArrPwd,objPwd,i,length ArrName = array("a.b@163.com","c.d@163.com","e.f@16
复制链接

扫一扫