Tekil Mesaj gösterimi - Asp - CDONTS.NewMail Mail Gönderiminde Hata

Konu 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