Merhabalar Arkadaşlar

Kullandığım Kod

function mailgonder(konu, mail, mesaj)

		
		

		


On Error Resume Next 
Set smtp = Server.CreateObject("JMail.Message" ) 

For Each veri In Request.Form ' Formdan verileri alıyoruz... 
gmesaj = gmesaj & veri & ": " & Request.Form(veri) & "<br>" 
Next 

smtp.ContentType = "text/html" 
smtp.CharSet = "ISO-8859-9" 

smtp.AddRecipient "info@siteismi.com" ' alıcı e-mail
smtp.from = "info@siteisi.com" ' gönderen e-mail smtp.MailServerUserName'deki mail hesabı ile aynı olmalı.
smtp.fromname = "İsim" ' görünen isim

smtp.MailServerUserName = "info@siteismi.com" ' user.. 
smtp.MailServerPassWord = "2501502" ' userin şifresi 
smtp.Subject = "Mail Başlığı" 
smtp.body = gmesaj 
smtp.Send("webmail.siteismi.com" ) ' Mail server ip'sini değiştirmeyiniz. 

If err Then ' hata mesajını alalım. Mail gönderilmemişse.. 
Response.Write err.Description & "<br>Mesajınız Gönderilmedi.." 
Else ' Mail gönderilmiş ise 
Response.Write("<script>alert('İlginize Teşşekkür Ederiz..');location.href='mesaj.htm';</script>" ) 
End If 

Set smtp = Nothing ' bitirelim.. 		
		

		
		
	end function

Gönderildi Diyor Mail Ama Bakıyorum Ulaşmıyor..


Yardımlarınız İçin Teşekkür Ederim