RecoveryPassword com envio CDOSYS

[wilsonJR 0]

Amigos,

 

Venho mais uma vez pedir a ajuda dos senhores.

 

Utilizo um RecoveryPassword em meu wibsite, sendo que o meu servidor utiliza para envio de e-mails o componente CDOSYS.

Pois bem, enviar um e-mail utilizando um formulario qualquer, por exemplo: colocando 3 textbox e um botao para envio eu consigo, pois o codigo eu coloco no proprio botao.

 

O que estou realmente querendo saber é: Como enviar um e-mail com a senha de um individuo cadastrado, utilizando a propriedade RecoveryPassoword.

 

Ressalto que eu sei utilizar este componente, mas, enviando pelo smtp do IIS; Com o CDOSYS não estou conseguindo. Dá erro !

 

Agradeço a atenção e a compreensão de todos e fico no aguardo de mais um auxilio. Obrigado!

 

Wilson Junior

[quintelab 91]

Este RecoveryPassword te retorna uma string com a senha? Como funciona?

 

Abraços...

[wilsonJR 0]

Este RecoveryPassword te retorna uma string com a senha? Como funciona?

 

Abraços...

O recoveryPassword do proprio VS2005.

O que devo fazer para configurar o web.config, para enviar e-mails utilizando o componente CDOSYS ?

 

Vale lembrar que o erro soh acontece na internet. Utilizando o localhost tá ok.

 

Obg!

[Oenning 0]

Não conheço esse componente CDOSYS, mas se você já está conseguindo enviar e-mails com ele, só precisa integrar no password recovery você pode usar o evento SendingMail do componente PasswordRecovery, dentro deste evento você pode enviar o e-mail da maneira que você quiser e no final você pode cancelar o envio do e-mail padrão usando isso:

e.Cancel = true;

Teoricamente é para funcionar, agora na prática eu nunca usei :)

[wilsonJR 0]

Não conheço esse componente CDOSYS, mas se você já está conseguindo enviar e-mails com ele, só precisa integrar no password recovery você pode usar o evento SendingMail do componente PasswordRecovery, dentro deste evento você pode enviar o e-mail da maneira que você quiser e no final você pode cancelar o envio do e-mail padrão usando isso:

e.Cancel = true;

Teoricamente é para funcionar, agora na prática eu nunca usei :)

 

Muito bom Oenning, já fiz isso. O meu problema agora é como saber o e-mail do usuario e como enviar a senha. Vale ressaltar que a senha é Hashing e obviamente terá que ser criada outra (ramdom) para envio.

 

Segue exemplo de como está meu Evento SendingMail:

 

Dim myMail = CreateObject("CDO.Message")
		myMail.Subject = "Assunto OK"
		myMail.From = "Email@servidorEmail.com.br"  <-- Meu servidor de E-mail OK
		myMail.To = "para quem" <-- Aqui é onde devo informar o e-mail do usuário conforme id reconhecido e autenticado pelo componente 
		myMail.TextBody = "Corpo do texto"  <-- Como informar o Login e a senha criada ?
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		'Name or IP of remote SMTP server
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Email.servidor.com.br"  <-- Meu servidor
		'Server port
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		'authenticate
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		'email address for authentication
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Meu Login"
		'email password
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Minha Senha"
		myMail.Configuration.Fields.Update()
		myMail.Send()
		myMail = Nothing
e.Cancel = true

Pronto! Agora só falta saber o q expliquei lá em cima. Valeu!

 

Wilson Junior

[Oenning 0]

Alguns dados você consegue pegar.

Veja o conteudo da variavel e.Message. Ali tem para quem vai o e-mail, o conteudo, header etc.