Hai ...
Saya sudah bikin script perl sederhana untuk kirim mail.
Dulu bisa waktu masih pakai sendmail, tapi sekarang sudah ganti
pakai qmail, scrip perl saya tidak bisa bekerja.
ini contoh baris kodenya:
1 # Save the mail to the buffer
2 open (INFILE2, "template") || die ("File template doesn't exist\n");
3 @isinya = <INFILE2>;
4 close (INFILE2);
5
6 # And send the mail now !
7 $EMail = $username."\@mydomain.net";
8 open (MESSAGE, "| mail -s \"Kabar Gembira !\" $Email");
9 print MESSAGE (@isinya);
10 close (MESSAGE);
Email tidak bisa terkirim dan dapat pesan begini:
You must specify direct recipients with -s, -c, or -b.
Saya sudah akali script di atas, comment baris 9, dan ganti baris 8 dg:
8 open (MESSAGE, "| mail -s \"Kabar Gembira !\" $Email < template");
Tapi tetap dapat pesan kayak di atas, padahal kalau saya coba di prompt:
$] mail -s "Kabar Gembira !" [EMAIL PROTECTED] < template.txt
Maka mailnya akan terkirim baik.
Mohon pencerahan kawan-kawan.
Soalnya kalau kirim satu demi satu kan capek juga, 400 email !
Cuma beda nama, & email saja.
TIA
~yudi
--------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
