Ü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 ile mail atamıyorum

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
6
Cevap
0
Favori
2.057
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Selam. Asp ile bir formu mail göndermek istiyorum. Sunucuda ASPemail kullanılıyor. Aşağıdaki scripti çalıştırınca connection timed out hatası çıkıyor. Sebebi ne olabilir? Sunucu niobeweb de 

    		Set Mail = Server.CreateObject("Persits.MailSender") 
      		Mail.Host = "mail.sirket.com" 
      		Mail.Port = 25 
      		Mail.From = "abc@msn.com" 
      		Mail.FromName = "xxxl" 
      		Mail.AddAddress "ddd@gmail.com" 
      		Mail.Subject = "Sirket Site Mail Gönderme Denemesi" 
      		Mail.Body = "
    Bu bir deneme mailidir.
    " 
      		Mail.IsHTML = True 
      		On Error Resume Next 
      		Mail.Send 
      		If Err <> 0 Then 
      		  Response.Write "An error occurred: " & Err.Description 
      		End If








  • Smtp bilgilerini kontrol ederek tekrar denemenizde fayda var ki ben smtp bağlantısı için parolanızı yazmanız gereken satırı kodlarınızda göremedim.
    Ek olarak : 25.port kapatıldı yerine 587 aktif şu anda servis sağlayıcınız ile görüşerek daha detaylı bilgi alabilirsiniz.

    Aşağıda örnek olarak ASPmail ile gönderimi veriyorum değişkenleri kendinize göre düzenleyerek kullanabilirsiniz.     

     
       
      Set MMail = Server.CreateObject("Persits.MailSender")  
      MMail.Host = "mail.firma.com" 
      MMail.Username = "mail@firma.com" 
      MMail.Password = "parola" 
      MMail.From = "mail@firma.com" 
      MMail.FromName = "Firma" 
      MMail.Port = "587" 
       
      MMail.AddAddress "alici@alici.com" 
      MMail.Subject = "Sirket Site Mail Gönderme Denemesi" 
      MMail.IsHTML = true 
      MMail.Body="<p>bu bir deneme mailidir.</p>" 
       
      On Error Resume Next  
      MMail.Send  
      If Err <> 0 Then  
      	Response.Write "Hata Var : " & Err.Description 
      Else  
      	Response.Write "Gönderim Başarılı!"  
      End If 
      Set MMail = Nothing




  • Merhaba;

    Aşağıdaki bilgilerini kendi sisteminize göre değiştirirseniz ve sunucunda Persist Asp Mail bileşeni var ise mail gönderebilirsiniz.

    Set Mail2 = Server.CreateObject("Persits.MailSender")
    Mail2.Charset = "ISO-8859-9"
    Mail2.Host = "mail.domainc.om"
    Mail2.Username = "info@domain.com"
    Mail2.Password = "123456"
    Mail2.From = "info@domain.com"
    Mail2.FromName = "KONU BAŞLIĞI"
    Mail2.AddAddress info@atilacakmail.com
    Mail2.Subject = "KONU BAŞLIĞI"
    Mail2.Body = "<HTML><BODY>Mesajınız</BODY></HTML>"
    Mail2.IsHTML = true
    Mail2.Send
    Set Mail2 = Nothing

  • Persits komponentini serverıma nasıl kurarım bedava?


    Kendi sitesi para istiyor, zaten asp ile kod yazan kalmadı piyasada ama bu komponenti temin edip dll dosyasını kurmak istiyorum.

    Yardımcı olmak isteyen var mı?

     
  • Kod 
    Yığını:
    <%
Randomize()
strGuvenlikKod = Int(Rnd()*123)
Session("GuvenlikKod") = strGuvenlikKod

