Skip navigation

Skrip sederhana yang ditulis dengan PERL ini bisa digunakan untuk mengirim email secar otomatis dengan bantuan cron. Saya tulis di sini hanya sebagai arsip untuk mempermudah jika suatu saat butuh sehingga tidak perlu mencari ke mana-mana. Mohon maaf kalau tanpa penjelasan, kalau ada kesempatan nanti saya coba bahas tentang skrip ini.

#!/usr/bin/perl -w

use MIME::Lite;
use Net::SMTP::TLS;

$FROM='dari@domain.com;
$TO='kepada@domain.co.id';
$subject='TESTING 123';
$SMTPUSER='dari@domain.com';
$SMTPPASS='rahasia';
$message_text='testing';

my $msg = MIME::Lite->new(
              From => $FROM,
              To => $TO,
              Subject => $subject);

$msg->attach(Encoding => 'base64',
             Type => 'text/plain; charset=UTF-8',
             Data => $message_text);

my $smtp = new Net::SMTP::TLS::ButMaintained(
                     '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;

2 Comments

  1. wah panjang juga yach scriptnya, kira2 gmail pakai bahasa apaan yach kk…

    • Kalau mau yg singkat pake mutt aja. Bahasa utk produk Google yg mana dulu?


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: