catatanlepas.com

Pada saat sekarang ini, email mempunyai posisi yang sangat penting dalam kehidupan manusia. Dengan email, kita dapat mengirim atau menerima sesuatu dari teman kita. Dengan email, kita dapat mempromosikan barang atau jasa kita kepada orang lain. Dan masih banyak lagi kegunaan email yang lain. Pada umumnya pengiriman email dilakukan oleh email client seperti Outlook, Thunderbird, dan sebagainya. Namun dalam tutorial ini akan dijelaskan tentang cara mengirim email melalui skrip. Penulis menggunakan skrip perl dan OS Centos 5.5 untuk mengirim email melalui skrip.

Sebelum mengeksekusi skrip, pastikan bahwa modul Mail::Sender ada dalam sistem kita. Untuk mengetahui apakah modul tersebut ada dalam sistem kita, silahkan baca di sini. Jika modul tersebut tidak ada dalam sistem, install modul tersebut melalui CPAN. Pastikan juga bahwa perl yang ada di file kita terletak di /usr/bin/perl. Untuk mengetahuinya, silahkan ketik:

# whereis perl

Jika perl tidak terletak di file tersebut, maka ganti shebang skrip perl dengan file tersebut. Setelah itu buat file yang bernama email.pl dan isi file tersebut dengan skrip di bawah ini:

#!/usr/bin/perl -w

use strict;
use CGI qw/:standard :cgi-lib escape/;
use Time::Local;
use POSIX;
use Mail::Sender; #Modul ini wajib ada dalam sistem

my $to="arfie\@latihanlinux.co.cc"; #alamat untuk siapa yg di kirim
my $subject = "[Automatic] Testing Kirim Email"; #subjek email nya
my $message ="Tes Kirim Email\n"; #isi email

## Pengiriman Email ##
my $sender = new Mail::Sender
{
smtp => '123.45.67.89', # Ganti dengan SMTP mail server
from => ' This e-mail address is being protected from spambots, you need JavaScript enabled to view it ',
debug => 'testemaildebug.txt'
};

$sender->Open({to=>$to, subject=>$subject});
$sender->SendLineEnc($message);
$sender->Close;

Kemudian rubah mode file tersebut sehingga bisa dieksekusi:

# chmod +x email.pl

Kemudian cobalah eksekusi file tersebut dengan:

# ./email.pl

Maka email tersebut akan terkirim ke This e-mail address is being protected from spambots, you need JavaScript enabled to view it dari This e-mail address is being protected from spambots, you need JavaScript enabled to view it dengan judul Testing Kirim Email dengan pesan Tes Kirim Email. Debug pada skrip di atas fungsinya adalah sebagai log pengiriman email. Lalu, bagaimana jika kita ingin mengirimkan email dengan attachment? Hal itu bisa dilakukan dengan menggunakan skrip di bawah ini:

#!/usr/bin/perl -w

use strict;
use CGI qw/:standard :cgi-lib escape/;
use Time::Local;
use POSIX;
use Mail::Sender;

my $to="arfie\@latihanlinux.co.cc";
my $message ="Tes Kirim Email\n";

## Pengiriman Email ##
my $sender = new Mail::Sender
{
smtp => '123.45.67.89',
from => ' This e-mail address is being protected from spambots, you need JavaScript enabled to view it ',
debug => 'testemaildebug.txt'
};

$sender->MailFile(
{
to => "$to",
subject => "Data Snort",
msg => "$message",
file => "/root/tesaja.txt"
}
);
$sender->Close;

Sebelum skrip tersebut dieksekusi, buatlah terlebih dahulu file di folder /root dengan nama tesaja.txt dan isi apa saja. Kemudian eksekusi skrip tersebut, maka email akan terkirim beserta attach testaja.txt.

Kita juga dapat melakukan agar email tersebut bisa dikirimkan secara berkala yaitu dengan menambahkannya di crontab.