Asp ile mail atamıyorum

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET Asp ile mail atamıyorum

Bu konudaki kullanıcılar: 1 misafir

5
Cevap 2114
Tıklama 0
Öne Çıkarma

1. sayfa

Asp ile mail atamıyorum

Cevap Yaz

_MOD_

14 yıl

Binbaşı

Konu Sahibi

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 = "<p>Bu bir deneme mailidir.</p>" 
  		Mail.IsHTML = True 
  		On Error Resume Next 
  		Mail.Send 
  		If Err <> 0 Then 
  		  Response.Write "An error occurred: " & Err.Description 
  		End If

download

14 yıl

Teğmen

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

Bu mesaja 1 cevap geldi.

bysimsek

14 yıl

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

celil.mayaoglu

4 yıl

Teğmen

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ı?

velihamza

4 yıl

<%
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.

<%
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") &"
<b>Telefon:&nbsp;&nbsp;</b>" & request.form("tel") & "
<b>E-Mail:&nbsp;</b>" & request.form("email") & "
<b>Gönderi Tarihi:</b>"&strFullDate&"
<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. 
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
%>

Bu mesaja 1 cevap geldi.

celil.mayaoglu

4 yıl

Teğmen

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ı >

Bu mesajda bahsedilenler: @velihamza

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET Asp ile mail atamıyorum