Dim SMTPSunucuAdresi Dim SMTPKullaniciAdi Dim SMTPSifre Dim MKonf Dim Alnlr Dim CDOM Dim strAd Dim strTel Dim strEmail Dim strKonu Dim strAdres Dim strMesaj Dim strEEmail Dim strAlici oha bu ne. taş devri asp'cisi. sil şunları artık nemi yok gereksiz. spama düşmesi senin suçun değil sunucu yada bileşenden farklı yolla yollamayı dene

domaininin spf recordu vardı? mx serverlarında bir sıkıntı varmı? reversednsler düzgünmü? sditenin bulunduğu server ipsi mx server ipsi domain ipsi spam listelerindemi? bunlara bakmak lazım sorun kodda değil geri kalan kısımda hocam... Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)

mrb arkadaslar. aspde CDO. Message ile iletişim formu gonderiyorum ama bütün formlar spama düşüyor. kodlarım aşağıda inceleyip düzeltmem gereken yada bunun haricinde yapmam gereken herhangi birşey varsa sylerseniz sevinirim. Kodlar : <% On Error Resume Next Dim SMTPSunucuAdresi Dim SMTPKullaniciAdi Dim SMTPSifre Dim MKonf Dim Alnlr Dim CDOM Dim strAd Dim strTel Dim strEmail Dim strKonu Dim strAdres Dim strMesaj Dim strEEmail Dim strAlici strAlici = "info@siteadresi.com" SMTPSunucuAdresi = "mail. siteadresi.com" SMTPKullaniciAdi = "iletisimformu@siteadresi.com" SMTPSifre = "123456" strAd = request. form strTel = request. form strEmail = request. form strKonu = request. form strAdres = request. form strMesaj = request. form dim strHtml 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>Konu :</b> " & strKonu & "</td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><b>Adınız :</b> " & strAd & "</td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><b>E-Mail :</b> " & strEmail & "</td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><b>Telefon :</b> " & strTel & "</td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><b>Adres :</b> " & strAdres & "</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 & "</td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><b>Mesaj :</b> " & strMesaj & "</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 Sch = "http://schemas.microsoft.com/cdo/configuration/" Set Alnlr = MKonf. Fields With Alnlr. Item = 2. Item = SMTPSunucuAdresi. Item = 587. Item = SMTPKullaniciAdi. Item = SMTPSifre. Update End With Set CDOM = CreateObject CDOM. Configuration = MKonf CDOM. From = strAd & "<" & strEmail & ">" CDOM. To = strAlici CDOM. Subject = "İletişim 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 %>