JMail Bileşeni İle Mail Gönderme

Daha burada Persits bileşeni ile mail gönderme olayını açıklamıştık. Örnekde vermiştik.

Şimdi ise JMail bileşeni ile web sayfanızdan e-mail gönderimi yapmak için örnek bir kod sunacağım. Bunun için bir mailgonder.asp sayfası hazırlayacağız.

Aşağıdaki kodları mailgonder.asp sayfamız için oluşturuyoruz:

<%
Sayfa = "<TABLE border=1 width=500 bgcolor=#E8F0E8 >"
for each x in request.form
Sayfa = Sayfa & "<TR ><TD>" & x & ":</TD><TD>" & request.form(x)  & " </TD></TR>"
next
Sayfa = Sayfa & "</TABLE>"
%>
<%
Dim MAIL
Set MAIL = Server.CreateObject("Persits.MailSender")
MAIL.Host = "mail.domainadiniz.com"
MAIL.From = "gonderenmail@domainadiniz.com" ' gönderen e-mail
MAIL.Username = "gonderenmail@domainadiniz.com" ' gönderen e-mail ile aynı olmalı
MAIL.Password = "mailşifrem" ' e-mailinizin şifresini giriniz
MAIL.FromName = "görünen adınız" ' e-mailin gönderen adı, istediğinizi yazabilirsiniz.

MAIL.AddAddress "alicimail@domainadiniz.com" ' mail göndermek istediğiniz e-mail adresi
MAIL.Subject = "mail Konusu"
MAIL.IsHTML = True
MAIL.Body = Sayfa
MAIL.Send

set MAIL = nothing
%>