Jmail İle Mail Form Sorunu :( Yardım ..
-
gonder.asp dosyam
<%
ad = request.form("ad")
telefon = request.form("tel")
konu = request.form("konu")
email = request.form("email")
adres = request.form("adres")
mesaj = request.form("mesaj")
On Error Resume Next
Set objJmail = Server.Createobject("JMail.Message")
objJmail.Charset = "ISO-8859-9"
objJmail.From = email
objJmail.MailServerUserName = "xxx@domain.com"
objJmail.MailServerPassWord = "sifre"
objJmail.Subject = konu
objJmail.AddRecipient "xxx@domain.com"
objJmail.Body = mesaj
objJmail.Send("mail.domain.com")
Set objJmail = Nothing
%>
<html>
<head>
<title>Mail Gönderildi</title>
</head>
<body>
Mesajınız tarafımıza iletilmiştir..En yakın zamanda size dönülecektir.
<br>
..:: Teşekkürler ::..
</body>
</html>form.htm dosyam
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Form</title>
</head>
<body>
<form method="POST" action="gonder.asp">
<table border="0" width="31%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td width="103" height="35">İsim ve Soyisim</td>
<td width="7"><b>:</b></td>
<td><input type="text" name="ad" size="20"></td>
</tr>
<tr>
<td width="103" height="35">Telefon</td>
<td width="7"><b>:</b></td>
<td><input type="text" name="tel" size="20"></td>
</tr>
<tr>
<td width="103" height="35">Konu</td>
<td width="7"><b>:</b></td>
<td><input type="text" name="konu" size="20"></td>
</tr>
<tr>
<td width="103" height="35">E-mail</td>
<td width="7"><b>:</b></td>
<td><input type="text" name="email" size="20"></td>
</tr>
<tr>
<td width="103" height="35">Adres</td>
<td width="7"><b>:</b></td>
<td><textarea rows="2" name="adres" cols="20"></textarea></td>
</tr>
<tr>
<td width="103" height="35">Mesaj</td>
<td width="7"><b>:</b></td>
<td><textarea rows="2" name="mesaj" cols="20"></textarea></td>
</tr>
</table>
<p>
<input type="submit" value="Gönder" name="cmd" style="border-style: solid; border-width: 1px"></p>
</p>
</form>
</body>
</html>merhaba arkadaslar bi iletisim formu yaptım ama bi türlü calıstıramadım jmail desteğidevar
http://img219.imageshack.us/img219/3102/testfm5.jpg
baska mail denedim olmadı.hotmailden attığım maille normal olarak geliyor ama mail form seklinde bi türlü gelmedi
burda sorun nedir acaba?yardımınız için şimdiden teşekkürler..
-
Hocam jmail kullanma. Çünkü 20 tane yolla anca 1 tane gidiyor. Persist tavsiyemdir. İstiyorsan persist kodlarını ve bileşenini (tam sürüm) vereyim.
-
iyi olur bekliyorum..
-
http://rapidshare.com/files/109462450/bilesenler.rar
strRecipientEmailAddress = "gidecekmail@gidecekmail.com" 'Gidecek olan mail adresi
strMailServerUser = smtpmailadresin@adresin.com 'SMTP için smtp mail adresi
strMailServerPass = "smtp mail şifren" 'SMTP mail şifresi
strSubject = "mail konusu" 'KonustrGidecekmesaj = "gidecek olan mesaj içeriği"
strEmailBodyMessage = strGidecekmesaj
strOutgoingMailServer = "mail.siten.com" 'Mesajı gönderecek olan mail sunucusu
strFromEmailAddress = gonderenmail@mail.com 'Hangi mailden gidecek
strFromEmailName = "filanca yolladı." 'Gönderen mailin tanımı
blnHTML = True'Create the e-mail server object
Set objAspEmail = Server.CreateObject("Persits.MailSender")With objAspEmail
'Out going SMTP mail server address
.Host = strOutgoingMailServer
'SMTP server username and password
.Username = strMailServerUser
.Password = strMailServerPass'Who the e-mail is from
.From = strFromEmailAddress
.FromName = strFromEmailName'Who the e-mail is sent to
.AddAddress strRecipientEmailAddress'The subject of the e-mail
.Subject = strSubject'Set the e-mail body format (BodyHTML=HTML Body=Text)
If blnHTML = True Then
.IsHTML = True
End If'The main body of the e-mail
.Body = strEmailBodyMessage & strEmailBodyAppendMessage'Send the e-mail
If NOT strOutgoingMailServer = "" Then .Send
End With'Close the server mail object
Set objAspEmail = Nothingresponse.write "gitti."
