Jmail ile mail gönderme meselesi de, yorum bölümünde var olan ve yapmış olduğunuz yorumlara yazılmış cevapların size geri bildirimini sağlayan sistemin daha önce sağlıklı çalışmaması üzerine tekrar geliştirmek zorunda kalmam sonucu ortaya çıktı. Bu tip uzun cümlelerden nefret ediyorum ancak yine de oluyor. Kusura bakmayın. Şu an yapmış olduğunuz her yoruma sağlıklı bir geribildirim alabiliyorsunuz. Sanıyorum bu sistemi daha önceden onarmamamın en büyük nedeni yeterli yorum potansiyeline ulaşamamamdı. Artık arada sırada da olsa yorumlarınız geliyor ve her yorum benim için büyük önem taşıyor. Elimden geldiğince cevap yazmaya çalışıyorum ve gerek benim yazmış olduğum gerekse diğer ziyaretçilerimin yazmış olduğu yorumlar hakkında haberdar olmanızı sağlayacak bu sistemi onarmış olmaktan dolayı çok mutluyum.
Gelelim şu Jmail ile mail gönderme işine. Jmail artık birçok asp destekli server üzerinde kurulu olan mail bileşeni. Dolayısı ile mail gönderme kodlarını birçok yerde bulabiliyorsunuz. Ancak benim gördüğüm kadarı ile yazılmış olan kodlar pek öyle tertipli değil. Örnek olarak değişkenler tanımlanmamış olabiliyor bazılarında. Ancak her ne kadar değişkenleri tanımlamak kolay bir iş olsa da yinede yeni başlayanlar için daha stabil kodların varlığı çok önemli.
Function Mail_Sender(ToEmail, FromEmail, MailSubject, MailBody, MailServer)Yukarıda verilen fonksiyonu aşağıdaki şekilde çağırabilirsiniz.
rem Coder: Uğur Özşahin
On Error Resume Next ’Hata söz konusu olursa bir sonraki satıra geç
Dim Msg
Set Msg = Server.createObject( "JMail.Message" ) ’Jmail bileşenin den yararlanmak için nesnemizi oluşturuyoruz.
Msg.ContentType = "text/html" ’Mail body kısmının html etiketlerini desteklemesi için içerik tipini belirliyoruz
Msg.CharSet = "ISO-8859-9" ’Türkçe karakter desteği
Msg.ISOEncodeHeaders = false
Msg.AddRecipient ToEmail ’Alıcının mail adresi
Msg.From = FromEmail ’Gönderen mail adresi
Msg.FromName = "Walleq" ’Gönderen isim
Msg.Subject = MailSubject ’Mailin konusu
Msg.htmlBody = MailBody ’Mail içeriği (html destekli)
Msg.send(MailServer) ’Mail Gönderiliyor. MailServer değişkenine "localhost" değerini verebilirsiniz.
Msg.close ’Nesnemizi sonlandırıyoruz
Set Msg = Nothing ’Nesne içeriğini boşaltıyoruz
If err Then ’Hata verdiği taktirde uyarı mesajı yazdırıyoruz.
Response.Write "Hata : " & err.Description & "<br />Mesajınız Gönderilemedi..<br />"
Else
Response.Write ToEmail & " Adresine Mail Başarılı Bir Şekilde Gönderilmiştir.<br />"
End If
End Function
Dim ToEmail, FromEmail, MailSubject, MailBody, MailServer
rem Coder: Uğur Özşahin
ToEmail = "alici@mail.com" ’Alıcı Mail Adresi
FromEmail = "gonderen@walleq.com" ’Gonderen Mail Adresi
MailSubject = "Deneme Maili" ’Mailin Konusu
’Mailin gövde kısmı (İçeriği)
MailBody = MailBody & "<br /><hr /><br />"
MailBody = MailBody & "<b>Deneme Maili Başarılı Bir Şekilde İletilmiştir.</b>"
MailBody = MailBody & "<br /><br /><hr /><br />"
MailServer="localhost" ’Mail serverı "localhost" işinizi görecektir
’Mail Gönderici Fonksiyonumuzu artık çağırabiliriz.
Mail_Sender ToEmail, FromEmail, MailSubject, MailBody, MailServer
Not: Açıklama satırları için gerekli olan tek tırnaklar muhtelemen sorun çıkartacaklardır. Siz o tek tırnakları Shift+2 (tek tırnak) ile değiştirmelisiniz yada açıklama bölümlerini bütünü ile silebilirsiniz.
Mail_Sender fonksiyonu ile ASP de mail gönderme işleminin PHP dilindeki mail gönderme işleminden pek farkı kalmıyor böylece. Ancak tabi serverınızın Jmail desteğinin olup olmaması da bu noktada belirleyici etken.
Yakın zamanda yaklaşık 5 adet farklı mail bileşeninin hem varlığını kontrol eden, hem de duruma göre mail gönderim işlemini gerçekleştirebilen bir sınıf hazırlamayı düşünüyorum. Bu sınıfı hazırladığımda burada kesinlikle paylaşacağım. Bu süre zarfında diğer bileşenler ile de nasıl mail gönderilebileceğine dair bir kaç yazı yazabilirim.
03
2008
Jmail hakkında
11
2008
Yazıyı açıkcası okumadım. İçeriğinde gönderilen maillerin junk/spam/önemsiz klasörüne düştüğüne değinilip değinildiğini bilmiyorum. Fakat yazmıyorsa ben söyleyeyim.
12
2008
@Hasan Aytekin,
Gönderilen maillerin junk a düşüp düşmemesi daha çok kullandığınız mail servisi ile ilintilidir. Dolayısı ile mail içeriğiniz ile de alakalı olarak junk a düşüp düşmeyeceğine karar veren sistem mail servislerinin spam önleyici programlarıdır. Yani gönderilen mailin junk a düşmesinin Jmail, ASPmail, CDO yada benzer bileşenler ile gönderilmesi ile uzaktan yakından alakası yoktur.
Bu konuda ayrıntı olarak şunu söyleyebilirim, Junk a düşme nedenlerinin başında doğal olarak mail içeriğinin spam içerikli olması gelir. Eğer spam önleyici, mail içeriğinden yola çıkarak, mailinizden kuşku duyarsa, gönderilen mailin düşeceği yer muhtemelen junk klasörü olacaktır.