Asp - CDONTS.NewMail Mail Gönderiminde Hata

06-04-2016, 11:55:38

Selâmlar,

Web sayfamızdaki Teklif Formumuza ne olduysa 1 haftadır müşterilerin teklif talepleri mail olarak gelmiyor.
Doruk.Net bir sorun olmadığını belirtiyor ama mail gelmiyor.
Baya zor duruma düştük. Destek verebilirseniz memnun olurum.

Mail Gönderim kodları bu şekilde;

Dim MailObj, MailFrom, MailTo, MailSubject, MailBody, Importance
		
		On Error Resume Next
		
		MailFrom= "Internet Sitesi" & "<" & eposta & ">"
		MailTo="Makina ve Otomasyon" & "<info@osma.com.tr>"
		MailSubject=teklif_turu
		MailBody= Urun & "<br>" & iletisim & "<br><br><hr>" & Tracking 
		Err=0
		
		Set MailObj= CreateObject("CDONTS.NewMail")
		MailObj.BodyFormat=0
		MailObj.MailFormat=0
		MailObj.Send MailFrom, MailTo, MailSubject, MailBody
		Set MailObj = NOTHING

teklif_tc.asp dosyamızdaki tüm kodlar da bu şekildedir;

<% 
'##################################################################
Dim firma, isim, departman, tel, faks, eposta, KontrolTamam
Dim test, Urun, iletisim, Tracking

test=false


'------------- FORMDAN GELEN BILGILERI ALIYORUZ

teklif_turu=Request.Form("teklif_turu")
tc_model=Request.Form("tc_model")
tc_montaj=Request.Form("tc_montaj")
tc_motor=Request.Form("tc_motor")
Montaj_Plakasi=Request.Form("Montaj_Plakasi")
cap=Request.Form("cap")
kalinlik=Request.Form("kalinlik")
malzeme=Request.Form("malzeme")
malzeme_turu=Request.Form("malzeme_turu")
istasyon_sayisi=Request.Form("istasyon_sayisi")
agirlik=Request.Form("agirlik")
'-------------
firma=trim(Request.Form("firma"))
isim=trim(Request.Form("isim"))
departman=trim(Request.Form("departman"))
tel=trim(Request.Form("tel"))
faks=trim(Request.Form("faks"))
eposta=trim(Request.Form("eposta"))
mesaj=trim(Request.Form("mesaj"))
'----------------------------------------------

