Mail yollama - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Web Master > asp

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 04 March 2008, 14:24   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart 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 -->

%>



Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.