Direkt Ödeme Yapılacak...

VazgectimSenden

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..

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
%>

VazgectimSenden · 27 Ekim 2005

"http://schemas.microsoft.com/cdo/configuration/sendusing"

Bunlar ne ve ne alakası var özellikle hiç anlamadım..

symbiantech · 27 Ekim 2005

klasöre yazma izni varmı? yoksa çalışmaz dosyalara yazma izni verip denersen sanırım sorunun çözülecek

turkmale · 27 Ekim 2005

hata ne ki?

VazgectimSenden · 27 Ekim 2005

symbiantech' Alıntı:
klasöre yazma izni varmı? yoksa çalışmaz dosyalara yazma izni verip denersen sanırım sorunun çözülecek

yok canım yazma izni ile alakalı birşey değil.. jmail de kullanıcı adı ve şifre ile göndermesi lazım sistem gereği maili.. ancak burda kullanıcı adı ve şifreyi ne yaptıysam doğru oalrak giremedim.. Sorun bu..

symbiantech · 27 Ekim 2005

jmail box kurmuştum ben onda yazma izni olmadıgından permisson hatası veriyordu yazma izni verince olay çözülmüştü. kullandıgı aynı comp. tam bilmiyorum ama bir yere update le bir veri yolluyorsan bunun yazma izniyle alakası var sanırım. yanılıyormuyum neyse kolay gelsin

VazgectimSenden · 2 Kasım 2005

ya şuna ücreti ile yardım edecek kadar bilgili bir kişi bile mi yok yahu... oy oy!... :/

atay · 4 Kasım 2005

sizin amacınız bir email formu oluşturmak mı yoksa bu kodlar bir sistemin bir bölümü mü?