如何用批处理使outlook express自动发送邮件 - 中国DOS联盟论坛

绕过OE，直接用VBS发邮件可以吗？这是微软给的例子：

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "admin1@fabrikam.com"
objEmail.To = "admin2@fabrikam.com"
objEmail.Subject = "Server down" 
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smarthost" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

第1楼　samuelbat	发表于 2008-05-28 14:44
新手上路　发帖 2　积分 6
[求助]如何用批处理使outlook express自动发送邮件如何用批处理使outlook express自动发送邮件,麻烦各位帮忙想想,谢谢!

第2楼　HAT	发表于 2008-05-28 16:13
版主　发帖 5,017　积分 9,023
绕过OE，直接用VBS发邮件可以吗？这是微软给的例子： Set objEmail = CreateObject("CDO.Message") objEmail.From = "admin1@fabrikam.com" objEmail.To = "admin2@fabrikam.com" objEmail.Subject = "Server down" objEmail.Textbody = "Server1 is no longer accessible over the network." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "smarthost" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send

第3楼　samuelbat	发表于 2008-05-28 17:17
新手上路　发帖 2　积分 6
我只想在OE下发送,还有别的方法吗