Bakbi Forum Fullsürüm Ana Sayfa
Forum Anasayfası Forum Anasayfası > BİLGİSAYAR PROBLEMLERİ ve TEKNOLOJİLERİ > Asp Kodları ve Asp Uygulamaları
  Yeni Mesajlar Yeni Mesajlar RSS: Persits Form Mail Uygulama Türkçe Karakter Sorunu
  Yardım Yardım  Forumu Ara   Takvim   Kayıt Ol Kayıt Ol  Giriş Giriş

Persits Form Mail Uygulama Türkçe Karakter Sorunu

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
volkan Açılır Kutu Gör
Yönetici
Yönetici


Kayıt Tarihi: 01 Ocak 2007
Aktif Durum: Aktif Değil
Gönderilenler: 446
Mesaj Seçenekleri Mesaj Seçenekleri   Alıntı volkan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Persits Form Mail Uygulama Türkçe Karakter Sorunu
    Gönderim Zamanı: 06 Ocak 2013 Saat 06:02
Persits Form Mail Uygulama Türkçe Karakter Sorunu.

Persits Mail Form örneği aşağıda verilmiştir.

<% 
mesaj = request.Form("mesaj")    --------formdan gelen mesaj
kim = request.Form("adi")     -----------formu dolduranın adı
kimden = request.Form("email")      --------------formu dolduranın email
tel = request.Form("tel")        -----------Formudolduranın telefon
kime = "info@falanca.com"        -----------Sizin email. hangi emailinize gelecekse yollanan bu form
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.falanca.com"      ------------mail serveriniz genelde şöyledir mail.websiteniz.com
Mail.From = kimden
Mail.FromName = kim
Mail.AddAddress kime
Mail.AddReplyTo kime
Mail.Subject = "İletişim Formu"
mail.IsHTML = 1
Mail.Body = "Adı: "&kim&"<br>Email: "&kimden&"<br>Tel: "&tel&"<br>Mesaj: "&mesaj

Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
Response.Write ("Mesajiniz başarıyla gönderildi..")
End If
%>


Yukardaki kod persits form mail uygulamasıdır.

Persits Mail Türkçe Karakter Sorunu ve Çözümü

Benim Çözümüm.
Sorun Kimliği: Form Sayfası utf-8 ve işlem sayfası iso gelen mailde karakterler utf kodlama gözüküyor.
<%
Function  cevir(metin)
metin =  Replace(metin,"ı","i", 1, -1)
metin =  Replace(metin,"ş","s", 1, -1)
metin =  Replace(metin,"Ğ","G", 1, -1)
metin =  Replace(metin,"ğ","g", 1, -1)
metin =  Replace(metin,"ü","u", 1, -1)
metin =  Replace(metin,"Ş","S", 1, -1)
metin =  Replace(metin,"Ğ","G", 1, -1)
metin =  Replace(metin,"Ü","U", 1, -1)
cevir = metin 
End  Function
%>
<% 
mesaj = cevir(request.Form("mesaj"))
kim = cevir(request.Form("adi"))
kimden = request.Form("email")
tel = request.Form("tel")
kime = "info@filanca.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.falanca.com"
Mail.From = kimden
Mail.FromName = kim
Mail.AddAddress kime
Mail.AddReplyTo kime
Mail.Subject = "İletişim Formu"
mail.IsHTML = 1
Mail.Body = "Adı: "&kim&"<br>Email: "&kimden&"<br>Tel: "&tel&"<br>Mesaj: "&mesaj

Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
Response.Write ("Mesajiniz başarıyla gönderildi..")
End If
%>


Diğer Türkçe Karakter Çözümleri

Mail.CharSet = "UTF-8"   satırını ekle.


Düzenleyen volkan - 06 Ocak 2013 Saat 06:11

İnternet Download Manager Programını İndirip Kurun.Online Filmleri Bu Programla İndirip Seyredebilirsiniz.
Yukarı Dön
Sponsor Linkler


Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu Gör

Bulletin Board Software by Web Wiz Forums® version 9.64 [Free Express Edition]
Copyright ©2001-2009 Web Wiz

Bu Sayfa 0,141 Saniyede Yüklendi.