Ir para conteúdo

POWERED BY:

Arquivado

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

lordstarlight

Ao enviar com CDONTS aparecer um nome para o

Recommended Posts

Acho que esse passo a passo ajuda!' 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 cadastradoSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.To = "email@do.webmaster.do.site"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 & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"objMail.Body = strMsgParaCadastroobjMail.Send ' Email para o webmaster enviado, portanto fechamos a conexão com o CDONTSSet objMail = nothing' Agora imediatamente, criamos a mensagem padrão que será enviada de agradecimento' ao usuário recém cadastrado.strMsgObrigado = "Olá " & strNome & vbcrlfstrMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site" & vbcrlfstrMsgObrigado = strMsgObrigado & "Breve você receberá mais informações." & vbcrlf & vbcrlfstrMsgObrigado = strMsgObrigado & "Abraços," & vbcrlfstrMsgObrigado = strMsgObrigado & "Webmaster"' Criando novamente outra conexão com o CDONTS para enviar o email ao usuário. Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.From = "email@do.webmaster.do.site"objMail.To = strEmail ' observeobjMail.Subject = "Seu cadastro em nosso site!"objMail.Body = strMsgObrigadoobjMail.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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Opa lordstarlightaquilo q te passei tava certo msm... pelo menos no CDOSYS eu testei e deu certo... soh q eh o seguinte tem q ter as aspas... faz assim:Mail.From = "'Fernando Bittencourt' <fernando.bittencourt@yahoo.com.br>"note as aspas simples entre meu nome... isso ae mano testa ai depois passa pra gente..Abrazzz

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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