ปล่อยบทความเรื่องการเขียนโปรแกรมส่ง Mail ตอนต่อจากตอนที่แล้วค้างไว้นานเลยครับ เป็นปีเเลย..ว่าจะเขียนตอนต่อมาอยู่นาน จนแล้วจนรอดก็ไม่ได้เขียนสักที เพิ่งจะมาเขียนเอาก็คราวนี้เองครับ คงไม่ว่ากันนะครับ เนื่องจากเว็บ DwThai.Com มีผมเขียนบทความและพัฒนาเว็บอะไรต่าง ๆ อยู่คนเดียว ไม่ว่าจะออกแบบเว็บ เขียนโปรแกรม ตอบ webboard ทำเองโหมดดดดเลย...เลยมีอะไรล่าช้าไปบ้าง มาเขาเรื่องของเรากันเลยดีกว่า..

การเขียนโปรแกรมส่ง E-Mail ในรูปบบ HTML ของ PERL

:: Example ::

#!/usr/bin/perl

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

$toMail='tomail@mail.com'; # E-mail ผู้รับ
$subject="ส่งเมล์มาให้ครับ"; # หัวข้อเมล์
$HTMLMessage = "<strong><font color='#FF0022'> ข้อความใน E-Mail</font></strong><br />";
$HTMLMessage .= "<img src='http://www.dwdev.dwthai.com/img/phpdwthai160x60.gif' / >";
# ข้อความภายในเมล์
$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";
print MAIL "Content-type: text/html; charset=tis-620\n\n";
print MAIL  $HTMLMessage;
close(MAIL); # ปิดการติดต่อกับ Send Mail

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

ให้เราสังเกตที่บรรทัดที่มี
print MAIL "Content-type: text/html; charset=tis-620\n\n";
บรรทัดนี้เป็นการระบุว่ามีการส่งเมลลืไปในรูปแบบของ HTML ครับ