Kirim Email menggunakan CDOSYS ASP
- Halaman Sebelumnya Global.asa ASP
- Halaman Berikutnya Response ASP
CDOSYS adalah komponen bawaan ASP. Komponen ini digunakan untuk mengirim email melalui ASP.
Mengirim email menggunakan CDOSYS
CDO (Collaboration Data Objects) adalah teknologi Microsoft yang dirancang untuk mempermudah pembuatan program komunikasi.
CDOSYS adalah komponen bawaan ASP. Kita akan menunjukkan bagaimana cara menggunaakan komponen ini untuk mengirim email.
Bagaimana CDONTs?
Microsoft telah menghapus CDONTs di Windows 2000, Windows XP, dan Windows 2003. Jika Anda masih menggunakan CDONTs di aplikasi, Anda perlu memperbarui kode dan menggunakan teknologi CDO yang baru.
Menggunakan instansi CDOSYS
Mengirimkan email:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="Ini adalah pesan."
myMail.Send
set myMail=nothing
%>
Mengirimkan email teks dengan field Bcc dan CC:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="Ini adalah pesan."
myMail.Send
set myMail=nothing
%>
Mengirimkan email HTML:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>Ini adalah pesan.</h1>"
myMail.Send
set myMail=nothing
%>
Mengirimkan email HTML yang mengirimkan halaman web dari situs web:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/"
myMail.Send
set myMail=nothing
%>
Mengirimkan email HTML yang mengirimkan halaman web dari komputer:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>
Mengirimkan email dengan lampiran:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="Ini adalah pesan."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>
Mengirimkan email teks melalui server remote:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Mengirim email dengan CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="Ini adalah pesan."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'IP atau Nama Server SMTP Remote'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Port Server'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
- Halaman Sebelumnya Global.asa ASP
- Halaman Berikutnya Response ASP
