ASP / ASP İle Mail Yollama


<% 

'dosya isimi..gonder_email.asp **

'Farkli formlar dan gelen bilgilerin farkli email adresine   

'gelmesini sagliyor. formdan gelen formtercihi degerine göre   

'ilgili Case içine girer . Case leri ve email tercihlerini   

'çogaltmak mümkün 



dim FormTercihi, strTo, strSubject, strBody 



'formdan gelen deger alinir 

FormTercihi=Request("HangiForm" ) 



Select Case FormTercihi  

'alinan deger select içine alinir. 



Case 1 



'formdan gelen bilgiler alinir 

  adi="ADI SOYADI.." &Request.Form("ADI" )+"," & Request.Form("SOYADI" )+"," & vbCrLf 

  adi=adi&"ADRES......." &Request.Form("ADRES" )+"," & vbCrLf&"ILCE/IL....." &Request.Form("IL" )+"," & vbCrLf 

  adi=adi&"E-MAIL......" &Request.Form("EMAIL" )& vbCrLf& vbCrLf& vbCrLf 



kimden=Request.Form("ADI" )+" " +Request.Form("SOYADI" ) 



'asagidaki kisim olmasada olur biz resmi bir kurum oldugumuz için mail olayini dilekçe boyutuna çevirdik. 



  dilekce="Yukarida Bilgilerini Yazdigim Parsele Ait " & vbCrLf 

  dilekce=dilekce&"IMAR DURUMU Belgesinin Tarafima Gönderilmesini " & vbCrLf 

  dilekce=dilekce&" Saygilarimla Arz Ederim." & vbCrLf& vbCrLf 

  dilekce=dilekce& kimden 



  adi=adi&dilekce 



'kisi formu gönderdikten sonra asagidaki mesaji okur 



     bilgilendirme=" Adresimize Gönderdiginiz Bilgilere Göre" & vbCrLf 

     bilgilendirme=bilgilendirme+"Verdiginiz " &EMAIL&" Adresine Imar Durumu Belgesi En Kisa Zamanda Gönderilecektir. " 

      

'bu Case 1 deki formun konusudur   

  strSubject = "IMAR DURUMU ISTEGI" 

  email=Request.Form("EMAIL" ) 





Case 2 



adi="ADI SOYADI.." &Request.Form("ADI" )+"," & Request.Form("SOYADI" )+"," & vbCrLf 

  adi=adi&"ISTEK/ÖNERI;......." &vbCrLf&Request.Form("ADRES" )+"," & vbCrLf 

  adi=adi&"E-MAIL......" &Request.Form("EMAIL" )& vbCrLf& vbCrLf& vbCrLf 



  kimden=Request.Form("ADI" )+" " +Request.Form("SOYADI" ) 



  dilekce=dilekce& kimden 



  adi=adi&dilekce 



bilgilendirme=" Öneri ve İsteklerinizi Bizimle Paylaştığınız İçin Teşekkür Ederiz." & vbCrLf 

           





strSubject = "ONERI/ISTEK" 



  email=Request.Form("EMAIL" ) 



End Select 

%> 

<% 



strTo = "MAIL ADRES1-1"   

'adresi degistir.... 





strBody = adi 

strBody = strBody & vbCrLf & vbCrLf 



If Len(request("email" ))<5 or InStr(request("email" ),"@" )=0  Then 

      %> 

     <a href="asp-animation/email.asp"> 

          Lütfen E-MAIL Adres Bilgilerini Dogru Olarak Giriniz<br> 

     </a> 

     <% 

Else 



'Persits.mail ile baglanti saglanir. 

     Set Mail = Server.CreateObject("Persits.MailSender" ) 



'site adini degistir. 

     Mail.Host="yildirim-bld.gov.tr" 



'bunlari degistirmeyin 

     Mail.From = email 

     Mail.FromName = kimden 

      

Response.Write "from name" 



     'asagida bir Select Case daha kullanilmistir. her formun konusuna göre mailin gidecegi adreslerdir. 

          Select Case FormTercihi 

          Case 1 

          Mail.AddAddress "MAIL ADRESI-1" 

          Mail.AddAddress "MAIL ADRESI-2" 

           

          Case 2 

       Mail.AddAddress "MAIL ADRESI-1" 

       Mail.AddAddress "MAIL ADRESI-3"   



End Select 



'bunlarida degistirmeyin 



     Mail.Subject = strSubject 

     Mail.Body = strBody 

     Mail.SEnd 

      

Response.Write bilgilendirme 







End If 



%> 



<%  

Function IsValidEmail(strEmail) 

   Dim bIsValid 

   bIsValid = True 



        If Len(strEmail) < 5 Then 

     bIsValid = False 

      

              Else 

         If InStr(1, strEmail, " " ) <> 0 Then 

                          bIsValid = False 

           

                            Else 

          If InStr(1, strEmail, "@" , 1) < 2 Then 

                bIsValid = False 



Else 



If InStrRev(strEmail, "." ) < InStr(1, strEmail, "@" , 1) + 2 Then 

    bIsValid = False 

                      End If 

            End If 

         End If 

End If 



           IsValidEmail = bIsValid 

End Function 



'<-- bitti --> 



%>