Yeni Mesaj

Gmail üzerinden ASP ile mail gönderme

Bize tek lazım olan bir Gmail hesabı, biraz da asp bilgisi. Başka dillerde de yapılır elbette ama uyarlamak lazım. Gmail kullanıcı adımız “hesap” olsun. Bu durumda mail adresimiz “hesap@gmail.com” olacaktır. Şifreyi de “Zor1Sifre” olsun ki kolayca bulunmasın.

Adım 1

Tanımlamaları ve sabit değerleri bir asp sayfasına yazacağız.

Dim iMsg, iConf, Flds
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration"):Set Flds=iConf.Fields
schema="http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing")=2
Flds.Item(schema & "smtpserver")="smtp.gmail.com"
Flds.Item(schema & "smtpserverport")=465
Flds.Item(schema & "smtpauthenticate")=1
Flds.Item(schema & "sendusername")="hesap@gmail.com"
Flds.Item(schema & "sendpassword")="Zor1Sifre"
Flds.Item(schema & "smtpusessl")=1
Flds.Update

Adım 2

Burada da mail gönderme fonksiyonumuz var. Ben sadece bir örnek yazdım burada ama yönettiğim sitelerde bu kodun dışına döngüler koyarak istediğim kadar kişiye spam olarak işaretlenmeden mail gönderebiliyorum.

With iMsg
.To="birEmailAdresi@gmail.com"
.From="hesap@gmail.com"
.Subject="Deneme maili"
.HTMLBody="bu bir deneme mailinin içeriğidir..."
.Sender="Site yöneticisi"
.Organization="http://huseyinsekmenoglu.net"
.ReplyTo="hesap@gmail.com"
Set .Configuration=iConf
SendEmailGmail=.Send
End With
Set iMsg=Nothing:Set iConf=Nothing:Set Flds=Nothing
Yeni Mesaj

Yeni Mesaj

12. satırdaki kod ile mailimiz gönderiliyor. Ondan öncekiler mailin bilgileri. En son satırda ise değişkenleri siliyoruz. Eğer 1. satır ile 11. satırı kapsayan bir döngü oluşturursanız otomatik olarak istediğiniz kadar kişiye mail atabilirsiniz.

Leave a Comment