Ir para conteúdo

POWERED BY:

Arquivado

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

Faccruz

[Resolvido] Email personalizado com PasswordRecovery

Recommended Posts

Olá, estou usando o PasswordRecovery para recuperar a senha do usuário no Membership, está funcionando perfeitamente, configurei o SMTP e está enviando corretamente para o email cadastrado, mas gostaria de personalizar esse email, colocar tipo a imagem da empresa, uma mensagem quem o email foi gerado automaticamente

 

Atualmente está vindo assim o email

 

Retorne ao site e faça logon usando as informações a seguir.

Nome de Usuário: XXXXXXXX

Senha: YYYYYY

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aqui vai um exemplo:

 

 

Protected Sub PasswordRecovery1_SendingMail(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MailMessageEventArgs) Handles PasswordRecovery1.SendingMail

 

		Dim message As New System.Net.Mail.MailMessage

		Dim smtp As New SmtpClient

		Dim insUserEmail As String

		Dim Email As String = ""

		Dim Data As String

 

 

 

		Data = Server.UrlEncode("http://www.YOURWEBSITE.COM/")

		insUserEmail = Membership.GetUser(PasswordRecovery1.UserName).Email

		e.Message.IsBodyHtml = True

   

		e.Message.From = New MailAddress("email-infor@someemail.com")

		e.Message.To.Add(New MailAddress(insUserEmail))

		e.Message.Subject = "Information You Requested"

		e.Message.Body = "<html><p><p><p><p>To update your profile, click here : <p>" & _

						 "<a href=" & Data & "> Update Information</a><p><p><p>" & _

						 "<P><p><p></html>"

 

 

 

 

		If Page.IsValid Then

			smtp.Send(e.Message)

		Else : Exit Sub

			Response.AppendHeader("Refresh", "3; URL=../Login.aspx")

		End If

 

	End Sub

Obs: Retirado do fórum ASP.Net da Microsoft e não testado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu!! Funcionou perfeitamente

 

Agora que eu percebi... ele está enviando 2 emails, um com a senha e outro em branco... abaixo segue o código

 

Protected Sub PasswordRecovery1_SendingMail(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MailMessageEventArgs) Handles PasswordRecovery1.SendingMail
		Dim message As New MailMessage
		Dim smtp As New SmtpClient
		Dim email As String = ""
		Dim Data As String
		Dim insUserMail As String
		Dim insUserPwd As String

		Data = Server.UrlEncode("http://www.cybelar.com.br")
		insUserMail = Membership.GetUser(PasswordRecovery1.UserName).Email
		insUserPwd = Membership.GetUser(PasswordRecovery1.UserName).GetPassword

		e.Message.IsBodyHtml = True
		e.Message.From = New MailAddress("admin@cybelar.com.br")
		e.Message.To.Add(New MailAddress(insUserMail))
		e.Message.Subject = "Sua senha"
		e.Message.Body = "<html><center><font style=bold size=5 color=red>EMAIL GERADO AUTOMATICAMENTE, POR FAVOR NÃO RESPONDER. </font></center>"
		e.Message.Body += "<p><p><p><p>Olá " & PasswordRecovery1.UserName & "<p>"
		e.Message.Body += "Você está recebendo este email porque você (ou alguém se passando por você)<p>"
		e.Message.Body += "pediu para que enviassemos a sua senha de acesso ao site Informativo Comercial 2.0 - Cybelar.<p>"
		e.Message.Body += "<p> Para trocar a senha, solicite para o email: <a href=""mailto:xxx@xxx.com.br"">xxx@xxx.com.br</a>"
		e.Message.Body += "<p>			   Sua senha é: <h1>" & insUserPwd & "</h1></html>"

		If Page.IsValid Then
			smtp.Send(e.Message)
		Else
			Exit Sub
			Response.AppendHeader("Refresh", "3; URL=../Login.aspx")
		End If

Compartilhar este post


Link para o post
Compartilhar em outros sites

Depois do Send, faz um e.Cancel = true para cancelar o envio do outro e-mail padrao.

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.