Hi poj thanks. Here's the complete code:
use strict;
use Net::SMTP;
use MIME::Base64;
my $smtphost = 'some_smtp_host';
my $username = 'username';
my $password = 'password';
my $emailto = 'to@hello.com';
my $emailfrom = 'from@hello.com';
my $subject = 'Hello world';
my $message = 'Test message';
my $smtp = Net::SMTP->new($smtphost, Debug => 1, Timeout => 5);
$smtp->datasend("AUTH LOGIN\n");
$smtp->datasend(encode_base64($username));
$smtp->datasend(encode_base64($password));
$smtp->mail($emailfrom);
$smtp->to($emailto);
$smtp->data();
my $boundary = 'frontier';
my $attachBinaryFile = '18560243.pdf';
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-type: multipart/mixed;\n\tboundary=\"$boundar
+y\"\n");
$smtp->datasend("--$boundary\n");
$smtp->datasend("Content-type: text/plain;\n");
$smtp->datasend("\nSome plain text here in the body of the email\n");
$smtp->datasend("\n");
$smtp->datasend("--$boundary\n");
$smtp->datasend("Content-Type: appliaction/pdf; name=\"$attachBinaryFi
+le\"\n");
$smtp->datasend("Content-Transfer-Encoding: base64\n");
$smtp->datasend("Content-Disposition: attachment; filename=\"$attachBi
+naryFile\"\n");
$smtp->datasend("\n");
my $buf;
open(DAT, "/path/18560243.pdf") || die("Could not open binary file!");
binmode(DAT);
local $/=undef;
while (read(DAT, my $picture, 4096)) {
$buf = &encode_base64( $picture );
$smtp->datasend($buf);
}
close(DAT);
$smtp->datasend("\n");
$smtp->datasend("--$boundary\n");
$smtp->dataend();
$smtp->quit;
sub date_r {
my ($monthday, $mon, $yr, $ time, $hour, $str);
my (@lt) = ();
@lt = localtime();
$monthday = $lt[3];
$mon = $lt[4]+1;
$yr = $lt[5] + 1900;
$hour = $lt[2];
$time = sprintf("%02d:%02d:%02d", $hour, $lt[1], $lt[0]);
$str = $mon . '/' .$monthday . '/' . $yr . ' ' . $time;
return $str;
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|