<%
Set cdoConfig = CreateObject("CDO.Configuration" )

With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "mail.siten.com" 'server mail alanı
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "info@siten.com" 'mailin
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "mailinsifresi" 'şifren
.Update
End With

Set cdoMessage = CreateObject("CDO.Message" )

With cdoMessage
Set .Configuration = cdoConfig
.From = "info@siten.com" 'gönderen
.To = "admin@alici.org" 'alıcı
.Subject = "deneme mail konu" 'konu
.HTMLBody = "icerigin" 'mesajın

.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>