Guest_imported
New member
- Jan 1, 1970
- 0
Is there an easy way to handle e-mail attachments in perl?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Attachments in perl
- Thread starter Guest_imported
- Start date
- Status
Send or receive?
If on a *nix system, you can send like ....
If that is not barking up the correct tree, try taking a look at the NET::SMTP module. 'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
If on a *nix system, you can send like ....
Code:
my $input_file = './templates/'.$session_id.'.txt';
my $output_file = './templates/'.$session_id.'.met';
`unix2dos $input_file | uuencode header_desc >$output_file`;
# append attachment to $mail_buffer
my $mail_buffer;
open(MDR,"<$output_file") or
showError("Failed to open MDR, $!");
while (<MDR>) { $mail_buffer .= $_; }
close MDR;
my $mail_prog = '/some/path/to/sendmail';
open (MAIL, "|$mail_prog -f YOU $recipient") ||
showError("Can't open $mail_prog!, $!");
print MAIL "From: $recipient\n";
print MAIL "Reply-To: $recipient\n";
print MAIL "Errors-to: $recipient\n";
print MAIL "Subject: email with attachment\n";
print MAIL "Precedence: bulk\n\n";
print MAIL "-----------------------------------------------------------\n";
print MAIL "Your file is attached.\n";
print MAIL "$mail_buffer\n";
close (MAIL);If that is not barking up the correct tree, try taking a look at the NET::SMTP module. 'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
- Status
Similar threads