in reply to Re: Sending Mail from Perl Script
in thread Sending Mail from Perl Script
use MIME::Lite; $user = 'user@yahoo.com'; $pass = 'passwd'; # Configure smtp server - required one time only MIME::Lite->send("smtp","smtp.mail.yahoo.com", AuthUser=>$user, AuthPass=>$pass); my $msg = MIME::Lite->new ( From => 'user@yahoo.com', To => 'user@yahoo.com', Data => "A simple test message", Subject => "Hello World", ); $msg->send();
|
|---|