| |
We offer the
following codes on free basis. We do not offer any support
and are not liable for any issues that may arise due to the
use of such codes.
'PLEASE CUT AND PASTE THE CODING BELOW AND SAVE THE FILE AS
" mail.asp ".
'AS per the Govt Of India regualtions , bulk mailing is
considered a spam and hence your account will be deleted
immedietly 'while bulk mailing. Hence avoid bulk mailing.
This program is strictly for non-bulk mailing application
only.
'If found to be abusing with bulk mail, your domain will be
deleted without any prior notice.
' strHost = "mail.yourdomain.com"
' We not offer support for this coding.
' Please note that either one of the email id
'i.e. from email or to email should from your domain name.
Else, the code will throw an error " this server requires
'authentication"
<%
' change to address of your own SMTP server
strHost = "mail.yourdomain.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
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 ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<HTML>
<HEAD>
<TITLE>FORM MAIL</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<H2>FORM TO MAIL</h2>
<% If strErr <> "" Then %>
<h3><FONT COLOR="#FF0000">Error occurred: <I><% = strErr
%></I></FONT></h3>
<% End If %>
<% If bSuccess Then %>
<h3><FONT COLOR="#00A000">Success! Message sent to <% =
Request("To") %>.</FONT></h3>
<% End If %>
<FORM METHOD="POST" ACTION="mail.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Host (change as necessary in script):</TD>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD>From (enter sender's address):</TD>
<TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
<TD>FromName (optional, enter sender's name):</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
<TD>To: (enter one recipient's address):</TD>
<TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
<TD>Body:</TD>
<TD><TEXTAREA NAME="Body" rows="1" cols="20"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send
Message"></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML> |
|
