<%
Session.Codepage = 1254
On Error Resume Next
Dim SMTPSunucuAdresi
Dim SMTPKullaniciAdi
Dim Sifre
Dim AliciKisi
Dim MailKonusu
Dim Mesaj
Dim MKonf
Dim Alnlr
Dim CDOM

///////////////////////////////////////////////////////////
/////ALTTAKi KULLANICI ADI ve SiFRENiZi DOLDURUNUZ/////////
///////////////////////////////////////////////////////////

SMTPKullaniciAdi = ""
SMTPSifre = ""
Gidecek_Mail_adresi = ""
SMTPSunucuAdresi = ""
DomainAdi = "" //www olmadan yaziniz.

///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////

SMTPSunucuAdresi = "smtp."+DomainAdi
GonderenAdSoyad = SMTPKullaniciAdi
GonderenKisi = SMTPKullaniciAdi
AliciKisi = Gidecek_Mail_adresi
MailKonusu = Request.Form("MailKonusu")
Mesaj = Request.Form("mailadresi")+"
"+Replace(Request.Form("Mesaj"),Chr(10),"
",1,-1,1)
%>
<% If GonderenAdSoyad = "" Then %>

---

HATA : Lütfen Adınızı Soyadınızı Yazınız..!

---

<% ElseIf GonderenKisi = "" Then %>

---

HATA : Lütfen Mail Adresinizi Yazınız..!

---

<% ElseIf AliciKisi = "" Then %>

---

HATA : Lütfen Alıcı Kişinin Mail Adresini Yazınız..!

---

<% ElseIf MailKonusu = "" Then %>

---

HATA : Lütfen Mailin Konusunu Yazınız..!

---

<% ElseIf Mesaj = "" Then %>

---

HATA : Lütfen Mesajınızı Yazınız..!

---

<% Else %>
<%
Set MKonf = CreateObject("CDO.Configuration")
Sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Alnlr = MKonf.Fields
With Alnlr
.Item(Sch & "sendusing") = 2
.Item(Sch & "smtpserver") = SMTPSunucuAdresi
.Item(Sch & "smtpserverport") = 587
.Item(Sch & "smtpauthenticate") = 1
.Item(Sch & "sendusername") = SMTPKullaniciAdi
.Item(Sch & "sendpassword") = SMTPSifre
.Update
End With


Set CDOM = CreateObject("CDO.Message")
CDOM.Configuration = MKonf
CDOM.From = GonderenAdSoyad & "<" & GonderenKisi & ">"
CDOM.To = AliciKisi
CDOM.Subject = MailKonusu
CDOM.HtmlBody = Mesaj
CDOM.Send

Set CDOM = Nothing
Set Alnlr = Nothing
Set MKonf = Nothing

if err Then
Response.write err.description
Response.end
cdoSys = false
else
Response.write "Email gitmistir."
End If
%>

---

[
Mesajınız Gönderilmek üzere SMTP Sunucu tarafından alınmıştır..
]

---

<% End If %>

Ek Olarak: BUDA PERSİST MAİL SENDER


on error resume next
mail_mesaj = ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.CharSet = "ISO-8859-9"
Mail.Host = mail_server
Mail.TLS = True
Mail.Port = 587
Mail.Username = mail_username
Mail.Password = mail_password
Mail.From = mail_admin
Mail.FromName = mail_fromname
Mail.AddAddress mail_user 'E-postanın gideceği adres
Mail.AddReplyTo mail_addreplyto
Mail.Subject = mail_konu
Mail.IsHTML = true
Mail.Body = mail_mesaj
Mail.Send