用Perl发送邮件

websyhg

#!/usr/bin/perl -w
package Mailiter;
use vars qw(@ISA @EXPORT @EXPORT_OK);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
smtpserver from to cc subject mailbody
attach unattach unattachall
send
);
use MIME::Lite;
use Common;
sub new
{
my $self = shift;
my ($subject, $tolist, @messages) = @_;
$self->{'subject'} = $subject;
$self->to($tolist);
$self->{'mailbody'} = {'Type' => 'text/plain', 'Data' => qq(join('\n',@messages))};
bless $self;
}
sub smtpserver
{
my $self = shift;
my ($smtpserver) = @_;
$self->{'mailserver'} = $smtpserver;
}
sub from
{
my ($self, $mailfrom) = @_;
$self->{'from'} = $mailfrom;
}
sub to
{
my ($self, $tolist) = @_;
$self->{'tolist'} = join(',', split(/[:,;|\s]+/, $tolist));
}
sub cc
{
my ($self, $cclist) = @_;
$self->{'cclist'} = join(',', split(/[:,;|\s]+/, $cclist));
}
sub subject
{
my ($self, $subject) = @_;
$self->{'subject'} = $subject;
}
sub mailbody
{
my ($self, $type, $mailbody) = @_;
$self->{'mailbody'} = {'Type' => $type, 'Data' => $mailbody};
}
sub attach
{
my ($self, $type, $path, $name) = @_;
$self->{'attachcs'} = () if not $self->{'attachcs'};
push(@{$self->{'attachcs'}},
{ 'Type' => $type, 'Path' => $path, 'Filename' => $name, 'Disposition' => 'attachment'}
);
}
sub unattach
{
my ($self, $type, $path, $name) = @_;
$self->{'attachcs'} = () if not $self->{'attachcs'};
my @attached = ();
my @unattached = ();
foreach (@{$self->{'attachcs'}}){
if(($_->{'Type'} eq $type) and ($_->{'Path'} eq $path) and ($_->{'Filename'} eq $name)){
push(@unattached, $_);
}
else{
push(@attached, $_);
}
}
$self->{'attachcs'} = @attached;
return @unattached;
}
sub unattachall
{
my ($self, $type, $path, $name) = @_;
$self->{'attachcs'} = ();
}
sub send
{
my $self = shift;
if(&isScmDebug()){
print("mail server: ".$self->{'mailserver'}."\n");
print("mail from: ".$self->{'from'}."\n");
print("to list: ".$self->{'tolist'}."\n");
print("cc list: ".$self->{'cclist'}."\n");
print("subject: ".$self->{'subject'}."\n");
}
if(&isNotBlank($self->{'mailserver'})){
### Add parts (each "attach" has same arguments as "new"):
my $msg = MIME::Lite->new(
From    => $self->{'from'},
To      => $self->{'tolist'},
Cc      => $self->{'cclist'},
Subject => $self->{'subject'},
Type    =>'multipart/mixed'
);
### Add parts (each "attach" has same arguments as "new"):
$msg->attach(
Type => $self->{'mailbody'}->{'Type'},
Data => $self->{'mailbody'}->{'Data'});
foreach (@{$self->{'attachcs'}}){
$msg->attach(
Type => $_->{'Type'},
Path => $_->{'Path'},
Filename => $_->{'Filename'},
Disposition => $_->{'Disposition'}
);
}
### use Net:SMTP to do the sending
$msg->send('smtp', $self->{'mailserver'}, Debug=>0);
}
else{ #send email with an MTA like sendmail, cannot send attach with this option
open(MAIL,'|$SENDMAIL -t') || die "Can't start sendmail.: $!";
print MAIL<<"END_OF_HEADER";
To: @{$self->{'tolist'}}
Cc: @{$self->{'cclist'}}
From: $self->{'from'}
Subject: $subject
END_OF_HEADER
print MAIL "Content-Type: $self->{'mailbody'}->{'Type'}\n";
print MAIL "\n";
print MAIL "$self->{'mailbody'}->{'Data'}\n";
print MAIL "\n";
close(MAIL);
}
}
1;