Enviando e-mail em Delphi .NET
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;