hoca kodlar içerisindeki form değerlerini kendine gre düzenle mail adresini ve şifre ni yaz bide mail serverini kolay gelsin gonder. asp <! DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www. w3. org/TR/xhtml1/DTD/xhtml1-strict. dtd"><html xmlns="http://www. w3. org/1999/xhtml"><body><%adi=request. form sehir=request. form adres=request. form tel=request. form email=request. form konu=request. form mesaj=request. form %><%Response. Buffer = TrueDim strBody_ASPPLUSNet Dim objCDOMail Dim strMyEmailAddress Dim strCCEmailAddress Dim strBCCEmailAddress Dim strReturnEmailAddressDim strMyEMailPasswordDim strMyMailServer'-CONFIG strMyEmailAddress = "mail@domain.com"strReturnEmailAddress = "mail@domain.com"strMyEMailPassword = "mail şifresi"strMyMailServer = "mail. domain.com"' strBody_ASPPLUSNet= strBody_ASPPLUSNet& "<font face=verdana size=2>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Adi : "&adi&"<br>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Sehir : "&sehir&"<br>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Adres : "&adres&"<br>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "tel : "&tel&"<br>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "email : "&email&"<br>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "konu : "&konu&"<br>"strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Mesaj : "&mesaj&"<br>"' Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objMessage ' As CDO. Message Dim objConfig ' As CDO. Configuration Dim Fields ' As ADODB. Fields ' Get a handle on the config object and it's fields' Set objConfig = Server. CreateObject Set Fields = objConfig. Fields ' Set config fields we care about With Fields. Item = 2. Item = strMyMailServer. Item = 25. Item = 10. Item = 1. Item = strMyEmailAddress. Item = strMyEMailPassword. Update End With ' Set objMessage = Server. CreateObject Set objMessage. Configuration = objConfig With objMessage. To = strMyEmailAddress. From =strReturnEmailAddress. Subject = "Web Sayfasından Mesaj" . HTMLBody = strBody_ASPPLUSNet. bodyPart. Charset = "windows-1254" . Send End With ' Set objMessage = Nothing Set objFields = Nothing Set objConfig = Nothing' %><div id="content"> <div id="columnA"> <h2>Mesajınız iletilmiştir...</h2> <p align="center"> <img src="images/loading. gif" alt="shut" width="101" height="97" /></p> <p align="center">Mesajınız iletilmiştir.. En kısa zamanda yanıtlanacaktır.. Teşekkür Ederiz.. </p> <p> </p> </div> </div></body></html> snnyk.com - code is poetry all that i know...

tam formu çalıştırdık derken şimdi de türkçe karakter sorunu yaşatıyor. yardımlarınızı bekliyorum arkadaşlar. <%name = request. form email = request. form telefon= request. form adres= request. form company= request. form konu = request. form message = request. form mesajg="<p>Mesajı Gnderen: <b>"&name&"</b></p>"&_"<p>Mail Adresi: <b>"&email&"</b></p>"&_"<p>Telefon: <b>"&telefon&"</b></p>"&_"<p>Adres: <b>"&adres&"</b></p>"&_"<p>Şirket: <b>"&company&"</b></p>"&_"<p>Konu: <b>"&konu&"</b></p>"&_"<p>Mesaj: <b>"&message&"</b></p>" On Error Resume NextSet objJmail = Server. Createobject objJmail. Charset = "ISO-8859-9"objJmail. ContentType = "text/html"objJmail. From = emailobjJmail. MailServerUserName = "bilgi@asdsunucu.com"objJmail. MailServerPassWord = "1asd24"objJmail. Subject = konu objJmail. AddRecipient "asd@hotmail.com"objJmail. Body = mesajgobjJmail. Send Set objJmail = Nothing%> <html> <head><title>Mail Gnderildi</title></head> <body>Bu mail asd@asd.com adresine gnderilmiştir. Tebrikler!!!</body> </html> ..

