Halo rekan2,
saya ada masalah lagi.
saya buat program yang ngirim notification ke orang, data tsb saya ambil
dari database, disitu saya memerlukan format html agar tampilannya bagus.
Apa ada seting sesuatu dengan header? Saya harapkan bantuannya.
Terimaskasih.
Contoh :
No | Product Number | Price | Quantity |
1 | KW00000021 | Rp.400,000.00 | 2 |
2 | ZP000000001 | Rp. 4000.00 | 3|
Kalo diliat diatas tampilan sangat jelek , kalo melihat bawah :
|-----------------+-----------------+-----------------+-----------------|
|No |Product Number |Price |Quantity |
|-----------------+-----------------+-----------------+-----------------|
|1 |KW00000021 |Rp.400,000.00 | 2 |
|-----------------+-----------------+-----------------+-----------------|
|2 |ZP000000001 |Rp. 4000.00 | 3 |
|-----------------+-----------------+-----------------+-----------------|
Saya sendiri ingin view source dari email yang saya post ke
linux-programming ini tapi kok nggak bisa, saya ingin melihat source dari
tabel yang tampil diatas , saya pakai lotus notes.
Berikut ini contoh program saya : saya pakai sendmail.pm module perl.
Mengirim email dengan menghubungi smtp server tertentu. Saya pernah dengar
untuk ngirim email supaya bisa menampilkan HTML format tsb harus ada MIME
HEADER yang perlu diseting atau apa istilahnya saya juga nggak tahu.
Ketika program saya, saya jalankan yang terjadi malah semuah code html
ditampilkan di email tsb kurang lebih seperti ini :
<table> <tr><td>40-522-0011-1</td><td>Hose Connection and Accessories,
Clamp, 0-6 Inch, Worm Gear Screw Driver, Stainless Steel
316</td><td>11250</td><td>10</tr> <tr><td>40-522-0008-1</td><td>Hose
Connection and Accessories, Clamp, 6,125 - 7 Inch, Worm Gear ScrewDriver,
Stainless Steel 316</td><td>20000</td><td>1</tr>
<tr><td>40-550-0011-1</td><td>Rope, Fabric, 1/2 Inch, Polypropylene,
Triple, Strand Rope, 720 Feet/Rool, Strip
White/Blue</td><td>240000</td><td>10</tr> </table>;
Ini kode saya mungkin bisa bantu
-----------------------------------------------------------------------------
#!c:\Perl\bin\Perl.exe
# PROCEDURE AMBIL ORDER STATUS DIDATABASE
use OLE; # use Win32::OLE if using the Std Distribution
$Conn = CreateObject OLE "ADODB.Connection";
$Conn->Open("DSN=jual;UID=admin;PWD=password");
$sqldetail="SELECT prnbr, prsdesc, integer(stprice) as stprice1, stquant
FROM shipto, product
WHERE stmenbr=17452 AND stornbr=62752 AND prrfnbr=stprnbr";
$rs3 = $Conn->Execute($sqldetail);
$orderinfo = "\n";
$orderinfo = "<table>";
while ( !$rs3->EOF ) {
my($prnbr, $prsdesc, $stprice1, $stquant) = (
$rs3->Fields('prnbr')->value,
$rs3->Fields('prsdesc')->value,
$rs3->Fields('stprice1')->value,
$rs3->Fields('stquant')->value);
for($prnbr, $prsdesc, $stprice1, $stquant){
s/^\s+//;
s/\s+$//;
}
$orderinfo = "$orderinfo
<tr><td>$prnbr</td><td>$prsdesc</td><td>$stprice1</td><td>$stquant</tr>";
$rs3->MoveNext;
}
$orderinfo = "$orderinfo </table>";
$rs3->Close;
$rs3 = Nothing;
$Conn->Close;
$Conn = Nothing;
# PROCEDURE KIRIM EMAIL
use SendMail;
$smtpserver = "10.1.100.1";
$smtpport = 25;
$sm = new SendMail($smtpserver,$smtpport);
$sm->setDebug($sm->OFF);
$sm->From("<klsbtob\@kawanlama.com>");
$sm->Subject("Approval Order Notification - Order Number=$(zodnum)");
$sm->To("Ahmad Juniar <ahmadjun\@kawanlama.com>");
$sm->setMailBody("Dear bplvo,
Order #$(zodnum) has been approved by Shopper Manager\n
$orderinfo;
$ordershopperinfo;
$warehouseinfo;
</body></html>\n");
if ($sm->sendMail() != 0) {
print $sm->{'error'}."\n";
exit -1;
}
$sm->reset();
Ahmad Juniar
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