IpAdres=Request.ServerVariables ("remote_addr")
	
	
	Urun = Urun & "<table border=0 width=500 id=table1 style=border-collapse: collapse>"

	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Teklif Tr</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & teklif_turu & "</td>"
	Urun = Urun & "</tr>"

	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Model</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & tc_model & "</td>"
	Urun = Urun & "</tr>"

	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Dner Tabla montaj ekli</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & tc_montaj & "</td>"
	Urun = Urun & "</tr>"

	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Motorun konumu</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & tc_motor & "</td>"
	Urun = Urun & "</tr>"
	
	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Montaj plakas isteniyor mu?</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & Montaj_Plakasi & "</td>"
	Urun = Urun & "</tr>"
	
	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Disk ap</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & cap & " mm</td>"
	Urun = Urun & "</tr>"
	
	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Disk Kalnl</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & kalinlik & " mm</td>"
	Urun = Urun & "</tr>"
	
	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>Disk malzemesi</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & malzeme & malzeme_turu & "</td>"
	Urun = Urun & "</tr>"
	
	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>stasyon Says</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & istasyon_sayisi& "</td>"
	Urun = Urun & "</tr>"

	Urun = Urun & "<tr>"
	Urun = Urun & "<td width=218><b>stasyon bana den arlk</b></td>"
	Urun = Urun & "<td width=4><b>:</b></td>"
	Urun = Urun & "<td>" & agirlik & " kg</td>"
	Urun = Urun & "</tr>"

	Urun = Urun & "</table>"
	
	iletisim = iletisim & "		<table border=0 width=665 id=table3 cellspacing=1 style=border-collapse: collapse height=89>"
	iletisim = iletisim & "					<tr>"
	iletisim = iletisim & "						<td width=126 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font size=2 face=Arial color=#000080>Firma Ad</font></b></td>"
	iletisim = iletisim & "						<td width=7 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font size=2 face=Arial color=#000080>:</font></b></td>"
	iletisim = iletisim & "						<td width=254 bgcolor=#C0C0C0>"
	iletisim = iletisim & "						" & firma & "</td>"
	iletisim = iletisim & "						<td width=76 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font face=Arial size=2 color=#000080>Telefon</font></b></td>"
	iletisim = iletisim & "						<td width=8 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font face=Arial size=2 color=#000080>:</font></b></td>"
	iletisim = iletisim & "						<td width=175 bgcolor=#C0C0C0>"
	iletisim = iletisim & "						" & tel & "</td>"
	iletisim = iletisim & "					</tr>"
	iletisim = iletisim & "					<tr>"
	iletisim = iletisim & "						<td width=126 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font size=2 face=Arial color=#000080>İsim, Soyisim</font></b></td>"
	iletisim = iletisim & "						<td width=7 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font size=2 face=Arial color=#000080>:</font></b></td>"
	iletisim = iletisim & "						<td width=254 bgcolor=#C0C0C0>"
	iletisim = iletisim & "						" & isim & "</td>"
	iletisim = iletisim & "						<td width=76 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font face=Arial size=2 color=#000080>Faks</font></b></td>"
	iletisim = iletisim & "						<td width=8 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font face=Arial size=2 color=#000080>:</font></b></td>"
	iletisim = iletisim & "						<td width=175 bgcolor=#C0C0C0>"
	iletisim = iletisim & "						" & faks & "</td>"
	iletisim = iletisim & "					</tr>"
	iletisim = iletisim & "					<tr>"
	iletisim = iletisim & "						<td width=126 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font size=2 face=Arial color=#000080>Departman/Grev</font></b></td>"
	iletisim = iletisim & "						<td width=7 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font size=2 face=Arial color=#000080>:</font></b></td>"
	iletisim = iletisim & "						<td width=254 bgcolor=#C0C0C0>"
	iletisim = iletisim & "						" & departman & "</td>"
	iletisim = iletisim & "						<td width=76 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font face=Arial size=2 color=#000080>E-posta</font></b></td>"
	iletisim = iletisim & "						<td width=8 bgcolor=#C0C0C0><b>"
	iletisim = iletisim & "						<font face=Arial size=2 color=#000080>:</font></b></td>"
	iletisim = iletisim & "						<td width=175 bgcolor=#C0C0C0>"
	iletisim = iletisim & "						" & eposta & "</td>"
	iletisim = iletisim & "					</tr>"
	iletisim = iletisim & "				</table>"	
	iletisim = iletisim & "<br><b>Ek aklama:</b><br>" & mesaj	
	
	
	Tracking= Tracking & "<table border=0 width=290 id=table5 style=border-collapse: collapse>"
	Tracking= Tracking & "	<tr>"
	Tracking= Tracking & "		<td width=116><b><font size=2>Gnderen ip no</font></b></td>"
	Tracking= Tracking & "		<td width=9><b><font size=2>:</font></b></td>"
	Tracking= Tracking & "		<td><font size=2>" & IpAdres & "</font></td>"
	Tracking= Tracking & "	</tr>"
	Tracking= Tracking & "	<tr>"
	Tracking= Tracking & "		<td width=116><b><font size=2>Tarih</b></td>"
	Tracking= Tracking & "		<td width=9><b><font size=2>:</font></b></td>"
	Tracking= Tracking & "		<td><font size=2>" & date & "</font></td>"
	Tracking= Tracking & "	</tr>"
	Tracking= Tracking & "	<tr>"
	Tracking= Tracking & "		<td width=116><b><font size=2>Saat</b></td>"
	Tracking= Tracking & "		<td width=9><b><font size=2>:</font></b></td>"
	Tracking= Tracking & "		<td><font size=2>" & time & "</font></td>"
	Tracking= Tracking & "	</tr>"
	Tracking= Tracking & "</table>"
	
	
Response.write Urun & "<br>" & iletisim & "<br><br><hr>" & Tracking 

