send email in windows platform

This is my mind for 3 years. It is good for database monitoring, if it can be done by a perl script, however no initiative to follow up.

Yesterday, boss is not around & no urgent task at hand. a leisure Friday.

Googled and got some sample script. However not work with my environment, could be due to my lower version SendMail.pm.

Finally find below key lines from existing netbackup script.


$smtpSvr = "(smtp server)" ;

use Mail::Sendmail;

%mail = ( To => "yourid\@domain",
From => "yourid\@domain",
Message => "test message2 ",
Subject => "test sms2 from windows",
smtp => $smtpSvr,
);

sendmail( %mail ) or die $Mail::Sendmail::error;


Note that a "\" is needed before the "@".




3 years x mans versus 1hour 1 man effort. What do we learned from this case ?!