windows下利用CDO发送邮件
前几天同学丢了本子后，毕业论文一个字不剩。要是临到答辩前我也遭遇这么一出可就傻眼了，所以想每天备份下毕业论文。备份的最好的地方就是发到邮箱了，空间大而且方便，不过每次都手动发送邮件是件挺麻烦的事情，搜了下发现用CDO蛮方便的，而且是内建在windows内核中的，不用安装七七八八的组件。
下面的代码实现了一键备份，将当前的系统时间当作Subject的一部分，方便区别。(VBS实现)
NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "aaa@sina.com" Email.To = "bbb@gmail.com" Email.Subject = "毕业论文备份 " + cstr(now()) Email.Textbody = "OK!" Email.AddAttachment "E:\毕设文档\毕业论文.docx" With Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "smtp.sina.com" .Item(NameSpace&"smtpserverport") = 25 .Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "aaa@sina.com" .Item(NameSpace&"sendpassword") = "yourpasswd" .Update End With Email.Send
以上参考：
VBScript To Send Email Using CDO
一个用Windows脚本发邮件的例子
CDO相关参考见：
CDO (Collaboration Data Objects)
MSDN中也有相关的介绍。
看完了^.^,如果觉得这篇文章对你有用或者有
问题,请留言告诉我,thank you !
文章为原创的话,转载请注明出处.不敢流泪-《windows下利用CDO发送邮件》
2 Comments are ready?
呵呵，这就是COM的威力啊。一直觉得linux下也应该出现这种技术。。
[回复]
急需您的回应。
我在您的Detours笔记中的留言~
希望您能看到~
[回复]