Jump to content

Asp - Jmail Bileşeni ile mail gönderme


Recommended Posts

2 tane sayfamız olsun.

form.asp : Bu sayfada form bilgileri olacak Gönderenin Adı, Gönderenin mail adresi, Gönderenin mesajı

gonder.asp : Bu sayfada ise gönderme işlemleri olacaktır.

<-------------------- Form.asp Başlıyor ------------------------->

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

<---------------- Form.asp Bitiyor-------------------->

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

<----------------------- gonder.asp Başlıyor ----------------------->

<%

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 = "[email protected]"

objJmail.MailServerPassWord = "sifre"

objJmail.Subject = baslik

objJmail.AddRecipient "[email protected]"

objJmail.Body = mesaj

objJmail.Send("mail.domain.com")

Set objJmail = Nothing

%>

<html>

<head>

<title>Mail Gönderildi</title>

</head>

<body>

Bu mail [email protected] adresine gönderilmiştir.Tebrikler !!!

</body>

</html>

<-------------------- gonder.asp Bitiyor -------------------------------->

Böylelikle mail'ımız adrese postalandı.

Bir arkadaşın isteği üzerine yapmıştım. Paylaşmak istedim.

Sorularınız olursa sorabilirsiniz.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...