in reply to Re^2: Using Net::SMTP to send pdf attachment
in thread Using Net::SMTP to send pdf attachment
Hello again Anonymous Monk,
You need to treat the pdf as binary file. For the moment I do not have the time to play with your script to modify it but here is a sample of code that I just tested and works with pdf attachment using MIME::Lite.
#!/usr/bin/perl use strict; use warnings; use MIME::Lite; use Getopt::Std; my $SMTP_SERVER = '127.0.0.1'; # CHANGE ME my $DEFAULT_SENDER = 'sender@example.com'; # CHANGE ME my $DEFAULT_RECIPIENT = 'recipient@example.com';# CHANGE ME MIME::Lite->send('smtp', $SMTP_SERVER, Timeout=>60); my (%o, $msg); # process options getopts('hf:t:s:', \%o); $o{f} ||= $DEFAULT_SENDER; $o{t} ||= $DEFAULT_RECIPIENT; $o{s} ||= 'Your binary file, sir'; if ($o{h} or !@ARGV) { die "usage:\n\t$0 [-h] [-f from] [-t to] [-s subject] file ...\n"; } # construct and send email $msg = new MIME::Lite( From => $o{f}, To => $o{t}, Subject => $o{s}, Data => "Hi", Type => "multipart/mixed", ); while (@ARGV) { $msg->attach('Type' => 'application/octet-stream', 'Encoding' => 'base64', 'Path' => shift @ARGV); } $msg->send( ); __END__ $ perl client.pl Documentation.pdf
Hope this helps, BR.
Seeking for Perl wisdom...on the process of learning...not there...yet!
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: Using Net::SMTP to send pdf attachment
by Anonymous Monk on Mar 18, 2018 at 05:52 UTC | |
Re^4: Using Net::SMTP to send pdf attachment
by Anonymous Monk on Mar 16, 2018 at 15:31 UTC | |
by poj (Abbot) on Mar 16, 2018 at 15:40 UTC | |
by Anonymous Monk on Mar 16, 2018 at 15:57 UTC | |
by poj (Abbot) on Mar 16, 2018 at 17:43 UTC | |
by Anonymous Monk on Mar 17, 2018 at 00:23 UTC | |
|
In Section
Seekers of Perl Wisdom