This website requires Javascript to function properly. Please go to the setting of your web browser and enable Javascript for this website.

Ad by

最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

Ad by

最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

不论是否有local SMTP都可以

neteasy(龙卷风)

1. Send email with local SMTP installed:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test1@test.com"
objEmail.To = "test2@test.com"
objEmail.Subject = "Testing"
objEmail.Textbody = "Testing..."
objEmail.Send

2. Send email without SMTP installed:
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test1@test.com"
objEmail.To = "test2@test.com"
objEmail.Subject = "Testing"
objEmail.Textbody = "Testing..."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"your smarthost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

(#1219554@0)
Last Updated: 2003-6-2
This post has been archived. It cannot be replied.

Report

Replies, comments and Discussions:

工作学习 / IT技术讨论 / 请问在NT/W2K的Event Viewer中,如果有错误发生,如何让系统自动发送email通知? -neteasy(龙卷风); 2003-5-29 (#1212264@0)

MOM or NetIQ -chinatiger(能曾金刚的生神); 2003-5-30 (#1214569@0)

有免费的吗? -neteasy(龙卷风); 2003-5-30 (#1214773@0)

那你得预备多大邮箱呀. -rror(斧头帮黄金左脚系统支); 2003-5-30 (#1214607@0)

hehe -guestagain(guest again); 2003-5-30 (#1214629@0)

ipsentry has a free version of monitoring tool, one or two servers only, worth to try. -redspider(忙啥！歇着吧！); 2003-5-31 (#1215143@0)

多谢了. 问题是我的服务器不是一两个.知道Microsoft有什么工具或方法可用吗?难道要自己写代码? -neteasy(龙卷风); 2003-5-31 (#1215373@0)

why not? use perl Win32::lanman module. The Win32::Lanman module will allow the administrator to set and verify auditing functions as well as collect EventLog entries, and then send out an alert email. -redspider(忙啥！歇着吧！); 2003-5-31 (#1215542@0)
or use Win32::EventLog (ships with ActivePerl), check url for some source code example... -redspider(忙啥！歇着吧！); 2003-5-31 (#1215556@0)

谢谢... 我用WMI Scripts写了个脚本,凑合着用了. -neteasy(龙卷风); 2003-5-31 (#1215920@0)

do you need to install local SMTP server for the email sending? or you can send the system message for it. I know VB script can not define SMTP server when you sending the email. (third party or .net can do it) -chinatiger(能曾金刚的生神); 2003-6-2 (#1219255@0)

不论是否有local SMTP都可以 -neteasy(龙卷风); 2003-6-2 {887} (#1219554@0)
1. Send email with local SMTP installed:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test1@test.com"
objEmail.To = "test2@test.com"
objEmail.Subject = "Testing"
objEmail.Textbody = "Testing..."
objEmail.Send

2. Send email without SMTP installed:
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test1@test.com"
objEmail.To = "test2@test.com"
objEmail.Subject = "Testing"
objEmail.Textbody = "Testing..."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"your smarthost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

http://www.nagios.org/ -feishazounai(飞沙走奶); 2003-5-31 (#1216006@0)

I doubt ipsentry can go that level. Becasue for SMTP;POP3...maybe work. becasue they just simple ping the port number. for event log it won't work. Whatisup Gold is similar prodcut I used before. -chinatiger(能曾金刚的生神); 2003-6-2 (#1219248@0)

@Calgary

不论是否有local SMTP都可以

Replies, comments and Discussions:

More Topics