Asp [Acil Yardım]

23/Ara/08 14:55

Kısayol

Şikayet

Özel Mesaj

Ciminli

Kayıt Tarihi: 02/Aralık/2007

Asp ile mail gondermeye çalışıyorum. Fakat "alıcı mail adresi hatalı" mesajını veriyor adresler doğru olduğu halde. Kodu aşağıya yazıyorum bu konuda yardımcı olabilirseniz sevinirim.
Şimdiden teşekkürler.
(Serverde IIS ve SMTP kurulu. (Mailler depolanmayacak, sadece alıcıya iletilecek))

<html>
<head>
<title>Mail Gönder (MailSender) v1.0 - Translated by TvisKy</title>
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-9">
<meta http-equiv="content-type" content="text/html;charset=windows-1254">
<style type="text/css">
a:link { color: #666666; text-decoration: underline; }
a:visited { color: #666666; text-decoration: underline; }
a:active { color: #666666; text-decoration: underline; }
a:hover { color: #666666; text-decoration: underline; }

.text { font-family: Georgia, Times New Roman, serif; font-size: 13px; color: #777777; }
.fmtext { font-family: Tahoma, Arial, Helvetica, sans-serif; font-size: 12px; color: #777777; }

.button {
background-color:#F9CC34;
border: 1px solid #E3A035;
background-image: url(images/bu_orange.gif);
font-family: Tahoma, Arial, sans-serif;
font-size: 12px; font-weight: bold;
color: #717171;
height: 25px;
cursor: hand;
}

input {
padding:3px;
font-family: Tahoma, Arial, Helvetica, sans-serif;
font-size: 12px;
color: #777777;
border: 1px solid #F0D8A9;
background-image: url(images/input_bg.gif);
background-repeat: repeat-x;
height:22px;
}

textarea {
padding:3px;
font-family: Tahoma, Arial, Helvetica, sans-serif;
font-size: 12px;
color: #777777;
border: 1px solid #F0D8A9;
background-image: url(images/input_bg.gif);
background-repeat: repeat-x;
background-position: top left;
background-color: #FBFBD1;
}

select {
font-family: Tahoma, Arial, Helvetica, sans-serif;
font-size: 12px;
color: #777777;
border: 1px solid #F0D8A9;
background-color: #FBFBD1;
}
</style>
<script language="Javascript1.2">

</script>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="5" class="text">
<tr>
    <td>
    </td>
</tr>
<tr>
    <td><%
If Request.Querystring("send") = "True" Then
fmTo  = Trim(Request.Form("fmTo"))
fmFrom  = Trim(Request.Form("fmFrom"))
fmFromname = Trim(Request.Form("fmFromName"))
fmCC  = Trim(Request.Form("fmCC"))
fmSubject = Trim(Request.Form("fmSubject"))
fmBody  = Trim(Request.Form("fmBody"))
fmAttach = Request.Form("fmAttach")

Call SendMail(fmTo,fmFrom,fmFromName,fmCC,fmSubject,fmBody,fmAttach)

Else
Response.Write("Öneri vermek için lütfen formdaki alanları doldurunuz.")
End If
%></td>
</tr>
<tr>
    <td><hr></td>
</tr>
<tr>
    <td bgcolor="#EEEEEE">
      <table width="100%" border="0" cellspacing="5" cellpadding="0" class="fmtext">
        <col align="right" width="40%"><col align="left" width="60%">
  <form name="sendmail" method="post" action="mail.asp?send=True">
        <tr>
          <td>Alıcı Email</td>
          <td><input type="text" name="fmTo" value="<%=fmTo%>" size="43"></td>
        </tr>
        <tr>
          <td>Gönderen'in Email</td>
          <td><input type="text" name="fmFrom" value="<%=fmFrom%>" size="43"></td>
        </tr>
        <tr>
          <td>Gönderen'in İsim</td>
          <td><input type="text" name="fmFromName" value="<%=fmFromName%>" size="43"></td>
        </tr>
        <tr>
          <td>CC</td>
          <td><input type="text" name="fmCC" value="<%=fmCC%>" size="43"></td>
        </tr>
        <tr>
          <td>Konu</td>
          <td><input type="text" name="fmSubject" value="<%=fmSubject%>" size="43"></td>
        </tr>
        <tr>
          <td colspan="2" align="center">
   <textarea name="fmBody" style="width:100%; height:200px;">
   <%=fmBody%>
   </textarea><br>
   <script language="javascript1.2">
   var config = new Object();    // create new config object

   config.width = "100%";
   config.height = "200px";
   config.bodyStyle = 'background-color: white; font-family: "Verdana"; font-size: x-small;';
   config.debug = 0;

   config.toolbar = [
    ['fontname','fontsize'],
    ['separator','forecolor','backcolor','separator','popupeditor'],
    ['linebreak'],
    ['bold','italic','underline','separator'],
    ['justifyleft','justifycenter','justifyright','separator'],
    ['OrderedList','UnOrderedList','separator','Outdent','Indent','separator'],
    ['strikethrough','subscript','superscript','separator'],
    ['HorizontalRule','Createlink','htmlmode'],
   ];

   config.fontnames = {
    "Arial":           "arial, helvetica, sans-serif",
    "Courier New":     "courier new, courier, mono",
    "Georgia":         "Georgia, Times New Roman, Times, Serif",
    "Tahoma":          "Tahoma, Arial, Helvetica, sans-serif",
    "Times New Roman": "times new roman, times, serif",
    "Verdana":         "Verdana, Arial, Helvetica, sans-serif",
    "impact":          "impact",
    "WingDings":       "WingDings"
   };
   config.fontsizes = {
    "8 pt": "1",
    "10 pt": "2",
    "12 pt": "3",
    "14 pt": "4",
    "18 pt": "5",
    "24 pt": "6",
    "36 pt": "7"
     };

   editor_generate('fmBody',config);
   </script>    </td>
        </tr>
        <tr>
          <td>Dosya Ekle</td>
          <td><input type="file" name="fmAttach" value="<%=fmAttach%>" size="43"></td>
        </tr>
        <tr>
          <td><input type="reset" name="fmReset" value="Temizle" class="button"></td>
          <td><input type="submit" name="fmSubmit" value="Gönder »" class="button"></td>
        </tr>
      </form>
   </table>
    </td>
</tr>
<tr>
    <td> </td>
</tr>
</table>
</body>
</html>
<%
'Mail göndermeye başlayalım
Sub SendMail(smTo,smFrom,smFromName,smCC,smSubject,smBody,smAttach)
On Error Resume Next 'Scriptte hata varsa

strErr = "" 'Hatalara bakalım

If EmailCheck(smTo) = False Then
strErr =smTo& strErr & "<li>Alıcı Email adresi hatalı!</li>"
End If
If EmailCheck(smFrom) = False Then
strErr = strErr & "<li>Gönderen'in Email adresi hatalı!</li>"
End If
If Len(smFromName) > 0 Then
smFromage = smFromName & "<" & smFrom & ">"
End If

If strErr = "" Then 'Formda hata yoksa

Set iMsg  = CreateObject("CDO.Message")
With iMsg
.To   = smTo
.From  = smFromage
If Len(smCC) > 0 Then
.CC   = smCC
End If
.Subject = smSubject
.HTMLBody = smBody
If Len(smAttach) > 0 Then
Set iBp = .AddAttachment(smAttach)
End If
.Send
End With

'TemizLendi
Set iMsg = Nothing
If Len(smAttach) > 0 Then
Set iBp = Nothing
End If

If Err > 0 Then 'Eğer bir problem varsa
Response.Write("<b>Mail Gönderilemedi!</b> Hata Kodu:")
Response.Write("<ul><li>" & Err.Description & "</li><ul>")
Else 'Başarılar! Mail Gönderildi
Response.Write("<b>Mail Gönderildi!</b><br>Kime: <i>" & smTo & "</i> Gün: " & FormatDateTime(DateTime,vbLongDate) & " Saat: " & FormatDateTime(DateTime,vbLongTime))
smTo = ""
smFrom = ""
smFromName = ""
smCC = ""
smSubject = ""
smBody = ""
smAttach = ""
End If

Else 'Eğer gönderilemediyse neden gönderilemediğini yazalım ki gönderen hatasını düzeltsin
Response.Write("<b>Mail Gönderilemedi!</b> Hata Kodu:")
Response.Write("<ul>" & strErr & "</ul")
End If
End Sub
%>

* Südün Bozuksa Senin Üc Gram Uckura Satilmissa Ruhun ! Yanasma * Gök Girsin Kizil Ciksin !!!

Alıntı yap

04/Oca/09 18:33

Kısayol

Şikayet

Özel Mesaj

Ciminli

Kayıt Tarihi: 02/Aralık/2007

arkadaslar kac zamandir bekliyorum bu konuda yardim edebilecek bir arkadas varmi?

* Südün Bozuksa Senin Üc Gram Uckura Satilmissa Ruhun ! Yanasma * Gök Girsin Kizil Ciksin !!!

Alıntı yap

04/Oca/09 18:37

Kısayol

Şikayet

Özel Mesaj

Ciminli

Kayıt Tarihi: 02/Aralık/2007

Sirket ici intranet te mail gönderimi nasil yapilir?

Sistem : windows server 2003

IIS kurulu

SMTP Kurulu

Cdont dlll yüklü

* Südün Bozuksa Senin Üc Gram Uckura Satilmissa Ruhun ! Yanasma * Gök Girsin Kizil Ciksin !!!

Alıntı yap

04/Oca/09 19:07

Kısayol

Şikayet

Özel Mesaj

enes

Kayıt Tarihi: 11/Nisan/2007

valla asp den anlamam ama konuyu uplayayım belki bilen biri vardır :|

Hanimabi Sen Neler Dedin Oyle :( http://www.youtube.com/watch?v=YRbUA9UuUqk

Alıntı yap

05/Oca/09 02:05

Kısayol

Şikayet

Özel Mesaj

LuCiFeR

Kayıt Tarihi: 25/Eylül/2005

Alttakılere gore bı form hazırlayp bunla bı gondermeyı dene bakalım.

<%

'-- Dimension and Create Objects --

Dim objMessage, objConfig

Set objMessage = Server.CreateObject("CDO.Message")

Set objConfig = Server.CreateObject("CDO.configuration")

'-- Create configuration --

With objConfig.Fields

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

.Update()

End With

'-- Send Email –

MyBody = Request.Form("D1")

With objMessage

.configuration = objConfig

.From = "email@siten.com"

.To = "email@siten.com"

.Subject = "Web İletişim Formu / "

.HTMLBody = MyBody

.Send()

End With

Set objMessage = Nothing

Set objConfig = Nothing

%>

Alıntı yap

05/Oca/09 03:35

Kısayol

Şikayet

Özel Mesaj

necroshine

Kayıt Tarihi: 03/Mart/2003

mail.asp icerigini versen daha mantikli olur.

Cunku bu formda hatanin sebebini anlayamazsin

Alıntı yap

05/Oca/09 04:09

Kısayol

Şikayet

Özel Mesaj

renegadealien

Kayıt Tarihi: 23/Mart/2003

Yukarıda

Hocam, hatayı görmek için orada bi yerde on error resume next var onu iptal etmen lazım...

kaldırdığında

EmailCheck haatsı veriyoronu iptal ettiğinde send using hatası veriyor, aspnin fonksiyonları ve mailin konfigurasyonaları yok ortada, ya başka bir sayfası daha olması lazım bunun, yada başka bir sayfadan include edilerek çalışıyordu yoksa bu tek başına calışamaz...

Sanıyorum kendi atasözü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 : Söyleyeni belli olduğu için(Ben) atasözü değil, özlüsöz oluyormuş, dolayısı ile kendi özlüsözümü yapmış oldum :)

Alıntı yap

05/Oca/09 07:42

Kısayol

Şikayet

Özel Mesaj

necroshine

Kayıt Tarihi: 03/Mart/2003

renegadealien bunu yazdı:
-----------------------------

Yukarıda

Hocam, hatayı görmek için orada bi yerde on error resume next var onu iptal etmen lazım...

kaldırdığında

EmailCheck haatsı veriyoronu iptal ettiğinde send using hatası veriyor, aspnin fonksiyonları ve mailin konfigurasyonaları yok ortada, ya başka bir sayfası daha olması lazım bunun, yada başka bir sayfadan include edilerek çalışıyordu yoksa bu tek başına calışamaz...

-----------------------------

Renegadealien ?

yoksa

bundan sonrasi mi mai.asp ?

<%
'Mail göndermeye başlayalım
Sub SendMail(smTo,smFrom,smFromName,smCC,smSubject,smBody,smAttach)
On Error Resume Next 'Scriptte hata varsa

ki oyleyse

strErr = "" 'Hatalara bakalım

If EmailCheck(smTo) = False Then
strErr =smTo& strErr & "<li>Alıcı Email adresi hatalı!</li>"
End If
If EmailCheck(smFrom) = False Then
strErr = strErr & "<li>Gönderen'in Email adresi hatalı!</li>"
End If
If Len(smFromName) > 0 Then
smFromage = smFromName & "<" & smFrom & ">"
End If

yoksa hatalari cdont bileseni kendisimi kontrol ediyor ?

Alıntı yap

05/Oca/09 07:56

Kısayol

Şikayet

Özel Mesaj

renegadealien

Kayıt Tarihi: 23/Mart/2003

cdosysde öle bi fonksiyon olduğunu sanmıyorum...

eğer öyle ise ve onu desteklemiyorsa, direk orayı kaldırıpda deneyebilir...

If strErr = "" Then 'Formda hata yoksa satırını

If strErr <> "" Then 'Formda hata yoksa

yapıp bi denesin, şu anda makinada bileşen yüklü deil, emin değilim...

Sanıyorum kendi atasözü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 : Söyleyeni belli olduğu için(Ben) atasözü değil, özlüsöz oluyormuş, dolayısı ile kendi özlüsözümü yapmış oldum :)

Alıntı yap

05/Oca/09 13:31

Kısayol

Şikayet

Özel Mesaj

Ciminli

Kayıt Tarihi: 02/Aralık/2007

mail.asp kodu ve hata mesajı aşağıdaki gibidir.

<%

DIM strName, strUserEmail, strReason, strComments

'request the required information from the form and place them in the variables
strName = request.form("txtName")
strUserEmail =request.form("txtEmail")
strReason =request.form("lstReason")
strComments =request.form("txfComments")

DIM objNewMail
'Define the email type
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
'Enter a title for the form
objNewMail.From = "Your Title"
'Enter your email address, this is the address which will appear in the form componet of the email
objNewMail.To= "meraldemirbas@hotmail.com"
'objNewMail.ReplyTo = "strUserEmail"
'Enter your domain name, ie: neonred.co.uk
'objNewMail.RemoteHost = "mail.sifatip.com.tr"
'Enter your name and email address
'objNewMail.AddRecipient "Your Name", "you@yourdomain.com"
'Enter a subject for the email message
objNewMail.Subject = "Enter a subject here"
'Build the body of the email using the data stired in the variable
objNewMail.Body = "This is an email generated by your online form."& vbCrLf & vbCrLf & _
"Name: " & strName & vbCrLf & _
"Email Address: " & strUserEmail & vbCrLf & _
"Reason For Contacting: " & strReason & vbCrLf & _
"Comments: " & strComments
objNewMail.Send

IF objNewMail.body then
'If the message was sent correctly tell the user THEN
Response.Write strName & ",<br>"
Response.Write "Mailiniz gonderildi..."
ELSE
'If the message wasnt sent correctly tell the user
Response.Write "An error occure while trying to send your email: " & objNewMail.Response
END IF
%>

HATA MESAJI

Microsoft VBScript çaly?ma hatasy hata '800a01b6'

Nesne bu özellik veya yöntemi desteklemiyor: 'Body'

/oneri/mail.asp, satýr 34

* Südün Bozuksa Senin Üc Gram Uckura Satilmissa Ruhun ! Yanasma * Gök Girsin Kizil Ciksin !!!

Alıntı yap

05/Oca/09 15:38

Kısayol

Şikayet

Özel Mesaj

necroshine

Kayıt Tarihi: 03/Mart/2003

Haci tirnak isaretlerini kaldir oraya ilgili bilgileri , smtp ni felan filan yaz.

'Enter your domain name, ie: neonred.co.uk
'objNewMail.RemoteHost = "mail.sifatip.com.tr"

Alıntı yap