vbs sendmail发邮件带附件方法
更新时间：2008年06月19日 12:33:31 作者：
vbs下实现邮件发送代码，可以发附件等
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send
相关文章
目前各类万能驱动程序包在网络上屡见发布，在使用这些程序包的同时，我们不仅会问：为什么这些程序包中的驱动程序可以在安装新硬件之后自动安装呢？2008-07-07
把txt文件托放到这个vbs上试一下，它会自动生成一个htm文件。需要修的地方说一下。2011-01-01
VBS教程：函数-Array 函数...2006-11-11
VBS教程：运算符-除运算符 (/)...2006-11-11
变量是一种使用方便的占位符，用于引用计算机内存地址，该地址可以存储脚本运行时可更改的程序信息2006-11-11
有时候我们需要监控一些进程，防止一些进程的开启，发现指定进程运行就关闭它，那么就可以参考下面的代码2013-09-09
已经第二次了，上班后没把电话解除，总记不起这件事。做了个备忘录，放在启动项里，每次启动系统后都会执行，弹出相关事项，即便自己没有记住也可以给个提醒了2008-06-06
对于想结合OWC的朋友，可以参考下。2009-05-05
用vbs脚本实现运行DOS批处理不再出现黑屏cmd窗口...2007-02-02
几个超据学习价值的VBS脚本用法：将exe格式的flash拖放在此vbs文件上，即可生成swf文件2008-05-05
最新评论