After you check your lists, here is a basic mailing subroutine. Change the Content Type to plain text if you don't want to add attachments.
#!/usr/bin/perl
#This is the sending routine from a larger program which uses both Mim
+e::Lite
# and Net::SMTP, which does the mail server login.
# Variable names passed to the routine should be self explanatory.
sub sendmsg {
my ( $From_Addr, $Mail_Name, $Subj_Text, $Body_Text, $File_Name,
$Mime_Data,) = @_;
my $msg = MIME::Lite->new(
From =>$From_Addr,
To =>$Mail_Name,
Subject =>$Subj_Text,
Type =>'multipart/mixed',
);
$msg->attach(Type=>'TEXT',
Data=>$Body_Text,
);
$msg->attach(Type=>'application/octet-stream',
Data=>$Mime_Data,
Filename=>$File_Name,
);
MIME::Lite->send('smtp', "mail.somewhere.net", Timeout=>60);
}
|