<%
If Request("gonder") <> "" Then
isim = Request.Form("isim") 'formdan gelen veriler
eposta = Request.Form("eposta")
konu = Request.Form("konu")
mesaj = Request.Form("mesaj")
Session.CodePage = 65001 'UTF-8 etkinleştirmesi
Set Mail = Server.CreateObject("Persits.MailSender") 'nesneyi oluştur
Mail.CharSet = "UTF-8" 'karakter kodlamayı ayarla
Mail.IsHTML = true 'html olarak gönder
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.Host = "mail.microturk.net" 'smtp sunucusunu ayarla
Mail.Username = "posta@microturk.net" 'smtp kullanıcı adı
Mail.Password = "şifreşifreşifre" 'smtp şifresi
Mail.From = "posta@microturk.net" 'gönderen epostası
Mail.FromName = "Microturk Posta" 'gönderen adı
Mail.AddAddress "efecanerdur@gmail.com", "Efecan Erdur" 'mail kime gidecek
Mail.Subject = "İletişim formu: " & Mail.EncodeHeader(konu, "utf-8")
Mail.Body = "İetilim formundan gönderilen mail aşağıdadır
" & _
"Gönderen adı: " & isim & "
" & _
"Gönderen epostası: " & eposta & "
" & _
"Mesaj: " & mesaj
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Hata oluştu: " & Err.Description & ""
else
Response.Write "Mesaj başarıyla gönderildi."
End If
End If
%>