Bilgi-Sayar.NET Menu

ADRES:

ASP’de Gmail Aracılığıyla E-Posta Gönderme

Bir önceki yazımızda persits bileşeni aracılığıyla e-posta göndermeyi anlatmıştık. Bu yazımızda ise gmail aracılığıyla CDO bileşenlerini kullarak e-posta göndermeyi anlatacağız. Sunucunuzda persits veya bir başka mail bileşeni yoksa gmail aracılığıyla kolayca e-posta gönderebilirsiniz. Herhangi bir google uygulaması oluşturma gibi bir zahmeti yok. Yazıyı fazla uzun tutmadan kodlar:

Dim Mail1, Mail2, Mail3                  ‘ Değişkenleri tanımlıyoruz
Set Mail1 = CreateObject(“CDO.Message”)
Set Mail2 = CreateObject(“CDO.Configuration”)
Set Mail3 = Mail2.Fields
schema = “http://schemas.microsoft.com/cdo/configuration/”
Mail3.Item(schema & “sendusing”) = 2
Mail3.Item(schema & “smtpserver”) = “smtp.gmail.com”  ‘ Gmail sunucusu, değiştirmeyin
Mail3.Item(schema & “smtpserverport”) = 465
Mail3.Item(schema & “smtpauthenticate”) = 1
Mail3.Item(schema & “sendusername”) = “[email protected]” ‘ E-Posta göndereceğiniz hesabınız
Mail3.Item(schema & “sendpassword”) = “mailsifreniz”                               ‘ Gmail hesabınızın şifresi
Mail3.Item(schema & “smtpusessl”) = 1
Mail3.Update
With Mail1
.To = email
.From = “[email protected]”                                 ‘ Alıcı e-posta adresi
.Subject = “E-Posta Konusu”                                ‘ E-Posta konusu
.HTMLBody = “E-Posta içeriği”                          ‘ Mesaj
.Sender = “[email protected]”                             ‘ Gönderici olarak gözükmesini istediğiniz adres
.ReplyTo = “[email protected]”                       ‘ Alıcı e-postayı yanıtladığında gitmesini istediğiniz adres
Set .Configuration = Mail2
SendEmailGmail = .Send
End With
Set Mail1=Nothing:Set Mail2=Nothing:Set Mail3=Nothing ‘ Değişkenlerimizi siliyoruz

Bir önceki yazımız olan ASP'de Global.asa ile Aktif Kişi Sayacı başlıklı makalemizde ASP ve ASP'de Global.asa ile Aktif Kişi Sayacı hakkında bilgiler verilmektedir.

  • arzu

    Güzel bir kod yapısı ancak toplu mail gönderimi için nasıl revize edebiliriz _ ?