Sepertinya anda harus menggunakan net smtp tls yg lain yg lbh di maintain, ex: Net::SMTP::TLS::ButMaintained
Salam, Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -----Original Message----- From: Preman Terminal <[email protected]> Date: Wed, 6 Apr 2011 15:22:32 To: <[email protected]> Reply-To: [email protected] Subject: [linux-programming] Mengirim email menggunakan skrip perl Saya punya skrip seperti ini: #!/usr/bin/perl -w use MIME::Lite; use Net::SMTP::TLS; $FROM='[email protected]'; $TO='[email protected]'; $subject='TESTING 123'; $SMTPUSER='[email protected]'; $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: [email protected] Arsip dan info: http://linux.or.id/milis
