Saya punya skrip seperti ini:
#!/usr/bin/perl -w
use MIME::Lite;
use Net::SMTP::TLS;
$FROM='f...@gmail.com';
$TO='t...@gmail.com';
$subject='TESTING 123';
$SMTPUSER='f...@gmail.com';
$SMTPPASS='s3cr37';
$message_text='testing';
my $msg = MIME::Lite->new(From => $FROM,To => $TO,Subject =>
$subject,Type => 'multipart/mixed');
$msg->attach(Encoding => 'quoted-printable',Type => 'text/plain;
charset=UTF-8',Data => $message_text);
$msg->attach(Encoding => 'base64',Type => 'application/pdf',Filename
=> 'kontak.pdf',Path => '/root/kontak.pdf',Disposition =>
'attachment');
my $smtp = new Net::SMTP::TLS('smtp.gmail.com', Port => 587, User =>
$SMTPUSER, Password => $SMTPPASS, Timeout => 60);
$smtp->mail($FROM);
$smtp->to($TO);
$smtp->data;
$smtp->datasend($msg->as_string);
$smtp->dataend;
$smtp->quit;
Skrip ini utk mengirimkan email menggunakan SMTP Google, ada attachment
berupa pdf yg besarnya sekitar 20KB. Email sudah terkirim ke tujuan, tapi
mengapa attachment yg disertakan dipecah ya??
--
Bravo free software!!
/*
* http://rotyyu.wordpress.com
* YM: barca_43ver
* Gtalk: rotua.hd
*/
--
Berhenti langganan: linux-programming-unsubscr...@linux.or.id
Arsip dan info: http://linux.or.id/milis
