cdonts dan persiste maile çevirdim ama bişey eksik sanki

ajnglagla · 31.03.2007

bu kod cdonts du, ben de persist maile çevirmeye çalıştım. herşey doğru gözüküyor fakat çalışmadı. nasıl bir yanlış - eksik yapmış olabilirm arkadaşlar? ben bulamadım da

Kod:

isim = donustur(request.form("isim"))
firma = donustur(request.form("firma")) 
mesaj = donustur(request.form("mesaj")) 
Set mail=server.CreateObject("Persits.MailSender")
mail.Host = "localhost"
mail.To="emailim@gmail.com"
mail.From=Request.form("mail")
mail.Subject= "Siteden Mesaj var!"
govde=govde &" site Üzerinden Doldurulan Mailin İçeriği Aşağıdadır... "& chr(10)
govde=govde&" "& chr(10)
govde=govde&" "& chr(10)
govde=govde &" Siteden Mesaj Var! "& chr(10)
govde=govde &" "& isim &" tarafından  "& chr(10)
govde=govde &" gönderilmiştir. "& chr(10)
govde=govde &" Firma : "& chr(10)
govde=govde &" "& firma &" "& chr(10)
govde=govde &" Mesaj : "& chr(10)
govde=govde &" "& mesaj &" "& chr(10)
mail.Body=govde
mail.Send
Set mail=Nothing

burakozgur · 31.03.2007

Sunucudan kaynaklı problemler olusabiliyor. mail dogrulaması gerektirebiliyor bazı sunucular. Jmail kullanırsan kodları yazabiliriz, önerimde jmail olacaktır.

ajnglagla · 31.03.2007

evet sordum Jmail de kullanıyorlarmış. peki bu durumda jmaile göre nasıl bir değişiklik yapmam gerek?
sadece

Kod:

Set mail=server.CreateObject("Persits.MailSender")

satırını değiştirsem olur mu?

deardart · 31.03.2007

Merhaba ajnglagla

alttaki Persits uygulaması çalışır durumdadır.Sistemi kendine göre uyarlarsın.

Kod:

<%

strHost = "mail.alanadi.com"
email="info@alanadi.com"
sifre="şifre"


MyBody = "<HTML>"
MyBody = MyBody & "<style type=text/CSS>"
MyBody = MyBody & "body {font-family: Arial, Helvetica, sans-serif; font-size: 12px;}</style>"
MyBody = MyBody & "<b>Ad Soyad : </b>" & request("ad")  &"<br>"
MyBody = MyBody & "<b>Kimden : </b>" & request("mail") & "<br>"
MyBody = MyBody & "<b>Tel  :</b> " & request("tel") & "<br>" 
MyBody = MyBody & "<b>Konu  :</b> " & request("konu") & "<br>" 

MyBody = MyBody & "<b>Mesaj  :</b> " & request("mesaj") & "<br>" 
MyBody = MyBody & "</HTML>" 


   Set mail = server.CreateObject("Persits.MailSender")

mail.Host = strHost
mail.From = request("mail")
mail.FromName = email
mail.AddAddress email
mail.AddReplyTo email
mail.Subject = "Iletisim Formu"
mail.Body = MyBody
mail.Username = email
mail.Password =  sifre
mail.IsHTML = True 
   mail.Send 
If Err <> 0 Then
  Response.Write "An error occurred: " & Err.Description
End If 
%>

ajnglagla · 01.04.2007

teşekkürlerr

31.03.2007	#2 (permalink)
burakozgur Üyelik Tarihi: 07.03.2007 Yer: Ankara Mesaj: 165	Re: cdonts dan persiste maile çevirdim ama bişey eksik sanki Sunucudan kaynaklı problemler olusabiliyor. mail dogrulaması gerektirebiliyor bazı sunucular. Jmail kullanırsan kodları yazabiliriz, önerimde jmail olacaktır. __________________ Bilgi paylaşmak için vardır!

31.03.2007	#3 (permalink)
ajnglagla Üyelik Tarihi: 24.03.2007 Yer: ist Mesaj: 99	Re: cdonts dan persiste maile çevirdim ama bişey eksik sanki evet sordum Jmail de kullanıyorlarmış. peki bu durumda jmaile göre nasıl bir değişiklik yapmam gerek? sadece Kod: Set mail=server.CreateObject("Persits.MailSender") satırını değiştirsem olur mu?

01.04.2007	#5 (permalink)
ajnglagla Üyelik Tarihi: 24.03.2007 Yer: ist Mesaj: 99	Re: cdonts dan persiste maile çevirdim ama bişey eksik sanki teşekkürlerr

Sponsorlu Bağlantılar
Zoque.Forum Reklam