Mandar email quando cadastrar

[Alexandre Di Salvo 0]

Olá a todos. :)

 

Venho mais uma vez pedir a ajuda dos colegas.

 

É o seguinte... tenho um cadastro de usuários, após esse usuários se cadastrar ele fica como pendente no sistema, a espera de alguma administrador liberar seu acesso. Isso que fiz criando um campo chamado situacao na tabela de usuários.

 

Existe uma tela que o administrador visualiza todos os usuários que estão a espera de uma liberação. Essa tela tenho pronta e tudo funcionando. Mas me veio a necessidade de quando eu liberar o acesso, mandar um email para esse usuário informando que ele já está autorizado para acessar o sistema.

 

Tenho a ideia de recuparar alguns dos seus dados, tais como nome, email e esses dados usar para enviar a mensagem. Mas não tenho ideia de como enviar essa mensagem.

[hargon 64]

No mesmo arquivo que faz o update da situação, insira o código para enviar o e-mail.

[xanburzum 169]

Quando o admin estiver na tela para visualizar a liberação,

você recupera o o id do user e abaixo apos liberar o acesso, você dispara um simples codigo para envio de email, pode usar o CDOSYS, apenas passe os parametros corretos, from e no body você coloca a mensagem de liberacaun

[Alexandre Di Salvo 0]

Opa. Ótimo.

 

Estava pensando em usar esse código aqui do CDONTS:

 

<%
Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "eu@dominio.com.br" ' e-mail de quem esta enviando a mensagem 
Mailer.To = "conta@destinatario.com.br" ' e-mail de quem vai receber a mensagem 
Mailer.CC = "conta@destinatario.com.br" ' Com Cópia 
Mailer.BodyFormat = 1 ' parametro de formatação 
Mailer.MailFormat = cdoMailFormatText ' parametro de formatação 
Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
Mailer.Subject = "Assunto do E-mail" 
Mailer.Body = "Corpo da Mensagem" 
Mailer.Send 
Set Mailer = Nothing 
%>

Irei recuperar o email do cara via um recordset e por nesse código de envio?

[hargon 64]

Correto.

 

Mas utilize CDOSYS ao invés de CDONTS.