Formulário Com Auto Responder

[Flah]

E ai pessoal!

Eu de novo...

Dessa vez o problema é que estou reformulando o formulário de orçamento do site.

Queria colocar um recurso de auto resposta, porque ai o cara ia saber que a solicitação dele foi enviada.

Busquei na net, e achei o seguinte arquivo:

<%

'  Atribuindo os dados do formulário submetido as váriveis strNome e strEmail

'

strNome = Trim(Request.Form("nome"))

strEmail = Trim(Request.Form("email"))

     

'  Agora vamos criar uma conexão com o CDONTS para enviar os dados

'  submetidos para o webmaster do site.

'  O Email será enviado pelo usuário recém cadastrado

  Set objMail = Server.CreateObject("CDONTS.NewMail")

  objMail.To = "seuemail@seu.dominio"

  objMail.From = strEmail     

  objMail.Subject = "Solicito cadastro no site!"

' Vamos criar agora uma mensagem padrão a ser enviado para o webmaster

' vbcrlf = quebra de linha

strMsgParaCadastro = "Nome: " & strNome & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"

  objMail.Body = strMsgParaCadastro

  objMail.Send

' Email para o webmaster enviado, portanto fechamos a conexão com o CDONTS

  Set objMail = nothing

' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento

' ao usuário recém cadastrado.

strMsgObrigado = "Olá " & strNome & vbcrlf

strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf

strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf

strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf

strMsgObrigado = strMsgObrigado & "Vinicci brindes"

' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário.

      Set objMail = Server.CreateObject("CDONTS.NewMail")

      objMail.From = "seuemail@seu.dominio"

      objMail.To = strEmail    ' observe

      objMail.Subject = "Cadastro!"

      objMail.Body = strMsgObrigado

     

      objMail.Send

' Pronto. Um email de agradecimento com uma mensagem personalizada com o nome

' de cada usuário foi enviado por email.

' Simples e muito eficiente

%>

Porém, não sei como fazer a interação com o html...

Preciso de mais dados a serem enviados tanto para o webmaster quanto para o visitante tenho uma vaga idéia de como fazer isso.. Em resumo: estou andando de vênda nos olhos num terreno cheio de bomba!! heheheh

Se alguém puder me ajudar, eu agradecerei muitooooooo!!

[cyberalexxx]

exemplo:

<%

'  Atribuindo os dados do formulário submetido as váriveis strNome e strEmail

'

strNome = Trim(Request.Form("nome"))

strEmail = Trim(Request.Form("email"))

     

'  Agora vamos criar uma conexão com o CDONTS para enviar os dados

'  submetidos para o webmaster do site.

'  O Email será enviado pelo usuário recém cadastrado

  Set objMail = Server.CreateObject("CDONTS.NewMail")

  objMail.To = "seuemail@seu.dominio"

  objMail.From = strEmail     

  objMail.Subject = "Solicito cadastro no site!"

' Vamos criar agora uma mensagem padrão a ser enviado para o webmaster

' vbcrlf = quebra de linha

strMsgParaCadastro = "Nome: " & strNome & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "-----------------------------" & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "Estou incluindo dados a mais na mensagem" & vbcrlf

  objMail.Body = strMsgParaCadastro

  objMail.Send

' Email para o webmaster enviado, portanto fechamos a conexão com o CDONTS

  Set objMail = nothing

' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento

' ao usuário recém cadastrado.

strMsgObrigado = "Olá " & strNome & vbcrlf

strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlf

strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlf

strMsgObrigado = strMsgObrigado & "Abraços," & vbcrlf

strMsgObrigado = strMsgObrigado & "Vinicci brindes" & vbcrlf

strMsgObrigado = strMsgObrigado & "Adicionando mais informações"

' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário.

      Set objMail = Server.CreateObject("CDONTS.NewMail")

      objMail.From = "seuemail@seu.dominio"

      objMail.To = strEmail    ' observe

      objMail.Subject = "Cadastro!"

      objMail.Body = strMsgObrigado

     

      objMail.Send

' Pronto. Um email de agradecimento com uma mensagem personalizada com o nome

' de cada usuário foi enviado por email.

' Simples e muito eficiente

%>

Da uma olhada na parte em vermelho

[Flah]

AÊ!! Obrigadaço!

Só mais um probleminha....

como seria o arquivo em html correspondente a esse formulário?

:S (flah, muito perdida!!!)

[smez]

tenho um sistema que você cria uma pagina para o formulario e outra pra resposta

fica + facil

[dark0]

AÊ!! Obrigadaço!

Só mais um probleminha....

como seria o arquivo em html correspondente a esse formulário?

:S (flah, muito perdida!!!)

como assim?

você diz setar o atributo no componente para enviar o email no formato HTML?