Sending mail with Net::SMTP on Windows : Mail « Network « Perl






  1. Perl
  2. Network
  3. Mail

Sending mail with Net::SMTP on Windows

    
#!/usr/bin/perl -w

use Net::SMTP;

$server       = 'server.mail';
$from_address = 'from@mail.com';
$to_address   = 'to@mail.com';

# If you have problems, turn on debugging output.
#$mailserv = Net::SMTP->new( $server, Debug => 1 );
$mailserv = Net::SMTP->new( $server );
unless ($mailserv) {
   die "Could not connect to server $server, $!\n";
}

# Note multi-line string. See Chapter 2.
$data ='Subject: This is a subject.
This is a test.

Oh, joy.';


$mailserv->mail( $from_address );
$mailserv->to( $to_address );
$mailserv->data( $data );
$mailserv->quit();








Related examples in the same category

1.use Mail::POP3Client to send an email out
2.Send email out
3.Send email out with SMTP
4.Send mail
5.Get emails from server and save the emails to local drive
6.Open SENDMAIL