Re: simple email question

[Kevin . ADM-Gibbs]

Chuck,

I use Net::SMTP as illustrated below.

Kev.


use strict;
use Net::SMTP;

my $host='yoursmtphost';
my $from='[EMAIL PROTECTED]';
my $to='[EMAIL PROTECTED]';

my $smtp=Net::SMTP->new($host, Timeout => 30, Debug => 1)
      or die "Can't connect to $host";

$smtp->mail($from) or die "1 Mail: @({$smtp->message})\n";
$smtp->to($to) or die "2 Mail: $smtp->message\n";
$smtp->data();

$smtp->datasend(<<ENDOFMESSAGE);
To: $to;
Subject: Testing Message
Carl,

Message text.

ENDOFMESSAGE

$smtp->dataend;
$smtp->quit;