无忧启动论坛

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

作者: bjay2008xmy 时间: 2022-5-13 22:31
提示: 作者被禁止或删除内容自动屏蔽

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

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

Python SMTP发送邮件

作者: bjay2008xmy 时间: 2022-5-14 00:19
提示: 作者被禁止或删除内容自动屏蔽

作者: nttwqz 时间: 2022-5-14 00:21

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

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

作者: bjay2008xmy 时间: 2022-5-14 00:25
提示: 作者被禁止或删除内容自动屏蔽

作者: plusv 时间: 2022-5-14 01:32

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

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

作者: 9527sss 时间: 2022-5-14 09:03
谢谢分享

作者: bjay2008xmy 时间: 2022-5-14 10:06
提示: 作者被禁止或删除内容自动屏蔽

作者: nttwqz 时间: 2022-5-14 10:48

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

兴趣爱好是最好的老师

作者: 江南一根葱 时间: 2022-5-14 12:03
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 时间: 2022-5-14 15:04
学习学习

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)