能否用批处理实现自动发邮件
我想在一台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 "发送完成 "
'以上程序因网络限制无法作测试,不知是否可用,请各位看官自行测试吧。