Asp Persits.Mailsender mail sistemi ile siteniz üzerinden mail almak çok basit vereceğim kodları sitenize entegre edin siteniz üzerinden mail almaya başlayın...
Kullanıcıların göreceği sayfadan başlayalım...
| 1 | | 2 | | 3 | | 4 | | 5 | | 6 | | 7 | | 8 | | 9 | | 10 | | 11 | | 12 | | 13 | | 14 | | 15 | | 16 | | 17 | | 18 | | 19 | | 20 | | 21 | | 22 | | 23 | | 24 | | 25 | | 26 | | 27 | | 28 | | 29 | | 30 | | 31 | | 32 | | 33 | | 34 | | 35 | | 36 | | 37 | | 38 | | 39 | | 40 | | 41 | | 42 | | 43 | | 44 | | 45 | | 46 | | 47 | | 48 | | 49 | | 50 | | 51 |
|
| <form method="post" target="_self" action="mailform.asp" onsubmit="return testet();">
| | <table border="1" bordercolor="gainsboro" cellpadding="0" cellspacing="0" align="center">
| | <tr>
| | <td><b>Ad Soyad:</b></td>
| | <td><input maxlength="150" name="AdiSoyadi" tabindex="1" size="50"></td>
| | </tr>
| | <tr>
| | <td><b>Firma İsmi: </b></td>
| | <td><input maxlength="150" name="Firmaismi" tabindex="2" size="50"></td>
| | </tr>
| | <tr>
| | <td><b>E-mail Adres: </b></td>
| | <td><input maxlength="150" name="EmailAdresi" tabindex="3" size="50"></td>
| | </tr>
| | <tr>
| | <td><b>Tel & Fax: </b></td>
| | <td><input maxlength="150" name="Tel" tabindex="4" size="50"></td>
| | </tr>
| | <tr>
| | <td><b>Mesaj Basligi: </b></td>
| | <td><input maxlength="150" name="Mesajbasligi" tabindex="5" size="50"></td>
| | </tr>
| | <tr>
| | <td><b>Mesajiniz:</b></td>
| | <td>
| | <p align="center"><TEXTAREA tabIndex=6 name=Mesaj rows="7" cols="51"></TEXTAREA><br />
| | <b>Güvenlik Kodu:<u><b id="kod"></b></u>
| | <input type="text" name="Güvenlik Kodu" id="kod2" size="3" tabindex="7" /></p></td>
| | </tr>
| | <tr>
| | <td></td>
| | <td><p align="center"><input type="submit" value="Gönder" tabindex="8" name ="send">
| | <input type="reset" value="Formu Temizle" name="reset"></p>
| | </td>
| | </tr>
| | </table>
| | </form>
| | <script type="text/javascript">
| | s1 = Math.floor(Math.random()*1000);
| | document.getElementById("kod").innerHTML=s1;
| |
| | function testet(){
| | if(document.getElementById("kod").innerHTML==document.getElementById("kod2").value){
| | return true;
| | }else{
| | alert("Girdiğiniz güvenlik kodu doğru değil");
| | return false;
| | }
| |
| | }
| | </script> |
|
Yukarıda Belirrtiğim kodları yerleştirdiniz ama bitmedi birde Persits.MailSender ayarlarını yapmamız gerekmektedir yeni metin belgesi oluşturup adını mailform.asp olarak değiştirelim. Bu oluşturduğumuz mailform.asp sayfasına alttaki kodları yerleştirelim ve gerekli düzenlemeleri yaparak formunuzun bulunduğu yere bu dosyayıda atalım.
| 1 | | 2 | | 3 | | 4 | | 5 | | 6 | | 7 | | 8 | | 9 | | 10 | | 11 | | 12 | | 13 | | 14 | | 15 | | 16 | | 17 | | 18 | | 19 | | 20 | | 21 | | 22 | | 23 | | 24 | | 25 | | 26 | | 27 | | 28 |
|
| <% @LANGUAGE=VBScript %>
| | <html>
| | <head>
| | <meta http-equiv="refresh" content="3;URL=http//www.siteadresiniz.com">
| | <%
| | On Error Resume Next
| | For Each Doldur In Request.Form
| | Message = Message & Doldur & ": " & Request.Form(Doldur) & CHR(10)
| | Next
| |
| | Set Mail = Server.CreateObject("Persits.MailSender")
| | Mail.Host = "mail.sitenizinadresi.com"
| | Mail.Username = "yeni@siteadresiniz.com" ' Kontrol panelinizden yeni bir mail adresi alın ve buraya yazın..
| | Mail.Password = "123456" ' yeni aldığınız mailinizin şifresini bu alana yazın..
| | Mail.From = "info@siteadresiniz.com" ' Site üzerinden gidecek olan hangi mail adresinize gideceğini belirleyin..
| | Mail.FromName = "iletisim Formundan Mesaj Var " ' Mailinizin Başlığınızı belirleyin...
| | Mail.AddAddress "info@siteadresiniz.com", "info@siteadresiniz.com" ' Bu alanda sadece mail adreslerinizi düzenleyin..
| | Mail.AddReplyTo "info@siteadresiniz.com" ' Bu alanda sadece mail adreslerinizi düzenleyin..
| | Mail.Subject = "iletisim Formundan Mesaj Var..." ' Mailinizin Başlığınızı belirleyin..
| | Mail.Body = Message
| | Mail.Send
| | If ERR Then
| | Response.Write err.Description & "<center><b><br>Hatalı Giriş Yaptınız !"
| | Else
| | Response.Write "<center><b>Mesajınız En Kısa Sürede Cevaplanacaktır... Teşekkürler...</center>"
| | End If
| | Set Mail=Nothing
| | %> |
|
Güle güle kullanın herhangi bir sorun olursa ben buralardayım ;)