Jmail Mail Bileşeni ile Mail Göndermek

Kodla Büyü

aakcakaza

Hiperaktif Üye
Hiperaktif
Mesajlar
4,466
burda da Jmail bileseni ile mail gonderme olayi var arkadaslar;

İki adet asp dosyamız olacak bunlar;

Form.asp: Bu sayfa form elemanlarını içerir. Bu elemanlar Gönderenin Adı, Gönderenin mail adresi, Gönderenin mesajı

Gonder.asp: Bu sayfa ise form.asp den gelen verileri tutarak gönderme işlemini yapacaktır.

Form.asp kodları

<html>

<head>
<title>Form</title>
</head>

<body>

<form method="POST" action="gonder.asp">
Adınız : <input type="text" name="isim" size="20"><br>
Mail Başlık : <input type="text" name="baslik" size="20"><br>
Mail Adresiniz : <input type="text" name="email" size="20"><br>
Mesajıınız : <textarea rows="2" name="mesaj" cols="20"></textarea><br>
<input type="submit" value="Submit" name="cmd">
</form>

</body>

</html>

Email formumuzu hazırlamış olduk. şimdi gonder.asp ile bilgilerimizi mail adresine gönderelim.

Gonder.asp kodları

<%
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" 'mail charset kodu
objJmail.From = email
objJmail.MailServerUserName = "mail@domain.com" 'mail kullanıcı adınız
objJmail.MailServerPassWord = "sifre" 'mail şifreniz
objJmail.Subject = baslik

objJmail.AddRecipient "giden@domain.com" 'gönderilecek adres
objJmail.Body = mesaj
objJmail.Send("mail.domain.com")

Set objJmail = Nothing
%>
<html>

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

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

</html>

Böylelikle formdaki bilgileri "giden@domain.com" adresine iletmiş olduk.
 
BBNET
Geri
Üst