Classic ASP Sending emails from your own server.

Benim gibi eski classic asp kullananlar için, kendi mail sunucularını kullanarak sitelerinden mail gönderebilmeleri için gerekli kodlar.

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") = "[e-mail]"
Flds.Item(schema & "sendpassword") =  "mailsifreniz"
Flds.Item(schema & "smtpusessl") = 0

Flds.Update

With iMsg

.To = "mailgö[e-mail]" 
.From = "[e-mail]"
.Subject = "Mail Konusu"
.HTMLBody = body
.Sender = "[e-mail]"
.Organization = ""
.ReplyTo = "[e-mail]"

.Server = "mail.sunucuadresiniz.com" 
.Username = "[e-mail]"
.Password =  "mailsifreniz"

Set .Configuration = iConf
SendEmailGmail = .Send
End With

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

Detaya ihtiyacınız olursa bloğumdaki yazıyıda kontrol edebilirsiniz.
https://sizinsayfaniz.com/blog2/Classic-Asp-Ile-Kurumsal-Mail-Adresinizden-Mail-Gondermek.html