Quero que qdo o usuario envia um e-mail pelo site receba automaticamente no e-mail que cadastrou uma mensagem de agradecimento (vou usar: de: meu-email(padrao), para: e-mail cadastrado, assunto: resposta de e-mail, corpo: Obrigado por entrar em contato. Em breve estaremos respondendo ).
Se alguem puder me ajudar, agradeco
cod. html (da pagina)
<form action="AspMailForm.asp" method="post" align="center">
<p align="center">
<input type="hidden" name="host" value="smtp.origemweb.com.br">
<input type="hidden" name="from" value="websuportes@websuportes.com.br">
<input type="hidden" name="fromname" value="Websuportes">
<input type="hidden" name="subject" value="Contato E-Mail">
<input type="hidden" name="address" value="websuportes@websuportes.com.br">
<input type="hidden" name="type" value="html">
<input type="hidden" name="redirect" value="Concluido.asp">
<input type="hidden" name="onerror" value="ErrorPage.asp">
<input type="hidden" name="ignorefields" value="">
<input type="hidden" name="sort" value="true">
<b><font face="Verdana" color="#000080" size="2"><br>
<font color="#000000" size="4"> </font></font></b>
<center>
<table width="313">
<tbody>
<tr>
<td width="60" height="24"><font color="#000000" face="Arial" size="2"><b>Nome:
</b></font></td>
<td><font color="#800000"><b>
<input maxLength="40" name="Nome" size="40">
</b></font> </td>
</tr>
<tr>
<td><font color="#000000" face="Arial" size="2"><b>E-Mail:</b></font>
<td width="171"><font color="#800000"><b>
<input maxLength="40" name="E_mail" size="40">
</b></font></td>
</tr>
<tr>
<td colspan="2"> <p align="center"><font color="#800000"><b><font face="Arial" size="2" color="#000000">Comentários: </font><font face="Arial" size="2" color="#800000">
<br>
<textarea cols="40" name="Observacao" rows="6"></textarea>
<br>
<br>
<input type="submit" value="Enviar dados">
<input type="reset" value="Limpar dados">
</font></b></font></td>
</tr>
</tbody>
</table>
</center>
<p align="left">
</form>
</body>
</html>
Este é o cod. asp - chamado pelo html
<%@ Language=VBScript%>
<%Option Explicit
Response.Buffer = True
%>
<!-- #Include file="VBScriptConstants.inc" -->
<%
Dim Formulario
Dim Contador1, Contador2
Dim Temp1, Temp2
Dim Method
Dim Tipo
Dim Host
Dim From
Dim FromName
Dim Subject
Dim Address
Dim Body
Dim RedirectPage
Dim OnErrorPage
Dim IgnoreFields
Dim InternalNames
Dim Sort
InternalNames = "host;from;fromname;subject;address;type;onerror;redirect;ignorefields;sort"
InternalNames = Split(InternalNames, ";", -1)
Function SortArray(ByVal vArrayName)
Dim Troca
Dim Contador1, Contador2
For Contador1 = 0 To UBound(vArrayName, 2)
For Contador2 = (Contador1 + 1) To UBound(vArrayName, 2)
If StrComp(vArrayName(0, Contador1), vArrayName(0, Contador2), 1) = 1 Then
Troca = vArrayName(0, Contador1)
vArrayName(0, Contador1) = vArrayName(0, Contador2)
vArrayName(0, Contador2) = Troca
Troca = vArrayName(1, Contador1)
vArrayName(1, Contador1) = vArrayName(1, Contador2)
vArrayName(1, Contador2) = Troca
Else
End If
Next
Next
SortArray = vArrayName
End Function
Sub RedirectError(ByVal vErrorMsg)
Dim Temp1
If OnErrorPage = "" Then
Response.Write vErrorMsg
Else
Response.Clear
Response.Redirect(OnErrorPage & "?ErrorMsg=" & Server.URLEncode(vErrorMsg))
End If
End Sub
Function GuardaCampos(ByRef vHost, ByRef vFrom, ByRef vFromName, ByRef vSubject, ByRef vAddress, ByRef vTipo, ByRef vRedirectPage, ByRef vOnErrorPage, ByRef vIgnoreFields, ByRef vMethod, ByRef vSort)
Dim Temp()
Dim Contador1
Dim X
Dim Ignore
vIgnoreFields = Split(Request.Form("ignorefields"), ";", -1)
Contador1 = 0
For Each X In Request.Form
Ignore = False
ReDim Preserve Temp(1, Contador1)
For Contador2 = 0 To UBound(InternalNames)
If UCase(X) = UCase(InternalNames(Contador2)) Then Ignore = True
Next
For Contador2 = 0 To UBound(vIgnoreFields)
If UCase(X) = UCase(vIgnoreFields(Contador2)) Then Ignore = True
Next
If Not(Ignore) Then
Temp(0, Contador1) = X
Temp(1, Contador1) = Request.Form(X)
Contador1 = Contador1 + 1
End If
Next
GuardaCampos = Temp
vMethod = "post"
vHost = Request.Form("host")
vFrom = Request.Form("from")
vFromName = Request.Form("fromname")
vSubject = Request.Form("subject")
vAddress = Request.Form("address")
vTipo = UCase(Request.Form("type"))
vRedirectPage = Request.Form("redirect")
vOnErrorPage = Request.Form("onerror")
vSort = UCase(Request.Form("sort"))
End Function
Sub EnviaEmail
Dim Mail
Formulario = GuardaCampos(Host, From, FromName, Subject, Address, Tipo, RedirectPage, OnErrorPage, IgnoreFields, Method, Sort)
If IsEmpty(Formulario) Then
RedirectError("Erro: Não foi enviado nenhum dado para o servidor.")
End If
If IsEmpty(Host) Then
RedirectError("Erro: Não foi especificado nenhum servidor de smtp.")
End If
If IsEmpty(From) Then
RedirectError("Erro: É preciso especificar o endereço do remetente.")
End If
If IsEmpty(Address) Then
RedirectError("Erro: É preciso especificar um endereço de destino.")
End If
If (Sort = "TRUE") Then Formulario = SortArray(Formulario)
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
If Err <> 0 Then
RedirectError("Para utilizar o AspForm, é necessário que o Aspemail® esteja instalado corretamente no servidor. Por favor verifique e tente novamente<BR>")
Else
End If
Mail.Host = Host
Mail.From = From
Mail.FromName = FromName
Mail.AddAddress(Address)
Mail.Subject = Subject
If Tipo = "HTML" Then
Mail.IsHTML = True
Body = Body & "<HTML><HEAD></HEAD><BODY><TABLE WIDTH=""100%"">"
For Contador1 = 0 To UBound(Formulario, 2)
Body = Body & "<TR><TD ALIGN=""left"" VALIGN=""top"" WIDTH=""20%""><B>"
Body = Body & Formulario(0, Contador1)
Body = Body & "</TD><TD ALIGN=""left"" VALIGN=""top"" WIDTH=""80%""></B>"
Body = Body & Formulario(1, Contador1)
Body = Body & "</TD></TR><TR><TD> </TD></TR>"
Next
Body = Body & "</TABLE></BODY></HTML>"
Else
For Contador1 = 0 To UBound(Formulario, 2)
Body = Body & Formulario(0, Contador1) & ": "
Body = Body & Formulario(1, Contador1) & vbCRLF & vbCRLF
Next
End If
Mail.Body = Body
On Error Resume Next
Mail.Send
If Err <> 0 Then
RedirectError("Erro ao submeter email: " & Err.Description)
Else
If RedirectPage = "" Then
Response.Write "Formulário enviado com sucesso!"
Else
Response.Redirect(RedirectPage & "?ErrorMsg=" & Server.URLEncode("Formulário enviado com sucesso!"))
End If
End If
End Sub
%>
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="Microsoft FrontPage 4.0">
<TITLE>Processa Form</TITLE>
</HEAD>
<BODY>
<%EnviaEmail%>
</BODY>
</HTML>
