Direkt Ödeme Yapılacak... (Asp Sorun)
Aşşağıdaki kodlar mail sistemine ait.. yalnız bir sorun varki jmail de malum kullanıcıa dı ve şifre ister bunda ben ayarları yapamadım ve jmaili çalıştıramıyorum.. Bilen arkadaş var ise msnden irtiabata geçebilir ve çalıştırabilirsek ödemeyi anında yapabilirim..
Sevgilerimle..
Aşşağıdaki kodlar mail sistemine ait.. yalnız bir sorun varki jmail de malum kullanıcıa dı ve şifre ister bunda ben ayarları yapamadım ve jmaili çalıştıramıyorum.. Bilen arkadaş var ise msnden irtiabata geçebilir ve çalıştırabilirsek ödemeyi anında yapabilirim..
Sevgilerimle..
Kod:
<%
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
%>