ASPEmail bileşeni ile eposta gönderimi

admin: 6 Haziran 2009 | kategori: Asp

İlk olarak şunu belirtmem gerekiyor ki Asp’den nefret ediyorum ancak sektör gereklilikleri insanı asp ve .net gibi iğrenç (bana göre) teknolojileri öğrenmeye zorluyor. Php kullanan biri olarak asp’ye alışmam 3-5 günümü aldı ancak verimli şekilde kullanmayı öğrenmem sanırım 2 haftamı alacaktır. Neyse konumuz asp ile smtp sunucusu üzerinden mail gönderimi. Birkaç haftadır bu dış smtp sunucusu kullanarak mail gönderme olayına takmış durumdayım nedeni çok basit; İŞ.

Bu örnekte 2 yazı önceki “Php üzerinden SMTP onaylı mail gönderme” adlı yazımda kullandığım iletişim formunun aynısını asp kullanarak hazırlayacağım. Eğer bu sayfaya başlıkla ilgili olarak geldiyseniz büyük ihtimalle html ile hazırladığınız iletişim formunuz vardır, eğer yoksa yapın çünkü bundan sonra asp kodlama kısmına geçiyoruz.

ASP KOD KISMI

<%

If Request("gonder") <> "" Then 'bu kod ile formun gonderilip gonderilmediğini kontrol ediyoruz

isim = Request.Form("isim") 'formdan gelen veriler
eposta = Request.Form("eposta") 'burada istediğiz kadar tanımlama yapabilirsiniz
konu = Request.Form("konu")
mesaj = Request.Form("mesaj")

Session.CodePage = 65001 'UTF-8 etkinleştirmesi, maillerde Türkçe karakterler için gerekli

Set Mail = Server.CreateObject("Persits.MailSender") 'nesneyi oluşturuyoruz
Mail.CharSet = "UTF-8" 'karakter kodlamasını bu sefer eposta için ayarlıyoruz
Mail.IsHTML = true 'html olarak gönder
Mail.Port = 587 'Türkiye lokasyonlu sunucularda bu şekildedir. Aksi durumlarda genel olarak 25'dir
Mail.ContentTransferEncoding = "Quoted-Printable" 'kodlama değişikliğinin uygulanması için
Mail.Host = "mail.microturk.net" 'smtp sunucusunu ayarla
Mail.Username = "posta@microturk.net" 'smtp kullanıcı adı
Mail.Password = "şifreşifreşifre123" 'smtp şifresi
Mail.From = "posta@microturk.net" 'gönderen epostası
Mail.FromName = "Microturk Posta" 'gönderen adı
Mail.AddAddress "ben@microturk.net", "Microturk Postacı" 'mail kime gidecek
Mail.Subject = "İletişim formu: " & Mail.EncodeHeader(konu, "utf-8") 'eposta başlığı tanımlıyoruz
Mail.Body = "İletişim formundan gönderilen mail aşağıda ki gibidir <br/><br/>" & _
"<b>Gönderen adı:</b> " & isim & "<br/>" & _ '_işareti kodun alt satırda devam edeceğini bildiriyor
"<b>Gönderen epostası:</b> " & eposta & "<br/>" & _
"<b>Mesaj:</b> " & mesaj
On Error Resume Next 'eğer hata varsa bundan sonrası işlenir, başarılı gönderimde bir hata sayılabilir (:
Mail.Send
If Err <> 0 Then
Response.Write "<b>Hata oluştu: " & Err.Description & "</b>"
else
Response.Write "<b>Mesaj başarıyla gönderildi.</b>"
End If

End If

%>

KOD KISMI BİTTİ

İsterseniz canlı örneği görebilir, isterseniz sıkıştırılmış proje dosyasını indirerek kendinize göre düzenleyebilirsiniz.

etiketler: Asp, aspemail, cdonts, flash, jmail, mailsmtp