ASP’de CDO Yöntemiyle Nasıl E-Posta Gönderilir?

<%
' CDO nesnelerini tanımlama
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")

' SMTP sunucu ayarları
Dim objConfig
Set objConfig = Server.CreateObject("CDO.Configuration")
Dim objFields
Set objFields = objConfig.Fields

' SMTP sunucu ayarlarını yapılandırma
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' SMTP kullanımı
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com" ' SMTP sunucu adresi
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' SMTP portu (genellikle 25, 465 veya 587)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' Kimlik doğrulaması gerektirir
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" ' SMTP kullanıcı adı
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password" ' SMTP şifresi
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ' SSL/TLS kullanımı (Gerekirse)
.Update
End With

' E-posta ayarlarını yapılandırma
With objMail
.Configuration = objConfig
.To = "[email protected]" ' Alıcı e-posta adresi
.From = "[email protected]" ' Gönderici e-posta adresi
.Subject = "Test E-posta Konusu"
.HTMLBody = "<h1>Bu bir test e-posta mesajıdır</h1>"
.Send
End With

' Temizleme
Set objMail = Nothing
Set objConfig = Nothing
Set objFields = Nothing

Response.Write("E-posta başarıyla gönderildi!")
%>