Persits Mail İle Mail Gönderimi Not : (Sunucunuzda Bileşen Yüklü Olmalı)
<!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önderimi</title>
</head>
<%
' strHost Genelde localhost olur
strHost = "localhost"
If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' Mail server
   Mail.Host = strHost
   Mail.From = Request("From") ' From address
   Mail.FromName = Request("FromName") ' Optional
   Mail.AddAddress Request("To")
   ' message subject
   Mail.Subject = Request("Subject")
   ' message body
   Mail.Body = Request("Body")
   strErr = ""
   bSuccess = False
   On Error Resume Next
   Mail.Send 
   If Err <> 0 Then
      strErr = Err.Description
   else
      bSuccess = True
   End If
End If
%>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
<% = Request("To") %> Mail Gönderildi
<% End If %>
<FORM METHOD="POST" ACTION="?">
<TABLE width="397" CELLPADDING=2 CELLSPACING=0 BGCOLOR="#E0E0E0">
<TR>
   <TD>Gönderen Host :</TD>
   <TD><B><% = strHost %></B></TD>
</TR>
<TR>
   <TD>Gönderici Mail Adresi:</TD>
   <TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
   <TD>Gönderici ismi:</TD>
   <TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
   <TD>Gönderilecek Mail Adresi :</TD>
   <TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
   <TD>Mail Başlığı :</TD>
   <TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
   <TD>Mail Yazısı:</TD>
   <TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
   <TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="GONDER">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>