Enviando e-mail de confirmação, como?

[Igor FV 0]

Boa noite Comunidade.

 

Como fazer para enviar um e-mail automaticamente para o cliente que preenche um formulario informando o e-mail?

 

Estou usando o componente Aspmail para enviar os dados.

 

Abaixo vai o código que está funcionando corretamente, mas queria implementar para enviar um e-mail de confirmacao para o cliente.

 

Valeu amigos.

 

<%

 

Destino = "moura@mouraferramentas.com.br"

servidor = "mail.mouraferramentas.com.br"

titulo = "Formulário Online"

 

'Retirar dados do formulário

 

nome = Request("nome")

email = Request("email")

'Criar objeto

 

Set Mail = Server.CreateObject("Persits.MailSender")

 

' Criar corpo da mensagem

strBody = strBody & "<b><font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#26416A'>"

strBody = strBody & "Dados do Usuário <br><br>"

strBody = strBody & "</font></b>"

strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#26416A'>"

strBody = strBody & "Nome: "

strBody = strBody & "<b>" & nome & "</b><br><br>"

strBody = strBody & "E-mail: "

strBody = strBody & "<b>" & email & "</b><br><br>"

strBody = strBody & "</font>"

 

 

'Propriedades do ASPMAIL

Mail.Host = servidor

Mail.Port = 25 ' Valor opcional. 25 é a porta de erro

Mail.From = "moura@mouraferramentas.com.br"

Mail.FromName = email ' Opcional

Mail.Subject = titulo

Mail.Body = strBody

Mail.IsHTML = True

Mail.AddAddress Destino

Mail.Send

 

 

' Controlar erros do ASPMAIL

 

If Err <> 0 Then

Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description

Else

Response.Redirect("confirma.asp")

End If

 

'Destruir o aspmail

Set Mail = Nothing

 

%>

[FabricioGomes 0]

Como fazer para enviar um e-mail automaticamente para o cliente que preenche um formulario informando o e-mail?

Do mesmo jeito, cria o objeto, define as propriedades e manda...na tela de confirmacao, voce ira enviar para a pagina que manda o email, atraves de get ou post... nessa pagina você coloca um codigo como este

'Destruir o aspmailSet Mail = Nothing

Coitado do AspMail... :) Abraços

[Igor FV 0]

Amigo não entedi, poderia explicar melhor como fazer isso. Se puder por essa linha no meu código, irei agradece-lo muito.Valeu.

[FabricioGomes 0]

quase igual ao codigo acima...

voce so vai mudar os emails

 

em vez do usuario manda para voce

voce manda para o usuario

 

Mail.From = destino

Mail.FromName = "moura Ferramentas"

Mail.Subject = titulo

Mail.Body = strBody

Mail.IsHTML = True

Mail.AddAddress email

 

no strbody voce escreve o texto do email para o usuario...

 

ok?

[Igor FV 0]

Amigo mas nesse caso, os dados não irão para o e-mail designado, mas sim para o e-mail especificado informado pelo cliente no formulário.O que eu quero é que seja enviado um e-mail para o cliente, após ele informar no formulário, tipo "Seja bem vindo. e etc" e outro para o meu e-mail com os dados do cliente.Entedeu amigo?Muito obrigado pela atenção e um grande abraço.