1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/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
);
|
