<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Mail Gönderme</title>
</head>
<body>
<form action="" method="post">
<table width="60%" border="0" align="center">
<tr>
<td width="31%">Gönderen Kişi Mail Adresi </td>
<td width="2%">:</td>
<td width="67%"><input name="gonderenmail" type="text" id="gonderenmail" /></td>
</tr>
<tr>
<td>Alıcı Kişi Mail Adresi </td>
<td>:</td>
<td><input name="alicimail" type="text" id="alicimail" /></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>Mail Konusu </td>
<td>:</td>
<td><input name="mailkonusu" type="text" id="mailkonusu" /></td>
</tr>
<tr>
<td>Mail İçeriği </td>
<td>:</td>
<td><textarea name="icerik" cols="40" rows="7" id="icerik"></textarea></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><input type="submit" name="Submit" value=" GÖNDER " /></td>
</tr>
</table>
</form>
<%
IF REQUEST.ServerVariables("REQUEST_METHOD")="POST" THEN
'Post Edilince Çalışacak
'Code By FATIH [ TUNCSOFT ]
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' SMTP Ayarları
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
' CDOSYS Ayarları
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = Trim(Request.Form("gonderenmail"))
objCDOSYSMail.To = Trim(Request.Form("alicimail"))
objCDOSYSMail.Subject = Trim(Request.Form("mailkonusu"))
objCDOSYSMail.HTMLBody = Trim(Request.Form("icerik"))
' Gönder
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
If Err.Number <> 0 Then
Response.Write ("Mail Gönderilemedi")
Else
Response.Write("<h2>Mail Gönderildi</h2>" )
End If
'Tamam
END IF
%>
</body>
</html>
Araştırma yapmayı bilmeyip bide abuk subuk cevap yazan adamlar için oturup kodlama yapıyorum.
Al yukardaki kodları kullan