Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

Asp.Net - CDONTS.NewMail Mail Gönderiminde Hata

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha fazla göster butonu
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
3 Misafir (1 Mobil) - 2 Masaüstü, 1 Mobil
5 sn
4
Cevap
0
Favori
462
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Selâmlar,

    Web sayfamızdaki Teklif Formumuza ne olduysa 1 haftadır müşterilerin teklif talepleri mail olarak gelmiyor.
    Doruk.Net bir sorun olmadığını belirtiyor ama mail gelmiyor.
    Baya zor duruma düştük. Destek verebilirseniz memnun olurum.


    Mail Gönderim kodları bu şekilde; 

    Dim MailObj, MailFrom, MailTo, MailSubject, MailBody, Importance  
                
              On Error Resume Next  
                
              MailFrom= "Internet Sitesi" & "<" & eposta & ">"  
              MailTo="Makina ve Otomasyon" & "<info@osma.com.tr>"  
              MailSubject=teklif_turu  
              MailBody= Urun & "<br>" & iletisim & "<br><br><hr>" & Tracking   
              Err=0  
                
              Set MailObj= CreateObject("CDONTS.NewMail")  
              MailObj.BodyFormat=0  
              MailObj.MailFormat=0  
              MailObj.Send MailFrom, MailTo, MailSubject, MailBody  
              Set MailObj = NOTHING


    teklif_tc.asp dosyamızdaki tüm kodlar da bu şekildedir; 

    <%   
      '##################################################################  
      Dim firma, isim, departman, tel, faks, eposta, KontrolTamam  
      Dim test, Urun, iletisim, Tracking  
       
      test=false  
       
       
      '------------- FORMDAN GELEN BILGILERI ALIYORUZ  
       
      teklif_turu=Request.Form("teklif_turu")  
      tc_model=Request.Form("tc_model")  
      tc_montaj=Request.Form("tc_montaj")  
      tc_motor=Request.Form("tc_motor")  
      Montaj_Plakasi=Request.Form("Montaj_Plakasi")  
      cap=Request.Form("cap")  
      kalinlik=Request.Form("kalinlik")  
      malzeme=Request.Form("malzeme")  
      malzeme_turu=Request.Form("malzeme_turu")  
      istasyon_sayisi=Request.Form("istasyon_sayisi")  
      agirlik=Request.Form("agirlik")  
      '-------------  
      firma=trim(Request.Form("firma"))  
      isim=trim(Request.Form("isim"))  
      departman=trim(Request.Form("departman"))  
      tel=trim(Request.Form("tel"))  
      faks=trim(Request.Form("faks"))  
      eposta=trim(Request.Form("eposta"))  
      mesaj=trim(Request.Form("mesaj"))  
      '----------------------------------------------  
       
      IpAdres=Request.ServerVariables ("remote_addr")  
            
            
          Urun = Urun & "<table border=0 width=500 id=table1 style=border-collapse: collapse>"  
       
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Teklif Tr</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & teklif_turu & "</td>"  
          Urun = Urun & "</tr>"  
       
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Model</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & tc_model & "</td>"  
          Urun = Urun & "</tr>"  
       
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Dner Tabla montaj ekli</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & tc_montaj & "</td>"  
          Urun = Urun & "</tr>"  
       
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Motorun konumu</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & tc_motor & "</td>"  
          Urun = Urun & "</tr>"  
            
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Montaj plakas isteniyor mu?</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & Montaj_Plakasi & "</td>"  
          Urun = Urun & "</tr>"  
            
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Disk ap</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & cap & " mm</td>"  
          Urun = Urun & "</tr>"  
            
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Disk Kalnl</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & kalinlik & " mm</td>"  
          Urun = Urun & "</tr>"  
            
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>Disk malzemesi</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & malzeme & malzeme_turu & "</td>"  
          Urun = Urun & "</tr>"  
            
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>stasyon Says</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & istasyon_sayisi& "</td>"  
          Urun = Urun & "</tr>"  
       
          Urun = Urun & "<tr>"  
          Urun = Urun & "<td width=218><b>stasyon bana den arlk</b></td>"  
          Urun = Urun & "<td width=4><b>:</b></td>"  
          Urun = Urun & "<td>" & agirlik & " kg</td>"  
          Urun = Urun & "</tr>"  
       
          Urun = Urun & "</table>"  
            
          iletisim = iletisim & "        <table border=0 width=665 id=table3 cellspacing=1 style=border-collapse: collapse height=89>"  
          iletisim = iletisim & "                    <tr>"  
          iletisim = iletisim & "                        <td width=126 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font size=2 face=Arial color=#000080>Firma Ad</font></b></td>"  
          iletisim = iletisim & "                        <td width=7 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font size=2 face=Arial color=#000080>:</font></b></td>"  
          iletisim = iletisim & "                        <td width=254 bgcolor=#C0C0C0>"  
          iletisim = iletisim & "                        " & firma & "</td>"  
          iletisim = iletisim & "                        <td width=76 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font face=Arial size=2 color=#000080>Telefon</font></b></td>"  
          iletisim = iletisim & "                        <td width=8 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font face=Arial size=2 color=#000080>:</font></b></td>"  
          iletisim = iletisim & "                        <td width=175 bgcolor=#C0C0C0>"  
          iletisim = iletisim & "                        " & tel & "</td>"  
          iletisim = iletisim & "                    </tr>"  
          iletisim = iletisim & "                    <tr>"  
          iletisim = iletisim & "                        <td width=126 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font size=2 face=Arial color=#000080>İsim, Soyisim</font></b></td>"  
          iletisim = iletisim & "                        <td width=7 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font size=2 face=Arial color=#000080>:</font></b></td>"  
          iletisim = iletisim & "                        <td width=254 bgcolor=#C0C0C0>"  
          iletisim = iletisim & "                        " & isim & "</td>"  
          iletisim = iletisim & "                        <td width=76 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font face=Arial size=2 color=#000080>Faks</font></b></td>"  
          iletisim = iletisim & "                        <td width=8 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font face=Arial size=2 color=#000080>:</font></b></td>"  
          iletisim = iletisim & "                        <td width=175 bgcolor=#C0C0C0>"  
          iletisim = iletisim & "                        " & faks & "</td>"  
          iletisim = iletisim & "                    </tr>"  
          iletisim = iletisim & "                    <tr>"  
          iletisim = iletisim & "                        <td width=126 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font size=2 face=Arial color=#000080>Departman/Grev</font></b></td>"  
          iletisim = iletisim & "                        <td width=7 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font size=2 face=Arial color=#000080>:</font></b></td>"  
          iletisim = iletisim & "                        <td width=254 bgcolor=#C0C0C0>"  
          iletisim = iletisim & "                        " & departman & "</td>"  
          iletisim = iletisim & "                        <td width=76 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font face=Arial size=2 color=#000080>E-posta</font></b></td>"  
          iletisim = iletisim & "                        <td width=8 bgcolor=#C0C0C0><b>"  
          iletisim = iletisim & "                        <font face=Arial size=2 color=#000080>:</font></b></td>"  
          iletisim = iletisim & "                        <td width=175 bgcolor=#C0C0C0>"  
          iletisim = iletisim & "                        " & eposta & "</td>"  
          iletisim = iletisim & "                    </tr>"  
          iletisim = iletisim & "                </table>"      
          iletisim = iletisim & "<br><b>Ek aklama:</b><br>" & mesaj      
            
            
          Tracking= Tracking & "<table border=0 width=290 id=table5 style=border-collapse: collapse>"  
          Tracking= Tracking & "    <tr>"  
          Tracking= Tracking & "        <td width=116><b><font size=2>Gnderen ip no</font></b></td>"  
          Tracking= Tracking & "        <td width=9><b><font size=2>:</font></b></td>"  
          Tracking= Tracking & "        <td><font size=2>" & IpAdres & "</font></td>"  
          Tracking= Tracking & "    </tr>"  
          Tracking= Tracking & "    <tr>"  
          Tracking= Tracking & "        <td width=116><b><font size=2>Tarih</b></td>"  
          Tracking= Tracking & "        <td width=9><b><font size=2>:</font></b></td>"  
          Tracking= Tracking & "        <td><font size=2>" & date & "</font></td>"  
          Tracking= Tracking & "    </tr>"  
          Tracking= Tracking & "    <tr>"  
          Tracking= Tracking & "        <td width=116><b><font size=2>Saat</b></td>"  
          Tracking= Tracking & "        <td width=9><b><font size=2>:</font></b></td>"  
          Tracking= Tracking & "        <td><font size=2>" & time & "</font></td>"  
          Tracking= Tracking & "    </tr>"  
          Tracking= Tracking & "</table>"  
            
            
      Response.write Urun & "<br>" & iletisim & "<br><br><hr>" & Tracking   
       
      if not test then  
       
          'KontrolTamam=trim(Request.Form("firma"))<>"" and instr(eposta,"@") <> 0 and instr(eposta,".") <> 0  
          'KontrolTamam=KontrolTamam and trim(Request.Form("isim")) <> ""  
            
          KontrolTamam=True  
            
          IF KontrolTamam THEN  
       
              Dim MailObj, MailFrom, MailTo, MailSubject, MailBody, Importance  
                
              On Error Resume Next  
                
              MailFrom= "Internet Sitesi" & "<" & eposta & ">"  
              MailTo="Makina ve Otomasyon" & "<info@osma.com.tr>"  
              MailSubject=teklif_turu  
              MailBody= Urun & "<br>" & iletisim & "<br><br><hr>" & Tracking   
              Err=0  
                
              Set MailObj= CreateObject("CDONTS.NewMail")  
              MailObj.BodyFormat=0  
              MailObj.MailFormat=0  
              MailObj.Send MailFrom, MailTo, MailSubject, MailBody  
              Set MailObj = NOTHING  
                 
              If Err = 0 Then   
                  Response.Write("<font face='verdana' size='2' color=red>" & _  
                          "Teklif/sipariiniz baaryla gnderilmitir. Teekkr ederiz." & _  
                          "</font>")                          
              Else  
                  Response.Write "Hata olustu: " & Err.Description & "(" & err.number & ")" & chr(13)  
                  Response.Write "Ltfen daha sonra tekrar deneyiniz." & chr(13)          
              End If  
       
          ELSE  
              'Response.Write("<font face='verdana' size='2' color=red><a href='javascript:history.go(-1)'>" & "Doldurduunuz formda eksik veri var. Ltfen kontrol etmek iin geri dnnz." & "</font></a>")  
          END IF  
      End if  
      '##################################################################  
      %>


    Saygılar

    Murat OSMA







  • Bu konu hâlâ yardıma ihtiyacım var.

    İlginizi rica ediyorum.


    Saygılar
    Murat OSMA
  • sigortacılık üzerinemi bu site ?
  • Zor durumdayız. Bu konuda desteğinizi rica ediyorum lütfen.

    Saygılar
    Murat OSMA



    < Bu mesaj bu kişi tarafından değiştirildi Murat OSMA -- 13 Nisan 2016; 11:05:51 >
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız