Mesajı Maile Atan İletişim Formunda Düzenlemede Yardım İsteği ( Asp )

30/Ara/09 20:55

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

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 gönderildiği maile düzgün bi şekilde yazdırmak istiyorum, nasıl yapabilirim.

örneğin formu doldurup gönderdikten sonra mailime şu şekilde gelmesini istiyorum:

ad soyad : test user name

e-posta : test user email
...
...

gonder.asp kodu:

<%
isim = request.form("isim")
baslik = request.form("baslik")
email = request.form("email")
mesaj = request.form("mesaj")

On Error Resume Next
Set objJmail = Server.Createobject("JMail.Message")

objJmail.Charset = "ISO-8859-9"
objJmail.From = email
objJmail.MailServerUserName = asd@asdsunucu.com
objJmail.MailServerPassWord = "asd123
objJmail.Subject = baslik

objJmail.AddRecipient asd@asd.com
objJmail.Body = mesaj
objJmail.Send("mail.asdsunucu.com")

Set objJmail = Nothing
%>
<html>

<head>
<title>Mail Gönderildi</title>
</head>

<body>
Bu mail asd@asd.com adresine gönderilmiştir.Tebrikler !!!
</body>

</html>

..

Alıntı yap

30/Ara/09 20:57

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

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

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

30/Ara/09 21:10

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

kanka senin :D

<%
isim = request.form("isim")
baslik = request.form("baslik")
email = request.form("email")
mesaj = request.form("mesaj")
mesajg="Mesajı Gönderen: "&isim&""&_
"Mail Adresi: "&email&""&_
"Mesaj: "&mesaj&""

set BTMail = server.createobject("JMail.message")
BTMail.From = mail
BTMail.AddRecipient "alıcı mail adresi", " alıcı adı"
BTMail.Subject = baslik
BTMail.HTMLBody = mesajg
BTMail.Charset = "ISO-8859-9"
BTMail.ContentType = "text/html"
On Error Resume Next
BTMail.Send(MailServer) 'Mail serverina "localhost" veya "mail.domainin.com" yaz kanka :D
Set BTMail = Nothing

Set objJmail = Nothing
%>

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

30/Ara/09 21:26

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

kanka aşağıdaki gibi yapınca çalıştı:D

mesajg="Mesajı Gönderen: "&isim&""&_
"Mail Adresi: "&email&""&_
"Mesaj: "&mesaj&"" ::::.............bu kısmı ekleyememişim. saol :D

<%
isim = request.form("isim")
baslik = request.form("baslik")
email = request.form("email")
mesaj = request.form("mesaj")
mesajg="Mesajı Gönderen: "&isim&""&_
"Mail Adresi: "&email&""&_
"Mesaj: "&mesaj&""

On Error Resume Next
Set objJmail = Server.Createobject("JMail.Message")

objJmail.Charset = "ISO-8859-9"
objJmail.From = email
objJmail.MailServerUserName = asd@asdsunucu.com
objJmail.MailServerPassWord = "asd123"
objJmail.Subject = baslik

objJmail.AddRecipient asd@asd.com
objJmail.Body = mesajg
objJmail.Send("mail.asdsunucu.com")

Set objJmail = Nothing
%>
<html>

<head>
<title>Mail Gönderildi</title>
</head>

<body>
Bu mail asd@asd.com adresine gönderilmiştir.Tebrikler !!!
</body>

</html>

..

Alıntı yap

01/Oca/10 20:55

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

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("name")
email = request.form("email")
telefon= request.form("telefon")
adres= request.form("adres")
company= request.form("company")
konu = request.form("konu")
message = request.form("message")
mesajg="Mesajı Gönderen: "&name&""&_
"Mail Adresi: "&email&""&_
"Telefon: "&telefon&""&_
"Adres: "&adres&""&_
"Şirket: "&company&""&_
"Konu: "&konu&""&_
"Mesaj: "&message&""

On Error Resume Next
Set objJmail = Server.Createobject("JMail.Message")

objJmail.Charset = "ISO-8859-9"
objJmail.ContentType = "text/html"
objJmail.From = email
objJmail.MailServerUserName = "bilgi@asdsunucu.com"
objJmail.MailServerPassWord = "1asd24"
objJmail.Subject = konu

objJmail.AddRecipient "asd@hotmail.com"
objJmail.Body = mesajg
objJmail.Send("mail.asdsunucu.com")

Set objJmail = Nothing
%>
<html>

<head>
<title>Mail Gönderildi</title>
</head>

<body>
Bu mail asd@asd.com adresine gönderilmiştir.Tebrikler !!!
</body>

</html>

..

Alıntı yap

01/Oca/10 20:57

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

objJmail.Charset = "windows-1254" in

objJmail.Charset = "ISO-8859-9" out

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

01/Oca/10 23:50

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

yine düzelmedi kanka:S

..

Alıntı yap

02/Oca/10 12:34

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

up

..

Alıntı yap

02/Oca/10 12:53

Kısayol

Şikayet

Özel Mesaj

knuckle

Kayıt Tarihi: 26/Aralık/2009

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 göstermez, ama ISO-8859-9'u gösterir.

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...

Alıntı yap

02/Oca/10 12:57

Kısayol

Şikayet

Özel Mesaj

snnyk

Kayıt Tarihi: 28/Mayıs/2007

hoca kodlar içerisindeki form değerlerini kendine göre 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("adi")
sehir=request.form("sehir")
adres=request.form("adres")
tel=request.form("tel")
email=request.form("email")
konu=request.form("konu")
mesaj=request.form("mesaj")%>

<%Response.Buffer = True

Dim strBody_ASPPLUSNet
Dim objCDOMail
Dim strMyEmailAddress
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strReturnEmailAddress
Dim strMyEMailPassword
Dim strMyMailServer

'-CONFIG---------------------------------------------------------------------------------------------

strMyEmailAddress = "mail@domain.com"
strReturnEmailAddress = "mail@domain.com"
strMyEMailPassword = "mail şifresi"
strMyMailServer = "mail.domain.com"
'-----------------------------------------------------------------------------------------------------

strBody_ASPPLUSNet= strBody_ASPPLUSNet& ""
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Adi : "&adi&" "
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Sehir : "&sehir&" "
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Adres : "&adres&" "
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "tel : "&tel&" "
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "email : "&email&" "
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "konu : "&konu&" "
strBody_ASPPLUSNet= strBody_ASPPLUSNet& "Mesaj : "&mesaj&" "
'-----------------------------------------------------------------------------------------------------
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("CDO.Configuration")
Set Fields = objConfig.Fields ' Set config fields we care about
With Fields
 .Item(cdoSendUsingMethod) = 2
 .Item(cdoSMTPServer) = strMyMailServer
 .Item(cdoSMTPServerPort) = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Item(cdoSMTPAuthenticate) = 1
 .Item(cdoSendUserName) = strMyEmailAddress
 .Item(cdoSendPassword) = strMyEMailPassword
 .Update
End With
'-----------------------------------------------------------------------------------------------------
Set objMessage = Server.CreateObject("CDO.Message")
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>
 <img src="images/loading.gif" alt="shut" width="101" height="97" />
 Mesajınız iletilmiştir.. En kısa zamanda yanıtlanacaktır.. Teşekkür Ederiz.. 
  
 </div>

</div>
</body>
</html>

snnyk.com - code is poetry all that i know...

Alıntı yap

02/Oca/10 14:16

Kısayol

Şikayet

Özel Mesaj

lepusmorris

Kayıt Tarihi: 31/Mart/2007

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

..

Alıntı yap