Formail Com Cdonts

Devido à enorme solicitação de scripts para formmail, venho deixar a minha contribuição.

Este formmail, como descrito no título, usa o componente CDONTS para o envio da mensagem.

Seu servidor deve ter instalado este componente para o script funcionar.


formmail.html

<form action="script.asp" name="geral">
                  <table width="416" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="10" valign="top" bgcolor="#CCCCCC"><img src="/images/spacer.gif" width="10" height="10"></td>
      <td width="430" valign="top">
        <table width="387" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr valign="middle">
                            <td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome
                                :</font></strong></div></td>
                            <td width="10"><img src="/images/spacer.gif" width="5" height="5"></td>
                            <td width="284"> <input type="text" name="strnome" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
                            </td>
                          </tr>
                          <tr valign="middle">
                            <td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Empresa
                                :</font></strong></div></td>
                            <td>&nbsp;</td>
                            <td> <input type="text" name="strempresa" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
                            </td>
                          </tr>
                          <tr valign="middle">
                            <td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail
                                :</font></strong></div></td>
                            <td>&nbsp;</td>
                            <td> <input type="text" name="stremail" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
                            </td>
                          </tr>
                          <tr valign="middle">
                            <td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Telefone
                                :</font></strong></div></td>
                            <td>&nbsp;</td>
                            <td> <input type="text" name="strtelefone" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
                            </td>
                          </tr>
                          <tr valign="middle">
                            <td valign="middle" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Assunto
                                :</font></strong></div></td>
                            <td>&nbsp;</td>
                            <td> <input type="text" name="strassunto" size="56" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
                            </td>
                          </tr>
                          <tr valign="middle">
                            <td valign="top" width="93"> <div align="right"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Mensagem
                                :</font></strong></div></td>
                            <td>&nbsp;</td>
                            <td> <textarea name="strmensagem" wrap="VIRTUAL" cols="54" rows="8" style="COLOR: #ffffff; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal"></textarea>
                            </td>
                          </tr>
                          <tr valign="middle">
                            <td valign="top" width="93"> <div align="right"></div></td>
                            <td>&nbsp;</td>
                            <td>&nbsp;</td>
                          </tr>
                          <tr valign="middle">
                            <td valign="top" width="93"> <div align="right"></div></td>
                            <td>&nbsp;</td>
                            <td> <div align="right">
                                <input type="submit" name="Submit2" value="e n v i a r" size="10" style="COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; BACKGROUND: #FFFFFF; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #111111; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; FONT-SIZE: 7pt; FONT-WEIGHT: normal">
                              </div></td>
                          </tr>
                        </table>
      </td>
    </tr>
  </table>
</form>

script.asp

<%
Response.Buffer=true
Response.clear
Dim strBody,objMail
 
Set objMail = Server.CreateObject("Persits.MailSender")
       objMail.ResetAll

       objMail.AddAddress "seuemail@email.com.br" 'endereço do e-mail que receberá a mensagem

           objMail.Host = "mail.seuemail.com.br" 'endereço smtp

objMail.From = Request("stremail")
objMail.FromName = Request("strnome")
objMail.Subject = "Titulo da Mensagem" 'título da mensagem

strBody = "Dados: " & vbCrLf & vbCrLf & _
"Nome: "& Request("strnome") & vbCrLf & _
"Empresa: "& Request("strempresa") & vbCrLf & _
"E-Mail: "& Request("stremail") & vbCrLf & _
"Telefone: "& Request("strtelefone") & vbCrLf & _
"Assunto: "& Request("strassunto") & vbCrLf & _
"Mensagem: "& Request("strmensagem")
strBody = strBody & "."  
objMail.Body = strBody
   objMail.Send
   Set objMail = nothing

response.redirect "paginadeconfirmacao.asp"
%>

Até

-----------------------------------------------------------------------------------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:
http://forum.wmonlin...p?showforum=113

Edição feita por: Agente Linhares, 28/06/2005, 23:01.