persist mail bileşenini kullanarak site üzerinden mesaj göndermeye çalışıyorum. kod şu şekilde:
formdaki adsoyad, mail ve mesaj bilgilerini e-mail olarak atmaya çalışıyorum ama "500 Internal server Error" hatası veriyor. ama email, gonderen gibi değişkenler kullanmak yerine statik bir metin girdiğimde başarıyla gönderiliyor. Formdan gelen bilgileri nasıl gönderebilirim?Kod:mesaj = request.form("mesaj") email = request.form("email") gonderen =request.form("adsoyad") Set ObjMail = server.CreateObject("Persits.MailSender") ObjMail.IsHTML = True ObjMail.From = email ObjMail.FromName ="mesaj geldi" ObjMail.Host ="mail.domain.com" ObjMail.Subject= gonderen ObjMail.AddAddress "gidecek@mail.com" ObjMail.Body = mesaj ObjMail.SEnd
Formun kodları:
idleri kontrol ettim fakat bulamadım hatayıKod:<form name="" method="post" action="gonder.ASP"> <tr> <td width="100%"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999" style="border-collapse:double"> <tr> <td class="unnamed1" style="width: 148px"><font color="black" size="2" face="Arial, Helvetica, sans-serif"> Ad-Soyad :</font></td> <td style="width: 388px"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif"> <input name="adsoyad" type="text" id="adsoyad" size="30"> </font></td> </tr> <tr> <td class="unnamed1" style="width: 148px"><font color="black" size="2" face="Arial, Helvetica, sans-serif"> E-mail Adresiniz :</font></td> <td style="width: 388px"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif"> <input name="email" type="text" id="email" size="30"> </font></td> </tr> <tr> <td class="unnamed1" style="width: 148px"><font color="black" size="2" face="Arial, Helvetica, sans-serif"> Mesajınız :</font></td> <td style="width: 388px"><font color="#CC0000" size="2" face="Arial, Helvetica, sans-serif"> <textarea name="mesaj" cols="40" rows="6" id="mesaj"></textarea> </font></td> </tr> </table> </font> <br /><center> <input type="submit" name="Submit" value="Gönder"> <input type="reset" value="Temizle"> </center> </form>
Ben ne olduğunu anlayamadım ama tecrübesizlikten herhalde..![]()
HTML, CSS ve XHTML dışında oldukça cahil sayılırım.![]()
Aşağıdaki çalışan bir persits formmail scripti. Umarım yardımcı olur.
iletisim.ASP'deki formmail'in kodları:
Kod:<% If Request.querystring("Send") <> "" Then msg_txt = msg_txt & "<b>İsim:</b> " & Request.form("name") msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("adres") msg_txt = msg_txt & "<br><b>Mesajınız:</b><br>" & Request.form("msg") Set mail = server.CreateObject("Persits.MailSender") mail.Host = "mail.aaa.com" mail.From = Request.form("From") mail.FromName = Request.form("FromName") mail.AddAddress "aaa@aaa.com" mail.Subject = "aaamail" mail.IsHTML = True mail.Body = msg_txt On Error Resume Next mail.Send If Err <> 0 Then msg = "<b>Mesajınız iletilemedi!</b>" else msg = "<b>Mesajınız iletildi.</b>" End If End If %>
iletisim.ASP'de form sonucunun görünmesini istediğin yere yazacağın kod:
Kod:<%If Request.querystring("Send") <> "" Then%> <%=msg%> <%End If%>
iletisim.ASP'deki formun kodları:
Kod:<form action="iletisim.ASP?send=1" method="post"> <label>adınız ve soyadınız:</label> <input id="name" name="name" type="text" size="30" /> <label>e-posta adresiniz:</label> <input id="adres" name="adres" type="text" size="30" /> <label>mesajınız:</label> <textarea id="msg" name="msg" rows="5" cols="5"></textarea> <br /> <input class="button" type="submit" value="Gönder" /> </form>
Sonunda oldu. persistin kodlarını bulunduran sitelerin %90'ı maalesef şu satırlara yer vermemiş. bizim takıldığımız nokta da burası:
Konuyla ilgilenen arkadaşların işine yarayabilir, kodların tamamı şu şekilde:Kod:mail.Username = "gonderenmail@domainadiniz.com" ' Gönderen email ile aynı olmalı mail.Password = "mailşifrem" ' e-Mailinizin şifresini giriniz
verdiğin kodlarda eksiklik vardı yine de teşekkürler DhilgulKod:msg_txt = msg_txt & "<b>İsim:</b> " & Request.form("adsoyad") msg_txt = msg_txt & "<br><b>Email:</b> " & Request.form("email") msg_txt = msg_txt & "<br><b>Mesaj:</b><br>" & Request.form("mesaj") kime = "gonderilecek@mail.com" mesaj = Request.form("mesaj") email = Request.form("email") gonderen =Request.form("adsoyad") Set ObjMail = server.CreateObject("Persits.MailSender") ObjMail.IsHTML = True ObjMail.Host ="mail.domain.com" ObjMail.From = "hesap@mail.com" 'ilgili hosttan aldınığınız mail adresi ObjMail.Username = "hesap@mail.com" ' from ile aynı ObjMail.Password = "123456" 'hosttan alınan mail adresinin şifresi ObjMail.FromName ="Zoque forum" ObjMail.Subject= "Mesaj geldi!" ObjMail.AddAddress kime ObjMail.Body = msg_txt ObjMail.SEnd![]()
ben yukarıda verdiğin scripti uyguladım. ama bana şöyle bir hata verdi ?
Persits.MailSender.4 error '800a000e'
AspEmail's premium features have expired. To continue using them, please visit www.aspemail.com to purchase a registration key.
/gonder.ASP, line 15
acaba neden ?