Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Answer: How do I send an email with Perl (including an attachment)?

by Anonymous Monk
on Sep 28, 2004 at 04:15 UTC ( #394459=categorized answer: print w/replies, xml ) Need Help??

Q&A > mail and news > How do I send an email with Perl (including an attachment)? - Answer contributed by Anonymous Monk

#!/usr/bin/perl -w use Getopt::Long; use IO::File; use MIME::QuotedPrint; use MIME::Base64; use Mail::Sendmail; use strict; use warnings; my $cc; my $bcc; GetOptions( 'cc=s' => \$cc, 'bcc=s' => \$bcc, ); my( $from, $to, $subject, $msgbody_file, $attachment_file ) = @ARGV; my $msgbody = read_file( $msgbody_file ); my $attachment_data = encode_base64( read_file( $attachment_file, 1 ) +); my %mail = ( To => $to, From => $from, Subject => $subject ); $mail{Cc} = $cc if $cc; $mail{Bcc} = $bcc if $bcc; my $boundary = "====" . time . "===="; $mail{'content-type'} = qq(multipart/mixed; boundary="$boundary"); $boundary = '--'.$boundary; $mail{body} = <<END_OF_BODY; $boundary Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable $msgbody $boundary Content-Type: application/octet-stream; name="$attachment_file" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="$attachment_file" $attachment_data $boundary-- END_OF_BODY sendmail(%mail) or die $Mail::Sendmail::error; print "Sendmail Log says:\n$Mail::Sendmail::log\n"; sub read_file { my( $filename, $binmode ) = @_; my $fh = new IO::File; $fh->open("< $filename") or die "Error opening $filename for reading - $!\n"; $fh->binmode if $binmode; local $/; <$fh> }

  • Comment on Answer: How do I send an email with Perl (including an attachment)?
  • Download Code
Log In?

What's my password?
Create A New User
[Corion]: I should re-prod tsee about the Filter::Simple branches that he might want to merge or that I should merge so he can do a release ;-D
[ambrus]: Corion: actually, schmorp has complained about how you used that syntax in the draft for AnyEvent::Impl:: Prima. I don't think he screamed, but whatever.
[ambrus]: Yes, I know you fixed that since.

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2017-02-27 14:46 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (388 votes). Check out past polls.