Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Configuraçao do email resposta, como fazer?

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

beleza, amigos...Como configurar um email resposta para ser enviado automaticamente para o email de um usuario que entrar em contato com o meu site, atraves de um formulario....Esse é o codigo da minha página q esta enviando os dados, esta funcionando corretamente. So quero configurar a funcao para enviar, e como fazer isso.envia_email.asp____________________________________________________________________<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%'Vamos recuperar os valores do formulárionome = Request.Form("nome")email = Request.Form("email")ddd = Request.Form("ddd")telefone = Request.Form("telefone")cidade = Request.Form("cidade")estado = Request.Form("estado")assunto = Request.Form("assunto")mensagem = Request.Form("mensagem")' Definindo uma variavel auxiliarsch = "http://schemas.microsoft.com/cdo/configuration/"' Criando o objeto de configuração do CDOSet cdoConfig = Server.CreateObject("CDO.Configuration")' Definindo as configurações cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.mouraferramentas.com.br" cdoConfig.Fields.Item(sch & "sendusername") = "moura=mouraferramentas.com.br" cdoConfig.Fields.Item(sch & "sendpassword") = "moura" cdoConfig.fields.update ' Criando o objeto de msg do CDO Set cdoMessage = Server.CreateObject("CDO.Message") ' Associando as configurações ao obj Mensagem Set cdoMessage.Configuration = cdoConfig ' Definido variaveis da msg cdoMessage.From = "moura@mouraferramentas.com.br" cdoMessage.To = "moura@mouraferramentas.com.br" cdoMessage.Subject = ":: DADOS DO FORMULÁRIO DO SITE MOURA FERRAMENTAS ::" ' Utilize esta opção caso deseje definir o e-mail de resposta 'cdoMessage.ReplyTo = "emaildestino@provedor.com.br" texto = ":: MENSAGEM DO WEBSITE MOURA FERRAMENTAS ::" nome = "NOME: "&nomeemail = "E-MAIL: "&emailddd = "DDD: "&dddtelefone = "TELEFONE: "&telefonecidade = "CIDADE: "&cidadeestado = "ESTADO: "&estadomensagem = "MENSAGEM: " &mensagem cdoMessage.TextBody = texto &VBCRLF&VBCRLF&nome& VBCRLF&VBCRLF&email& VBCRLF&VBCRLF&ddd& VBCRLF&VBCRLF& telefone & VBCRLF&VBCRLF& cidade & VBCRLF&VBCRLF& estado & VBCRLF&VBCRLF& mensagem cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing 'Avisamos ao usuário que sua mensagem foi enviada corretamente.Response.Redirect("confirma.asp")%><!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-1" /><title>envia email</title></head><body></body></html>____________________________________________________________________Gostaria de sugestoes...valeu amigos....

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

No seu provedor não te da esta opção?No provedor em que assino, tenho esta opção para configurar um e-mail auto-resposta, toda vez em que recebo um e-mail, ele automaticamente envia um novamente com uma mensagem que inseri.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito