enviar e-mail para cliente
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
Posts
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; } }
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,
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
Clique aqui para fazer login e interagir na Comunidade :)