stevetrans140
Programmer
How do I attach files using sendmail?
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 Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Unix sendmail attachments
- Thread starter stevetrans140
- Start date
- Status
This is a small chunk showing how I do it using uuencode. This has been clipped from a program and sanitized to remove some system specific stuff, but, hopefully it illustrates an approach.
'hope this helps
If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
Code:
# uuencode attachment to go with email
my $output_file = './templates/'.$session.'.txt';
`unix2dos $input_file | uuencode info.txt >$output_file`;
# grab output_file as attachment to send with email
my $mail_buffer;
open(MDR,"<$output_file") or showError("Failed to open MDR, $!");
while (<MDR>) { $mail_buffer .= $_; }
close MDR;
open (MAIL, "|$sendmail -f NADA $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: New Metadata Record\n";
print MAIL "Precedence: bulk\n\n";
print MAIL "-----------------------------------------------------------\n";
print MAIL "Your information is attached.\n";
print MAIL "$mail_buffer\n";
close (MAIL);If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.
- Status
Similar threads