emails autenticados com anexos

Olá Odacir,

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 

muito obrigado estarei testando, esse e envio com anexo? priciso enviar os pdfs gerados por email no form...

Desculpe Odacir, falha minha!!

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 

Segue código.


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

Olá Amigo, há mais alguma dúvida.

Estamos aguardando para encerrar o chamado.

Abs.

Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi

rodrigo pode fechar com esse codigo ja da uma luz aki pra mim...blz...um grande abraço e muito obrigado pela força...

Olá,

Disponha, estamos às ordens.

abs.