Asp ile Smtp Kimlik Doğrulaması Kullanarak Mail Gönderimi.

##### form.html dosyası #####

<html>
<head>
<meta http-equiv="Content-Language" content="tr"/>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254"/>
<title>Mail Form</title>
</head>
<body>
 
<form method="POST" action="aspmail.asp">
	<table border="1" width="100%">
		<tr>
			<td>Adı Soyadı</td>
			<td><input type="text" name="Adi_Soyadi" size="37"/></td>
		</tr>
		<tr>
			<td>Mail Adresi</td>
			<td><input type="text" name="Mail_Adresi" size="37"/></td>
		</tr>
		<tr>
			<td>Konu</td>
			<td><input type="text" name="Konu" size="37"/></td>
		</tr>
		<tr>
			<td>Mesaj</td>
			<td><textarea rows="7" name="Mesaj" cols="36"></textarea></td>
		</tr>
	</table>
	<p><input type="submit" value="Gönder" name="B1"/><input type="reset" value="Sıfırla" name="B2"/></p>
</form>
 
</body>
 
</html>

##### aspmail.asp dosyası #####

 
< %
On Error Resume Next
For Each Doldur In Request.Form
	' Post edilen formdan bu adrese gelen bilgiler message değişkenine dolduruluyor.
     Message = Message & Doldur & ": " & Request.Form(Doldur) & CHR(10)
Next
 
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.alanadi.com"					' mail host adresi 
Mail.Username = "hesap@test.com"				' Mail gönderen hesabın adı
Mail.Password = "Email Sifresi"					' mail gönderen hesabın şifresi
Mail.From = "hesap@alanadi.com"				        ' gönderici mail adresi
Mail.FromName = "Web Form"					' Gönderici adı
Mail.AddAddress "alici@test.com", "alici@test.com"	        ' alıcı adresi ve adı
Mail.AddReplyTo "Destek@alanadi.com"				' Yanıla adresi istenirse kullanılmayabilir.
Mail.Subject = "test"						' mesaj başlığı
Mail.Body = Message						' Mesaj
Mail.Send
 
if err Then
	Response.Write err.Description			        ' hata mesajı ekrana yazılıyor
else
	Response.Redirect("www.alanadi.com/tesekkur.htm")	' mesaj gönderildikten sonra yonlendirilecek sayfa
end if
%>
Tagged:

Bir cevap yazın