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 “[email protected]” 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")="[email protected]"
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="[email protected]"
.From="[email protected]"
.Subject="Deneme maili"
.HTMLBody="bu bir deneme mailinin içeriğidir..."
.Sender="Site yöneticisi"
.Organization="http://huseyinsekmenoglu.net"
.ReplyTo="[email protected]"
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.