ad = request.Form("ad")
soyad = request.Form("soyad")
tel = request.Form("tel")
email = request.Form("email")
gorusler = request.Form("gorusler")
%>
<form action="iletisim.asp" method="POST">
<input name="ad" type="text" placeholder="ADINIZ" value="<%=ad%>" size="30">
<input name="soyad" type="text" placeholder="SOYADINIZ" value="<%=soyad%>" size="30">
<input name="email" type="email" placeholder="EMAIL ADRESINIZ" value="<%=email%>" size="30">
<input name="tel" type="text"  placeholder="CEP TELEFONUZ" value="<%=tel%>" size="30">
<textarea name="gorusler" cols="30" rows="5" placeholder="MESAJINIZ"><%=gorusler%></textarea>
<input name="kod" type="text" class="dzencf-text" id="kod" placeholder="Bu sayiyi girin: <%=Session("GuvenlikKod")%>" size="30">
<input name="SessionRondomGelen" type="hidden" id="SessionRondomGelen" value="<%=Session("GuvenlikKod")%>" />
<input type="submit" value="Mesaji Gönder" class="dzencf-submit" name="send_contact_form">
</form>

    ---- Yukardaki form sayfası ve aşağıdaki gönderme kodları güvenlik kodu tanımlaması da var. spam önlemek için. formu doldurduğunda kodu yanlış bile girse yazdıkları boşa gitmez. tekrar kodu ekleyerek gönderebilir.

    Kod 
    Yığını:
    <%
strRondom = Request.Form("SessionRondomGelen")
strkod = request.Form("kod")
strFullDate = Date() & " - " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " / " & WeekdayName(Weekday(Date))

If request.Form("ad") = "" Or request.Form("soyad") = "" Or request.Form("email") = "" Or request.Form("gorusler") = "" Then
mesajGoster("Lutfen Zorunlu Alanlari Doldurunuz !")
ElseIf strRondom <> strkod Then
mesajGoster("Lutfen Güvenlik Kodunu Giriniz !")

Else


mesaj = "<html><body style=font-family: tahoma; font-size: 10pt><p><b>Isim:&nbsp;&nbsp;</b>" & request.form("ad") & " " &request.Form("soyad") &"<br><b>Telefon:&nbsp;&nbsp;</b>" & request.form("tel") & "<br><b>E-Mail:&nbsp;</b>" & request.form("email") & "<br><b>Gönderi Tarihi:</b>"&strFullDate&"<br><b>Mesaj :&nbsp;</b>" & request.form("gorusler") & "</p><hr><p><b>Dikkat:</b> Gelen bu form gönderilerine cevap vermek için yanitla dedigimizde, giden kisi bölümüne kisinin yazdigi email adresini kopyalamamiz gerekmektedir. <br>E-Mail adresi yazmamis kisilerin gönderilerine yanit veremezsiniz. </p></body></html>"


Set Mail = Server.CreateObject("JMail.Message")
Mail.MailServerUserName = "webmaster@domain.com"
Mail.MailServerPassWord = "yukardakinin şifresi"
Mail.Charset = "ISO-8859-9"
Mail.Logging = True
Mail.From = "webmaster@domain.com"
Mail.FromName = "Gönderen İsim Başlığı"
Mail.AddRecipient "webmaster@domain.com"
Mail.Subject = "Konu bölümüne yazılacak mesaj"
Mail.HTMLBody = mesaj 
Mail.Send("mail.domian.com")
Set Mail = Nothing


with response
	.write "<script language=javascript>"
	.write "alert('Iletisim Formunuz Gonderilmistir.\n\En Kisa Surede Size Geri Donulecektir.\n\Tesekkur Ederiz.');"
	.write "window.location='iletisim.asp';"
	.write "</script>"
end with


End if
%>




  • velihamza kullanıcısına yanıt

    JMail komponentini ilk kez öğrenmiş oldum sayenizde. İlk fırsatta deneyeceğim. JMail dll dosyasını bulabilirsem inşallah uygulayacağım; inşallah ücretsizdir ve güvenli şekilde çalışıyordur.
    < Bu ileti mobil sürüm kullanılarak atıldı >
    • 
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