Arama butonu
Bu konudaki kullanıcılar: 2 misafir
5
Cevap
2115
Tıklama
0
Öne Çıkarma
Asp ile mail atamıyorum
D
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.
B
14 yıl
Er

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



_
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



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



V
4 yıl
Er

<%
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.
C
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
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.