if not test then

	'KontrolTamam=trim(Request.Form("firma"))<>"" and instr(eposta,"@") <> 0 and instr(eposta,".") <> 0
	'KontrolTamam=KontrolTamam and trim(Request.Form("isim")) <> ""
	
	KontrolTamam=True
	
	IF KontrolTamam THEN

		Dim MailObj, MailFrom, MailTo, MailSubject, MailBody, Importance
		
		On Error Resume Next
		
		MailFrom= "Internet Sitesi" & "<" & eposta & ">"
		MailTo="Makina ve Otomasyon" & "<info@osma.com.tr>"
		MailSubject=teklif_turu
		MailBody= Urun & "<br>" & iletisim & "<br><br><hr>" & Tracking 
		Err=0
		
		Set MailObj= CreateObject("CDONTS.NewMail")
		MailObj.BodyFormat=0
		MailObj.MailFormat=0
		MailObj.Send MailFrom, MailTo, MailSubject, MailBody
		Set MailObj = NOTHING
		 
		If Err = 0 Then 
			Response.Write("<font face='verdana' size='2' color=red>" & _
					"Teklif/sipariiniz baaryla gnderilmitir. Teekkr ederiz." & _
					"</font>")						
		Else
			Response.Write "Hata olustu: " & Err.Description & "(" & err.number & ")" & chr(13)
			Response.Write "Ltfen daha sonra tekrar deneyiniz." & chr(13)		
		End If

	ELSE
		'Response.Write("<font face='verdana' size='2' color=red><a href='javascript:history.go(-1)'>" & "Doldurduunuz formda eksik veri var. Ltfen kontrol etmek iin geri dnnz." & "</font></a>")
	END IF
End if
'##################################################################
%>

Saygılar

Murat OSMA

13-04-2016, 10:59:12

#2

MuratOSMA

BU konuda destek rica ediyorum lütfen.
Zor durumdayız.

Saygılar
Murat OSMA
13-04-2016, 11:02:20

#3

myHalici

Doruk.net de daha önce çok sorun yaşayan gördüm.
Spam listesini kontrol etmelerini söyleyin, bir müşterimin hiçbir epostası gelmiyordu, arayıp işlem yaptırdı düzelmişti, 3 ay sonra bir daha tabi..
13-04-2016, 11:14:17

#4

ismailix

klasik asp mi
.net mi?
kodlara bakılacak olursa, klasik asp ama başlık .net

----
öncelikle bir tane asp bileşenleri kodu bulup sunucunuza gönderin. cdonts destekliyor mu diye.

destekliyorsa üzerinde konuşalım. alıntı yaparak
13-04-2016, 12:18:58

#5

MuratOSMA
myHalici adlı üyeden alıntı: mesajı görüntüle

Doruk.net de daha önce çok sorun yaşayan gördüm.
Spam listesini kontrol etmelerini söyleyin, bir müşterimin hiçbir epostası gelmiyordu, arayıp işlem yaptırdı düzelmişti, 3 ay sonra bir daha tabi..

Teşekkürler Sn. myHalici,

Şöyle bir durum var; iletişim sayfasındaki form üzerinden mailler geliyor ama teklif formu üzerinden gelmiyor. Sanırım spam ile alâkalı değil, başka bir sorun var gibi.

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 11:46:56 -->-> Daha önceki mesaj 11:35:12 --

ismailix adlı üyeden alıntı: mesajı görüntüle

klasik asp mi
.net mi?
kodlara bakılacak olursa, klasik asp ama başlık .net

----
öncelikle bir tane asp bileşenleri kodu bulup sunucunuza gönderin. cdonts destekliyor mu diye.

destekliyorsa üzerinde konuşalım. alıntı yaparak
Klasik Asp evet başlığı yanlış yazdım sanırım.

DorukNet CDONTS'u destekliyor görünüyor.
http://destek.doruk.net.tr/index.php...kullanabilirim

Bu arada, şimdi İletişim sayfasında mail gönderen asp dosyasına baktım da oradaki kodlar bu şekilde;
```
on error resume next
	
	Set objCDOSYSMail = Server.CreateObject("CDO.Message")
	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.muratosma.com"
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	objCDOSYSCon.Fields.Update
	Set objCDOSYSMail.Configuration = objCDOSYSCon
	objCDOSYSMail.From = StrEpostaKimden
	objCDOSYSMail.Subject = Strkonu
	objCDOSYSMail.HTMLBody = StrBody
	
	objCDOSYSMail.To = StrEpostaKime  		


	objCDOSYSMail.Send
```
Aynı şekilde bu kod bloğunu teklif formuna yazdığımda çalışır mı acaba? Sadece bu kısım yeterli olur mu?
--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 12:18:58 -->-> Daha önceki mesaj 11:46:56 --

Tamamdır arkadaşlar hallettim.

İlginiz için teşekkür ediyorum.

Saygılar
Murat OSMA