Fórum emails autenticados com anexos #6173
28/05/2009
0
Odacir Zampolli
Curtir tópico
+ 0Posts
28/05/2009
Rodrigo Mourão
Enviar email no Asp.Net é muito simples. De uses nos Assemblies System.Net.Mail e System.Net.Configuration;
O código abaixo mostra um exemplo de como enviar o email.
const rmt = "rodrigocarreiro@gmail.com"; //O e-mail do remetentevar Email: MailMessage; Client: SmtpClient; begin Email := MailMessage.Create; Client := SmtpClient.Create; With Email do begin Email.To.Add(seudestinatario@provedor.com.br); Email.From = MailAddress.Create(remetenteEmail, "Rodrigo Carreiro", System.Text.Encoding.UTF8); Email.Subject = 'Assunto: Simples Assim'; Email.SubjectEncoding = System.Text.Encoding.UTF8; Email.Body = '<h1>Coloque o <b>conteudo<b> da msg aqui</h1>'; Email.BodyEncoding = System.Text.Encoding.UTF8; Email.IsBodyHtml = true; Email.Priority = MailPriority.High; end; client.Credentials = System.Net.NetworkCredential.Create(rmt, "SenhaGmailAqui"); client.Port = 587; client.Host = "smtp.gmail.com"; client.EnableSsl = true; try client.Send(Email); response.write('Enviado com sucesso !!!!'); except response.write('Erro ao Enviar !!!!'); end;end;
Espero ter ajudado.
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
30/05/2009
Odacir Zampolli
Gostei + 0
30/05/2009
Rodrigo Mourão
Não atentei para o titulo do post, que era com anexo. Ja estarei postando como colocar anexo.
Abs.
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
30/05/2009
Rodrigo Mourão
const
rmt = 'seuemail@gmail.com'; //O e-mail do remetente
var
Email: MailMessage;
Client: SmtpClient;
Anexo: Attachment;
begin
Email := MailMessage.Create;
Client := SmtpClient.Create;
With Email do
begin
&To.Add('rodrigocarreiro@rmfactory.com.br');
From := MailAddress.Create(rmt, 'Rodrigo Carreiro', System.Text.Encoding.UTF8);
Subject := 'Assunto: Simples Assim';
SubjectEncoding := System.Text.Encoding.UTF8;
Body := '<h1>Coloque o <b>conteudo<b> da msg aqui</h1>';
BodyEncoding := System.Text.Encoding.UTF8;
IsBodyHtml := true;
Priority := MailPriority.High;
Anexo := Attachment.Create(MapPath('~')+'\teste.txt');
Attachments.Add(Anexo);
end;
client.Credentials := System.Net.NetworkCredential.Create(rmt, 'senha do gmail');
client.Port := 587;
client.Host := 'smtp.gmail.com';
client.EnableSsl := true;
try
client.Send(Email);
response.write('Enviado com sucesso !!!!');
except
response.write('Erro ao Enviar !!!!');
end;
Abs
Gostei + 0
01/06/2009
Rodrigo Mourão
Estamos aguardando para encerrar o chamado.
Abs.
Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Gostei + 0
02/06/2009
Odacir Zampolli
Gostei + 0
02/06/2009
Rodrigo Mourão
Disponha, estamos às ordens.
abs.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)