| Montando um Fale Conosco usando AspMail |
| Opções de usuário |
0%
100%
(1 voto)
|
|
Obrigado por avaliar essa resposta.
|
Você precisa criar três arquivos. Um formulário, o arquivo que vai
criar o objeto usando aspmail para enviar e uma tela de obrigado.
Detalho para você o conteúdo dos três.
Arquivo: default.asp
Arquivo: enviar.asp
<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto
'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "suporte@superhospedagem.com.br"
sNameTo = "Formulário de Exemplo"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
'Host para envio de emails
Mailer.RemoteHost = "mail.seudominio.net"
Mailer.AddRecipient sNameTo, sEmailTo
Mailer.Subject = sAssunto & " - E-mail"
'Monta a texto para o envio
strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sText
Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
if Mailer.SendMail then
Response.Redirect "obrigado.asp"
else
' Se não for enviado mostra o erro que ocoreu
Response.Write ("Ocorreu um erro.
")
Response.Write ("O Erro é " & Mailer.Response)
end if
%>
Arquivo: obrigado.asp
Muito Obrigado !!
Sua Mensagem foi enviada com sucesso.
|
| Comentário dos Visitantes |
|
Sem comentário de visitantes. Postar comentário
|
| Questões relacionadas |
|
Sem questões relacionadas.
|
Search the Knowledgebase
Visualizar Categoria
Imprimir essa página
Enviar essa página para email
Postar comentário