[已解决]VBS脚本发送QQ邮箱，正文最多只能支持4个汉字

nttwqz

我觉得吧，楼主有这精力和兴趣，不妨研究下Python发送邮件，比批处理强大和简单太多了，你哪怕是照葫芦画瓢貌似也比这你省事，何况你这本身就是弄着玩。

重要的网络多线路互相备份，断网还用发邮件？！就这么给你说吧，你刚把光纤拔了，马上一分钟之内就有运营商给负责人致电让插回去或者询问情况。你想想，如果你把阿里云主干拔掉一条，一定会有人马上通知你的，不用发邮件。

Python SMTP发送邮件

nttwqz

bjay2008xmy 发表于 2022-5-14 00:19
我这个帖子其实跟那个断网就切换网络发送邮件的帖子没有关联

我以为这都快一年了你还在研究。。。

plusv

bjay2008xmy 发表于 2022-5-14 00:25
经常上论坛看看人家发的帖子，感觉有兴趣的不多。自己对什么有兴趣就研究什么，不懂就问问，既分享了又学 ...

楼主 的精神是对的,
我也是这样 想玩啥就研究啥,

9527sss

谢谢分享

nttwqz

bjay2008xmy 发表于 2022-5-14 00:25
经常上论坛看看人家发的帖子，感觉有兴趣的不多。自己对什么有兴趣就研究什么，不懂就问问，既分享了又学 ...

兴趣爱好是最好的老师

江南一根葱

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "ooxx@xxoo.com"
Email.To = "ooxx@xx.com"
Email.Subject = "HAICUN:[F|1206]\生快捷方式VBS和bat.rar"
Email.Textbody = "史上最伟大群发器！本信件由史上最伟大群发器群发！"& now
Email.AddAttachment "E:\群发\史上最伟大群发器.vbs"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.ooxx.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "ooxx"
.Item(NameSpace&"sendpassword") = "xxoo"
.Update
End With
Email.Send

十多年前用来群发的，定时压缩数据库并发送到邮箱
现在还在用

zxwei

学习学习