04 March 2008, 14:24 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Mail yollama
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 --> %> |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Yanlış Mail | YakupEMİR | Fıkra Diyarı | 0 | 02 January 2010 18:08 |
Asp.net ile Mail | agasarlinuris | asp.net | 0 | 21 January 2009 22:17 |
Jmail bileşeni ile mail formu | agasarlinuris | asp | 0 | 21 January 2009 21:57 |
Mail & ICQ Güvenliği | Mekansiz | Biligisayar Yardım Bölümü | 0 | 13 April 2006 20:57 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |