Özellikle
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Bunlar ne ve ne alakası var hiç anlamadım..
Sevgilerimle..
<%
select case lcase(strMailMode)
case "cdosys"
'Create the mail object nad configuration object
Set objNewMail = Server.CreateObject("CDO.Message")
Set objMailConf = Server.CreateObject("CDO.Configuration")
'Set and update fields properties for configuration
'CDO send method
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Out going SMTP server this can be on any machine
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
'SMTP port
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Timeout
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'SMTP server authentication --UNCOMMENT if your server needs authentication - 0=anonymous, 1=basic 2=ntml
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
'objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
'Update the CDOSYS Configuration
objMailConf.Fields.Update
Set objNewMail.Configuration = objMailConf
'Set key properties
objNewMail.From = strSender
objNewMail.To = strRecipients
objNewMail.Subject= strSubject
if request.form("html") <> "" then
objNewMail.HTMLBody = sHTMLBody
else
objNewMail.TextBody = strMessage
end if
'Send the email
objNewMail.Send
Set objMailConf = Nothing
case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = strMailServer
objNewMail.AddRecipient strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
if request.form("html") <> "" then
objNewMale.ContentType = "text/html"
objNewMail.body = sHTMLBody
else
objNewMail.body = strMessage
end if
objNewMail.priority = 3
on error resume next '## Ignore Errors
objNewMail.execute
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Mesajın teslim edilemedi çünkü: " & Err.Description & "</li>"
End if
end select
Set objNewMail = Nothing
%> 
