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

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”) = “mailadresiniz@gmail.com” ‘ 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 = “alici@siteadi.com”                                 ‘ Alıcı e-posta adresi
.Subject = “E-Posta Konusu”                                ‘ E-Posta konusu
.HTMLBody = “E-Posta içeriği”                          ‘ Mesaj
.Sender = “isim@siteadi.com”                             ‘ Gönderici olarak gözükmesini istediğiniz adres
.ReplyTo = “yanit@siteadi.com”                       ‘ 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