İletişim Formu (İlginç Bir Sorun)
-
The server rejected one or more recipient addresses. The server response was: 550 This mail server requires authentication (1) when attempting to send via this SMTP (submission) port.
İletişm formunda böyle bir sorun alıyorum.Şirkette Exchange kullanıyoruz.
Kodlar da burada :
<html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<%
On Error Resume Next
Dim SMTPSunucuAdresi
Dim SMTPKullaniciAdi
Dim SMTPSifre
Dim MKonf
Dim Alnlr
Dim CDOM
Dim strFirmaAdi
Dim strVdno
Dim strVdaire
Dim strCepno
Dim strIsno
Dim strEposta
Dim strTadres
Dim strUmodeli
Dim strKulcik
Dim StrStkr
Dim StrOtipi
Dim StrVgunu
Dim StrFiyat
Dim strAlici
SMTPSunucuAdresi = "mail.site.com"
SMTPKullaniciAdi = "gonderici@site.com"
SMTPSifre = "sifre"
strFirmaAdi = request.form("firma_isim")
strVdno = request.form("vd_no")
strVdaire = request.form("v_daire")
strCepno = request.form("cep_tel")
strIsno = request.form("is_tel")
strEposta = request.form("eposta")
strTadres = request.form("t_adres")
strUmodeli = request.form("u_model")
strKulcik = request.form("kc")
strStkr = request.form("st")
strOtipi = request.form("o_tipi")
strVgunu = request.form("v_gun")
strFiyat = request.Form("fiyat")
dim strHtml
strHtml = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//TR"">"
strHtml = strHtml & "<html>" & vbNewLine
strHtml = strHtml & "<head>" & vbNewLine
strHtml = strHtml & "<title>Html Mail</title>" & vbNewLine
strHtml = strHtml & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"">" & vbNewLine
strHtml = strHtml & "</head>" & vbNewLine
strHtml = strHtml & "<body leftmargin=""0"">" & vbNewLine
strHtml = strHtml & "<table align=""center"" border=""1"" cellspacing=""0"" cellpadding=""0"" width=""400"">" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td> " & vbNewLine
strHtml = strHtml & " <table align=""left"" border=""1"" cellspacing=""0"" cellpadding=""0"" width=""400"">" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>KOZLUSAN ISITMA SİSTEMLERİ SİPARİŞ FORMU</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Zaman :</b> " & Now() & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>IP Adres :</b> " & Request.ServerVariables("REMOTE_ADDR") & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Firma İsmi / İsim :</b> " & strFirmaAdi & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>V.D No / Tc No :</b> " & strVdno & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Vergi Dairesi :</b> " & strVdaire & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Cep Telefonu :</b> " & strCepno & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>İş veya Ev Tel :</b> " & strIsno & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>E-posta adresi :</b> " & strEposta & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Teslimat Adresi :</b> " & strTadres & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Ürün Modeli :</b> " & strUmodeli & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Kül Çıkarma :</b> " & strKulcik & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Stoker :</b> " & strStkr & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Ödeme Tipi :</b> " & strOtipi & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Vadeli ise Günü :</b> " & strVgunu & "</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><b>Fiyat :</b> " & strFiyat & "TL (TÜRK LİRASI)</td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & "</table>" & vbNewLine
strHtml = strHtml & "</body>" & vbNewLine
strHtml = strHtml & "</html>" & vbNewLine
dim blnHtmlMail
blnHtmlMail = True
Set MKonf = CreateObject("CDO.Configuration")
Sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Alnlr = MKonf.Fields
With Alnlr
.Item(Sch & "sendusing") = 2
.Item(Sch & "smtpserver") = SMTPSunucuAdresi
.Item(Sch & "smtpserverport") = 587
.Item(Sch & "sendusername") = SMTPKullaniciAdi
.Item(Sch & "sendpassword") = SMTPSifre
.Update
End With
Set CDOM = CreateObject("CDO.Message")
CDOM.Configuration = MKonf
CDOM.From = strAd & "<" & strEposta & ">"
CDOM.To = "site@site.com"
CDOM.Subject = " Sipariş Formu"
CDOM.HtmlBody = strHtml
CDOM.Send
Set CDOM = Nothing
Set Alnlr = Nothing
Set MKonf = Nothing
if err Then
Response.write err.description
Response.end
cdoSys = false
else
Response.write "."
End If
%>
</body>
<B><p align="center"><br><br><br><br><font face="Arial">Siparişiniz
yetkililerine iletildi..</font><BR></B><B><I><p align="center">Bizimle irtibata
geçtiğiniz için "Teşekkür ederiz."</p></I></B>
<p align="center"><BR>
<br><b><font face="Verdana" size="2"><<<a href=javascript:history.back();><font color="#000000">Geri
Dön</font></a></font></b><br></p>
<p align="center"> </p>
<p align="center"><b><a href="javascript:self.close()">
<font size="2" face="Arial">[ Pencereyi Kapat ]</font></A></b></p>
</html>
-
up.. çözmem lazım arkadaşlar :/
-
http://www.mailenable.com/kb/Content/Article.asp?ID=me020032
550 Requested action not taken: mailbox unavailable or not local
Error Description: This error means that the server or client has connected to the MailEnable SMTP service but has not entered a RCPT TO mail address or domain that exists on the server. The address is checked in the local configuration files in particular the address-map.tab file or database table.
Error Resolution: The resolution here really resolves around when you think this error is being returned when it should not be. If the address is thought to exist on the server then you need to check the SMTP activity logs for the transaction and then the debug to see if there are any error descriptions that better explain what happened when the address was sent to. Then you should check your configuration to ensure that the address does exist. It can also be a good idea to check the address-map.tab file in the MailEnable\Config directory or relevant database table for a line that contains the mailbox name in question.
Benim tahminim işe şu yönde
authentication (1) yani senin exchange serverında bir sıkıntı var,
Ya portunu değiştirdiniz yada kullanıcı adı ve şifre girerken karşı tarafa güvenmiyor.
Yukarıda yazdığım ise sadece bir google aramsı ingilizce varsa yada google translateden problemi çözebilirsin sanıyorum
-
smtp portu değişmişti yanlış hatırlamıyorsam iki yüzlü bişiler olmuştu
