การเขียนโปรแกรมสำหรับส่ง E-Mail จากหน้าเว็บเพจ ไม่ใช่เรื่องยาก ภาษา Perl/CGI ก็สามารถเขียนได้ ทั้ง  Perl ที่รันบน Windows และ Unix/Linux ครับ แต่กับบทความนี้ผมใช้ Perl ที่รันอยู่บน Server ที่เป็นระบบ Unix/Linux หากเป็นระบบ Windows ให้ทำการประยุกติ์ใช้อีกทีครับ

การเขียนโปรแกรมส่ง E-Mail ของ Perl/CGI

:: Example ::

#!/usr/bin/perl

########## กำหนดตัวแปรที่ใช้งานกับการส่ง E-Mail ##############

$toMail='tomail@mail.com'; # E-mail ผู้รับ
$subject="ส่งเมล์มาให้ครับ"; # หัวข้อเมล์
$message="ข้อความภายใน E-mail เมื่อผู้รับเปิดอ่าน"; # ข้อความภายในเมล์
$name="สมชาย"; # ชื่อผู้ส่งเมล์
$fromMail='somchai@mail.com'; # ชื่อผู้ส่งเมล์

########### กำหนด Path ของโปรแกรม Send Mail  ของระบบ #################
$sendMail="/usr/sbin/sendmail";
# ตัวแปร $sendMail ทำการเก็บค่า Path ของโปรแกรม Send Mail ของระบบ
# ซึ่ง อาจจะแตกต่างกันไปตามระบบ Server ที่ใช้งาน
# หากใช้ Path ตามตัวอย่างนี้ไม่ได้ผล ให้ทำการตรวจสอบค่านี้อีกครั้งกับ Server ที่คุณใช้งาน
# หรือสอบถามจากผู้ดูแลระบบ (for Unix/Linux)

##########  ส่วนของโปรแกรมที่ทำการส่ง E-mail ########
open(MAIL,"|$sendMail -t"); # เปิดการติดต่อกับโปรแกรม Send Mail
print MAIL "To: $toMail\n";
print MAIL "From: $fromMail\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message\nจากคุณ $name\n";
close(MAIL); # ปิดการติดต่อกับ Send Mail

##############  ส่วนของการรายงานผล ############
print "Content-type:text/html\n\n";
print "ทำการส่ง E-mail ไปที่ $mail แล้วจ้า";

** ระวังการกำหนดค่าตัวแปรที่เป็น E-mail Account ให้ใช้เครื่องหมาย Single Quote ( ' .... ' ) **

ในบทความหน้า (ตอนที่ 2) จะเป็นการส่ง E-Mail ให้มีข้อความในรูปแบบของ HTML นั้นคือ สามารถส่งไปแบบเว็บเพจกับ E-mail ที่เราจะส่งไปได้เลย คอยติดตามกันนะครับ ไม่นานเกินรอ...