Fórum enviar e-mail para cliente #22897
03/04/2007
0
Gostaria de saber como enviar um e-mail de confirmação de cadastro para um cliente assim que ele se cadastra..
alguem se habilita . . .
Camisa
Curtir tópico
+ 0Posts
20/04/2007
Pedro Carvalho
public string EnviaEmail(string email)
{
try
{
System.Text.StringBuilder sbcorpo = new System.Text.StringBuilder();
sbcorpo.Append(@"<br>Prezado(a) Senhor(a),<br><br> Sua mensagem aqui ");
EmailMessage emailMessage = new EmailMessage();
emailMessage.FromAddress = new EmailAddress("email_de_quem_esta_mandando@bol.com.br");
emailMessage.AddToAddress(new EmailAddress(email));
emailMessage.Subject = @"SUA MENSAGEM DE CADASTRO AQUI";
emailMessage.HtmlPart = new HtmlAttachment("<html><body><p>" + sbcorpo.ToString() + "</p><html>");
SmtpServer smtpServer = new SmtpServer("servidor_de_email");
smtpServer.SmtpAuthToken = new SmtpAuthToken("usuario_do_servidor_email", "senha_do_usuario_servidor_email");
emailMessage.Send(smtpServer);
return "OK";
}
catch (Exception e)
{
return e.Message;
}
}
Gostei + 0
20/04/2007
Carlosmaxx
fname é Friendly Name, ao invés de mostrar o endereço de quem enviou, mostra o Friendly Name.
É bem simples, e no corpo, você pode usar formatação HTML.
Imports System.Net.Mail
Imports System.Net
...
Public Function EnviaEmail(para As String, de As String, fname As String, assunto As String, corpo As String)
´Criando novo email
Dim mail As New MailMessage()
Dim smtp As New SmtpClient("172.17.5.7", 25)
´Configurando endereço
mail.From = New MailAddress(de, fname) ´fname é Friendly Name
mail.To.Add(para)
´Configurando conteúdo
mail.Subject = assunto
mail.Body = corpo
mail.IsBodyHtml = True
Try
´Enviando a mensagem
smtp.Send(mail)
Return "Email enviado com sucesso."
Catch ex As Exception
Return "ERRO: Problemas na rotina de envio de email."
End Try
Abraços,
Gostei + 0
20/04/2007
Carlosmaxx
Imports System.Net.Mail
Imports System.Net
...
Public Function EnviaEmail(para As String, de As String, fname As String, assunto As String, corpo As String)
´Criando novo email
Dim mail As New MailMessage()
Dim smtp As New SmtpClient("172.17.5.7", 25)
´Configurando endereço
mail.From = New MailAddress(de, fname) ´fname é Friendly Name
mail.To.Add(para)
´Configurando conteúdo
mail.Subject = assunto
mail.Body = corpo
mail.IsBodyHtml = True
Try
´Enviando a mensagem
smtp.Send(mail)
Return "Email enviado com sucesso."
Catch ex As Exception
Return "ERRO: Problemas na rotina de envio de email."
End Try
End Function
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)