|
Form
<%
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 "mekasohbetbiz@hotmail.com.com" 'gönderilecek adres
objJmail.Body = mesaj
objJmail.Send("mekansohbetbiz@hotmail.com")
Set objJmail = Nothing
%>
Mail Gönderildi
Bu mail mekansohbetbiz@hotmail.com.com adresine gönderilmiştir. Tebrikler !!!
|
