CDO Mail Gönderme Sorunu

28-02-2010, 08:09:50

Arkadaşlar 2 gündür uğraşıyorum biyerlerde hata var ama çözemedim deli olucam kodlara bir bakarsanız çok sevinirim.

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
	
	StrName = Request.Form("txtAdSoyad")
	StrPhone = Request.Form("txtTelefon")
	StrEmail = Request.Form("txtEmail")
	StrGSM = Request.Form("txtGSM")
	StrMessage = Request.Form("txtAciklama")
	Set cdoConfig = CreateObject("CDO.Configuration" )   
	
	With cdoConfig.Fields   
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2   
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "mail.tufekciogullari.com"     
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1   
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "user@tufekciogullari.com" 
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "sifree"     
		.Update   
	End With   
	
	Set cdoMessage = CreateObject("CDO.Message" )   
	
	With cdoMessage   
		Set .Configuration = cdoConfig   
		.From = "user@tufekciogullari.com"     
		.To = authRs("Email")
		.Bcc = "user@tufekciogullari.com" 
		.Subject = "Tüfekçioğulları Emlak Kurumsal Web Sitesi - İlan Bilgi Formu"     
		.htmlbody = "<html><body>"&_
					"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"" />"&_
					"Web sitenizin emlak ilanı bilgi edinme formundan gelen bilgiler<br /><hr /><br />"&_
					"<strong>Adı Soyadı : </strong>"&StrName&_
					"<br /><br /><strong>Telefon :</strong>"&StrPhone&_
					"<br /><br /><strong>GSM :</strong>"&StrGSM&_
					"<br /><br /><strong>E-Posta : </strong>"&StrEmail&_
					"<br /><br /><strong>Açıklama : </strong>"&StrMessage&_
					"<br /><br /><strong>İlan Açıklama : </strong>"& server.urlencode(pagetitle) &_

					"</html></body>"
		
		.Send   
	End With   
	
	Set cdoMessage = Nothing   
	Set cdoConfig = Nothing
	Sonuc = "Sayın "& StrName &" ilginize Teşekkür Ederiz.En Kısa Zamanda sizinle iletişim kurulacaktır."
End If
%>
<form onsubmit="return formSubmit();" id="IlanBilgiFormu" name="IlanBilgiFormu" method="post" action="">

<div id="StrMessage" style="color:#83b73c;font-weight:bold;float:left;clear:both;font:11px Arial"><%=Sonuc%></div>
<table style="width:100%;">
	<tr>
		<td class="txtMN">Ad Soyad</td>
		<td><input type="text" name="txtAdSoyad" id="txtAdSoyad" style="width:200px" /></td>
	</tr>
	<tr>
		<td class="txtMN">Telefon</td>
		<td><input type="text" name="txtTelefon" id="txtTelefon" style="width:200px" /> 
		 </td>
	</tr>
	<tr>
		<td class="txtMN">GSM</td>
		<td><input type="text" name="txtGSM" id="txtGSM" style="width:200px"/>
	    </td>
	</tr>
	<tr>
		<td class="txtMN">E-Posta</td>
		<td><input type="text" name="txtEmail" id="txtEmail" style="width:200px" /></td>
	</tr>
    	<tr>
		<td class="txtMN">İlan No</td>
		<td><input type="text" name="ilanno" id="ilanno" value="<%=rs("IlanKodu")%>" disabled="disabled" style="width:200px" /></td>
	</tr>

	<tr>
		<td class="txtMN" valign="top">Açıklama</td>
		<td><textarea name="txtAciklama" id="txtAciklama" style="width:100%;height:120px" ></textarea></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><input type="Submit" name="btnSubmit" id="btnSubmit" value="Gönder" /></td>
	</tr>
</table>	
</form>

		</td>
	</tr>
</table>
<%
	Set authRs = Nothing
%>

01-03-2010, 13:21:23

#2

ugur_ben

system32' nin içine cdosys.dll i koydun mu?
02-03-2010, 19:24:29

#3

unarmedsoldier

evet koydum sitenin başka sayfasında persist çalışıyor bu sayfada cdosys çalışmıyor bunun yerine persistde kullanabilirim fakat netten bulduğum persist mail örneklerini çalıştıramadım örnek varsa alabilirim.