Smtp Mail Gönderiminde Hata

[tktugberk]

Arkadaşlar benim sorunum aşağıdaki kodlarda. Kodlar gmail in smtp sunucusu üzerinden mail göndermeye elverişli fakat ben gmail kullanmak istemiyorum çok mail gönderince anında hesabı durduruyor. Aşağıdakişleri nasıl kendi sunucuma göre uyarlayabilirim

<% 
body="Mesajımızı  Buraya Yazabiliyoruz"
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") = "sasa@gmail.com"
Flds.Item(schema & "sendpassword") = "sifreburaya"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = site@siteleri.com
.From = "Muşteri Hizmetleri"
.Subject = "Mesajınız Var"
.HTMLBody = Body 
.Sender = "Gönderen"
.Organization = "http://www.siteadi.com"
.ReplyTo = "reply"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>