Buscar por:

Envio de e-mail pelo delphi

Código

   Coloar os componetes NMPOP3 e NMSMTP, todos da paleta FastNet.

   Aqui o componente NMPOP3 está com o nome de POP3 e o NMSMTP com o nome de SMTP

   POP3.AttachFilePath := '.';

   POP3.DeleteOnRead := FALSE;

   POP3.ReportLevel := Status_Basic;

   POP3.TimeOut := 20000;

   POP3.Host := 'pop3.servidor.com.br';

   POP3.Port := 110;

   POP3.UserID := 'Minha identificação';

   POP3.Password := 'Minha senha';

   POP3.Connect;

   if not POP3.Connected then

   Begin

      ShowMessage('Conexão não realizada!');

      Exit;

   End

   else POP3.Disconnect;

   SMTP.ClearParams := TRUE;

   SMTP.Host :='smtp.servidor.com.br';

   SMTP.Port := 25;

   SMTP.UserID := 'Minha identificação';

   SMTP.Connect;

   If not SMTP.Connected then

   Begin

      ShowMessage('Conexão smtp não feita!');

      exit;

   End;

   SMTP.PostMessage.Body.Clear;

   SMTP.PostMessage.ToAddress.Clear;

   SMTP.PostMessage.FromAddress := 'Meu E-Mail';

   SMTP.PostMessage.FromName := 'Meu nome';

   SMTP.PostMessage.Body.Add('Texto do E-Mail!');

   SMTP.PostMessage.Subject := ('Assuntdo E-Mail');

   SMTP.PostMessage.Attachments.Add('c:anexo.txt');

   SMTP.PostMessage.ToAddress.Add('E-Mail de destino');

   SMTP.SendMail;

   ShowMessage('E-Mail enviado com sucesso!');