今天是:
设百科问答网为首页|收藏百科问答网|网站地图
百科问答网 - 帮您解决问题,分享成功经验
如何定时发送邮件

我的目的:
服务器上有一文件实时更新(很小,几百K),想每天下午4:00将该文件自动发邮件给指定人员。

如何做到,请大家支招。谢谢!




答案或建议:


网上找到解决办法了。很简单。一段VBS代码:


NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
set Email = CreateObject("CDO.Message")
Email.From = "xxx@163.com" '你的邮箱地址
Email.To = "xxx@163.com" '发给
Email.Subject = "xxx" '主题
Email.Textbody = "xxx" '邮件内容

Email.AddAttachment "E:\xxx\xxx.rar" '添加附件

with Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.163.com" '发送邮件服务器
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "xxx" '邮箱用户名
.Item(NameSpace&"sendpassword") = "xxxxxxx" '密码
.Update
end with
Email.Send


剩下的就是“计划任务”的事啦


文章转载请保留:http://www.baikewenda.com/tech/net/7/4/a102003029.htm
推荐内容

敬请注意:百科问答网内容来源于网络或民间经验收集,仅供参考。其中有关健康疾病方面的内容请务必咨询专业医生或及时到医院治疗。
关于我们 - 广告服务 - 联系我们
百科问答网 Copyright ©2005 - 2011 www.baikewenda.com,All Rights Reserved
辽ICP备10007180号