首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 操作系统 > windows >

能否用批处理实现自动发邮件,该怎么解决

2012-01-07 
能否用批处理实现自动发邮件我想在一台WindowsServer2003上写个批处理,每隔一小时发一封email给我。在UNIX

能否用批处理实现自动发邮件
我想在一台Windows   Server   2003上写个批处理,每隔一小时发一封email给我。在UNIX下很容易实现,一条mailx命令足矣。请问怎样在Windows下用批处理实现呢(这台服务器上有Outlook   Express)?

p.s.   由于是服务器,所以不能安装第三方软件。

[解决办法]
'把以下文件存为vbs文件,双击就可运行,也可以放到Job里去运行。
Set cdo = CreateObject( "CDO.Message ")
strCfg = "http://schemas.microsoft.com/cdo/configuration/ "
With cdo
.Sender = "发送者邮件地址 "
.From = "发送者邮件地址 "
.To = "接收者邮件地址 "
.Fields( "urn:schemas:mailheader:X-Priority ") = 1
.Fields.Update
.Subject = "邮件标题 "
.TextBody = "邮件内容 "
.Configuration(strCfg & "SendUsing ") = 2
.Configuration(strCfg & "smtpserver ") = "发送邮件服务器地址 "
.Configuration(strCfg & "sendusername ") = "发送者邮箱帐号 "
.Configuration(strCfg & "sendpassword ") = "发送者邮箱密码 "
.Configuration.Fields.Update
.send
End With
msgbox "发送完成 "

'以上程序因网络限制无法作测试,不知是否可用,请各位看官自行测试吧。

热点排行