Viewing file:  send.pl (1.05 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Demonstration on sending simple messages.
#
# This code can be used and modified without restriction.
# Mark Overmeer, <mailbox@overmeer.net>, 20 nov 2001
# 16 jan 2003, added some options
use warnings;
use strict;
use lib '..', '.';
use Mail::Box;
#
# Get the command line arguments.
#
die "Usage: $0 email-address\n"
unless @ARGV==1;
my $email = shift @ARGV;
#
# Create a simple message
#
my $message = Mail::Message->build
( From => 'me@localhost.com'
, To => $email
, Subject => 'A sunny day'
# , Cc => 'NINJA <ninja>, Mark Overmeer <markov>'
, data => <<'TEXT'
This is an automatically generated message.
I hope you have a nice day.
TEXT
);
#
# Transmit the message, leaving the decission how over to the
# Mail::Transmit package.
#
warn "Sending returned error $!\n"
unless $message->send;
$message->send
( via => 'sendmail' # you can do even without this line
# , trace => 'NOTICE'
# , executable => 'C:\lib\sendmail.exe'
# , debug_smtp => 1
# , timeout => 300
# , retry => 5
);
|