Contoh Fungsi Mengirim Email Dengan CDO Di ASP

Saya membuat fungsi ini untuk terus mengirim email dari formulir halaman saya di ASP, jadi saya hanya perlu membuat file dan memasukkannya untuk mengirim email di ASP.

Fungsi Send Mail (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ON ERROR RESUME BERIKUTNYA

 'Kirim email teks menggunakan otentikasi pada server SMTP

 Const cdoSendUsingPickup = 1 'Kirim pesan menggunakan layanan pengambilan direktori lokal SMTP
Const cdoSendUsingPort = 2 'Kirim menggunakan jaringan, SMTP melalui jaringan

 Const cdoAnonymous = 0 'Jangan autentikasi
 Const cdoBasic = 1 'Otentikasi dasar (teks biasa)
 Konst cdoNTLM = 2 'NTLM

 Setel objMessage = CreateObject ("CDO.Message")
 pesan obj. Subyek = masalah
 pesan obj. Dari = f nama pengirim & ""
 pesan obj. Kepada = femailpara
 pesan obj. Bcc = fbcc
 pesan obj. TextBody = fmessage
 JIKA fadjoint <> "" MAKA
 pesan obj. Tambahkan Fadjoint Lampiran
 BERAKHIR JIKA

 '== Server SMTP dikonfigurasi di sini.

 pesan obj. Konfigurasi. Bidang. Barang _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing

 SendEmail = femailpara & ","

Fungsi Akhir
%>