form. asp ve gonder. asp olmak üzere iki dosyadan oluşuyor. form gayet güzel çalışıyor ancak kişinin adını, mail adresinide formun gnderildiği maile düzgün bi şekilde yazdırmak istiyorum, nasıl yapabilirim. rneğin formu doldurup gnderdikten sonra mailime şu şekilde gelmesini istiyorum:ad soyad : test user namee-posta : test user email... gonder. asp kodu:<%isim = request. form baslik = request. form email = request. form mesaj = request. form On Error Resume NextSet objJmail = Server. Createobject objJmail. Charset = "ISO-8859-9"objJmail. From = emailobjJmail. MailServerUserName = asd@asdsunucu.comobjJmail. MailServerPassWord = "asd123objJmail. Subject = baslik objJmail. AddRecipient asd@asd.comobjJmail. Body = mesajobjJmail. Send Set objJmail = Nothing%> <html> <head><title>Mail Gnderildi</title></head> <body>Bu mail asd@asd.com adresine gnderilmiştir. Tebrikler!!!</body> </html> ..

objJmail. Charset = "windows-1254" in objJmail. Charset = "ISO-8859-9" out \ /

body yani mesaj değişkenini bi boş htmlde düzenle sonra onu mesaj değişkenine ata \ /

kanka senin :D <%isim = request. form baslik = request. form email = request. form mesaj = request. form mesajg="<p>Mesajı Gnderen: <b>"&isim&"</b></p>"&_"<p>Mail Adresi: <b>"&email&"</b></p>"&_"<p>Mesaj: <b>"&mesaj&"</b></p>"set BTMail = server. createobject BTMail. From = mailBTMail. AddRecipient "alıcı mail adresi", " alıcı adı"BTMail. Subject = baslikBTMail. HTMLBody = mesajgBTMail. Charset = "ISO-8859-9"BTMail. ContentType = "text/html"On Error Resume Next BTMail. Send 'Mail serverina "localhost" veya "mail. domainin.com" yaz kanka :DSet BTMail = Nothing Set objJmail = Nothing%> \ /

lepusmorris; Jmail kodlarına şu satırları da ekle; objMail. ContentType = "text/html"objMail. Encoding = "quoted-printable" gonder. asp'nin ilk satırı aşağıdaki gibi olsun. <%@Language = VBScript CodePage = 1254 %><%'senin kodların... '.. '.. '.. %> Ayrıca ISO-8859-9'u kullanmaya devam edebilirsin. Tüm e-posta programları ve tarayıcılar Windows-1254'ü düzgün gstermez, ama ISO-8859-9'u gsterir. Bir neri de dosyanın karakter setinin ANSI olması gerekliliği. Not defterinde gonder. asp'yi açıp farklı kaydet altında Kodlama kısmını "ANSI" seçerek kaydet şayet UTF-8 vs.. ise. Buna rağmen bir değişiklik olmaz ise mesajg değişkeninin içine meta kodu eklemeyi dene. fazla uzaklaşmış olamaz...

kanka aşağıdaki gibi yapınca çalıştı:D mesajg="<p>Mesajı Gnderen: <b>"&isim&"</b></p>"&_"<p>Mail Adresi: <b>"&email&"</b></p>"&_"<p>Mesaj: <b>"&mesaj&"</b></p>" ::::... bu kısmı ekleyememişim. saol :D <%isim = request. form baslik = request. form email = request. form mesaj = request. form mesajg="<p>Mesajı Gnderen: <b>"&isim&"</b></p>"&_"<p>Mail Adresi: <b>"&email&"</b></p>"&_"<p>Mesaj: <b>"&mesaj&"</b></p>" On Error Resume NextSet objJmail = Server. Createobject objJmail. Charset = "ISO-8859-9"objJmail. From = emailobjJmail. MailServerUserName = asd@asdsunucu.comobjJmail. MailServerPassWord = "asd123"objJmail. Subject = baslik objJmail. AddRecipient asd@asd.comobjJmail. Body = mesajgobjJmail. Send Set objJmail = Nothing%> <html> <head><title>Mail Gnderildi</title></head> <body>Bu mail asd@asd.com adresine gnderilmiştir. Tebrikler!!!</body> </html> ..

çok basit bişey olduğunun farkındayım çalıştıramıyorum deli oldum:S..

yine düzelmedi kanka:S..