Buscar por:

Enviando e-mail em delphi .net

Código

{Enviando uma mensagem de e-mail (até mesmo com anexos) em Delphi para .NET (ASP.NET ou WinForms) é muito simples. Você não tem que aprender sintaxes complicadas e outros comandos para alcançar a tarefa. 

O namespace de System.Web.Mail provê as classes para enviar e-mail em .NET. A classe de MailMessage administra os conteúdos de mensagem de correio; Classe de SmtpMail envia e-mail ao servidor de correio.   

Exemplo:}

uses System.Web.Mail;

...

var

  MailMessage: System.Web.MailMessage;

begin

  mailMessage := MailMessage.create;

  try

    with mailMessage do

    begin

      From := 'delphi.guide@about.com';

      &To := 'revista@clubedelphi.net';

      Subject := 'Assunto do e-mail';

      Body := 'Text do e-mail';

      BodyFormat := System.Web.Mail.MailFormat.Text;

   end;

    SmtpMail.SmtpServer := 'SMTPSERVER NAME';

    SmtpMail.Send(mailMessage) ;

  except on e: Exception do

    MsgResult.Text := 'Error!';

  end;

end;