Gönderen: 03-Mayıs-2007 Saat 23:32 | Kayıtlı IP

Merhaba Arkadaşlar

jmail ile kullandığım ileitşim formun sunucu değişikliği ile kullanılamaz oldu.

CDOSYS destekliyor. Fakat ben yapamadım. Aşğıdaki kodların nasıl değiştirmem gerkiyor. Yardımcı olabilirseniz sevinirim.

Şimdiden teşekkrüler.

<%
sub sendNow()
 'on error resume next
 If Not EmailField(request("email")) then
  response.write "<font color='red'>Email adresiniz hatal&#305;!</font><hr noshade size=1><input type='button' value='Geri Dön' Onclick='history.back()'><br>"
  Exit Sub
 End If
 If request("konu") = "" or request("mesaj") = "" then
  response.write "<font color='red'>Konu veya Mesaj bo&#351; olamaz!</font><hr noshade size=1><input type='button' value='Geri Dön' Onclick='history.back()'><br>"
  Exit Sub
 End If
 If Session("mailkontrol") <> "" then
  response.write "<font color='red'>Ard arda mesaj yollayamazs&#305;n&#305;z!</font><hr noshade size=1>"
  Exit Sub
 End If
 gonderen = Turkcelestir(request("email"))
 OzelMesaj = "Sayin " & request("ad") & "," & vbCrlf & request("konu") & " konulu mesajiniz bize ulasti." & vbCrlf
 OzelMesaj = OzelMesaj & "Sizinle en yakin zamanda iletisim kuracagim." & vbCrlf & vbCrlf
 OzelMesaj = OzelMesaj & "___________________________________________________" & vbCrlf
 OzelMesaj = OzelMesaj & "[NOT] Bu email otomatik olarak gonderilmistir. Bu emaili yanitlamayiniz!"

 KisiMesaj = request("mesaj") & vbCrlf & vbCrlf & "___________________________________________________" & vbCrlf
 KisiMesaj = KisiMesaj & "Başlık" & vbCrlf
 KisiMesaj = KisiMesaj & "http://www.benimsitem.com/" & vbCrlf & vbCrlf
 Set jmail = Server.CreateObject("JMail.Message")
     jmail.AddRecipient "info@benimsitem.com","info"
     jmail.From = "info@benimsitem.com"
     jmail.Subject=request("ad")&" Konu:"&request("konu")
     JMail.Body = "Gönderenin Ad&#305;-Soyad&#305; :"&request("ad")&vbCrlf&"&#350;ehir : "&request("tel")&vbCrlf&"Gönderenin E-Maili : "&request("email")&vbCrlf&"Konu : "&request("konu")&vbCrlf&"Gönderenin Mesaj&#305; : "&kisimesaj
     Jmail.priority=3
     Jmail.Addheader "Orginating-IP", Request.ServerVariables("REMOTE_ADDR")
     jmail.Send("mail.benimsitem.com")
 Set jMail = Nothing
 Session("mailkontrol") = "1"
 Response.Write("<b>Mesaj&#305;n&#305;z Gönderildi. En k&#305;sa zamanda sizinle ba&#287;lant&#305;ya geçilecektir.</b>")
 on error goto 0
 end sub
%>

CDOSYS için örnek kod aşağıdadır:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserverpor t") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpconnectio ntimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "gonderenmailadresi"
objCDOSYSMail.To = "alicimailadresi"
objCDOSYSMail.Subject = "This is my subject for my test message"
objCDOSYSMail.HTMLBody = "This is the body "
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing