Classic Asp İle Kurumsal Mail Adresinizden Mail Göndermek

Asp ile Mail Gönderme Kodları

Classic Asp kullanan Windows sunucularda web sitenizden kendi mail sunucunuzu kullanarak mail göndermek için kullabileceğiniz kodlar.

body= "Göndermek istediğiniz mesaj"

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") = "mail.sunucuadresiniz.com"
Flds.Item(schema & "smtpserverport") = 587
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "info@kendimailadresiniz.com"
Flds.Item(schema & "sendpassword") = "mailsifreniz"
Flds.Item(schema & "smtpusessl") = 0

Flds.Update

With iMsg

.To = "mailgönderilicekadres@adres.com"
.From = "info@kendimailadresiniz.com"
.Subject = "Mail Konusu"
.HTMLBody = body
.Sender = "info@kendimailadresiniz.com"
.Organization = ""
.ReplyTo = "info@kendimailadresiniz.com"

.Server = "mail.sunucuadresiniz.com"
.Username = "info@kendimailadresiniz.com"
.Password = "mailsifreniz"

Set .Configuration = iConf
SendEmailGmail = .Send
End With

set iMsg = nothing
set iConf = nothing
set Flds = nothing

Bu şekilde kendi sunucunuz üzerinden kendi kurumsal mailinizi kullanarak siteniz üzerinden mail gönderebilirsiniz.

Maillerde karakter sorunu yaşarsanız bu şekilde düzenleme yapabilirsiniz

.BodyPart.Charset = "utf-8"
.HTMLBodyPart.Charset = "utf-8"
.TextBodyPart.Charset = "utf-8"

Gönderilen mailler yanıtladığında yanıt adresinin farklı olmasını istiyorsanız .ReplyTo = kısmından yanıt adresini değiştirebilirsiniz.