Skip to main content

[PHP] Mail function

Wah, bener-bener payah, bertahun-tahun belajar PHP belum pernah buat program yang langsung ngirim email dari PHP. Padahal katanya gampang banget :).

Alasannya adalah belum ada keharusan untuk membuat program itu. Meski ada permintaan, namun biasanya aku bisa mengelak dengan berbagai dalih (next project lah, merepotkan dsb). Namun alasan utamanya adalah karena aku gak tahu install mail server di komputerku, jadi gak pernah bisa nyoba :D.

Nah, kali ini terpaksa harus buat. Aku didaulat buat ngerjain sistem laporan aktivitas para tukang di kantor, dan kalau ada masalah atau proyek baru langsung kirim email ke milis tukang tersebut. Yah, ngoprek sana-sini (baca: nyontek koding orang -- masih malas baca manual), nemu juga caranya, ambil aja cara yang sederhana.


// kirim email ke milis engineer
$recip = "spam@yahoo.co.id";
$subject = "Ini subject email ";
$body = "Ini bagian body atau isi email";
$extra_hdrs = ""; // yang ini belum tahu detailnya, lagi malas mempelajari
$body .= "\r\n \r\nSend by: Yudi -- ".date("r");
mail ( $recip, $subject, $body, $extra_hdrs ); // kirim deh


Nah, itu tadi contoh buat kirim email dari PHP.
BTW, ternyata agar dari komputerku bisa kirim email, tinggal install sendmail doank, gak harus lengkap jadi mail server... wah, dasar ketinggalan jaman heheheh

Comments

Anonymous said…
mas...sy dah coba scrip tu tp dibrowser muncul error:

Warning: Server Error in c:\apache\htdocs\facility_management\email\send_email.php on line 21....

kayaknya fungsi mail nya ga berjalan...

oy sy jg msh awam tentang fungsi email..

jika web yg kita buat pingin bs ngirim email tu hrs ga hrs bkn mail server kn?...

tinggal di publish az kn?...

oy kl dari localhost sblm dipublish ga bs ngirim email y?


mhn bantuannya mas..

oy ni emal sy hameeed_ilpinturichio@yahoo.com

trims.........

Popular posts from this blog

PostGreSQL :: Hitung Umur

Ternyata untuk menghitung umur dari data yang disimpan di PostGreSQL sangat gampang. PostGreSQL sendiri sudah menyediakan fungsi yang mendukung. Beberapa fungsi yang bisa dipakai adalah AGE dan EXTRACT. AGE dipakai untuk menghitung umur dari sebuah data, dibandingkan dengan hari ini, atau dengan data lain (tipenya timestamp). Misal: age(timestamp '1980-09-27'), akan menghasilkan nilai (bertipe interval) "24 years 1 mon 25 days". Nah, kalau mau mengambil nilai tahunnya saja, tinggal menggunakan EXTRACT Contoh: EXTRACT(year FROM AGE(timestamp '2001-09-27')), hasilnya akan jadi 24.

PHP :: Selisih Jam

Setelah kemarin kesulitan untuk melakukan increment ataupun decrement terhadap variabel waktu (date/time) di PHP, kali ini nemuin masalah untuk mencari selisih waktu (dari satu jam ke jam tertentu), yang perlu untuk ngitung lembur karyawan. Tadinya kepikiran untuk buat fungsi sendiri, yang flow -nya kira-kira begini: - masing-masing dipisah menjadi jam, menit, detik - bandingkan antara keduanya. - lakukan pengurangan terhadap masing-masing komponen (jam, menit dan detik) - gabungkan hasil perhitungan ... (selisih jam + selisih menit + selisih detik) Tapi waktu aku ingat kasus Next Date, ... muncul ide untuk menggunakan cara yang sama, yaitu memanfaatkan format UNIX timestamp, terus nyoba mencari selisihnya. TERNYATA BERHASIL !!! Flownya seperti ini: - masing-masing dipisah menjadi jam, menit,detik - ubah masing-masing ke format timestamp, gunakan fungsi mktime() - kurangkan kedua jam - hasilnya dibagi 60 (karena satuannya pakai menit), sementara selisih timestamp itu dalam detik Algori

Delphi :: Split String

Akhirnya ketemu juga cara untuk melakukan split string. (Terbiasa pakai PHP sih, yang sangat memanjakan dalam pengelolaan string.) Di sini memanfaatkan TStringList, unit Classes. // procedure untuk split string procedure Split (const Delimiter: Char; // delimiter charachter Input: string; // input string const Strings: TStrings) ; // list of string result begin Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; // contoh pemakaian procedure TForm1.Button1Click(Sender: TObject) ; var A: TStringList; begin A := TStringList.Create; try Split(' ', 'your delphi guide', A) ; ShowMessage(a[0]) ; //your ShowMessage(a[1]) ; //delphi ShowMessage(a[2]) ; //guide finally A.Free; end; end; Source : http://delphi.about.com/cs/adptips2002/a/bltip1102_5.htm Wheew .. akhirnya. One step ahead!!