enviar email

Veja se isto serve:

1-acrescente em uses a cláusula:System.Web.Mail

2-A partir de http://delphi.about.com adaptei o código abaixo:
(no evento onclick de um button)


var
msg : System.Web.Mail.MailMessage;
begin
msg := MailMessage.Create;
try
begin
with msg do
begin
From := ´fulano@empresa.com.br´;
&To := ´ciclano@ciclano.com.br´;
Subject := ´título qualquer´;
Body := ´corpo da mensagem´;
BodyFormat := System.Web.Mail.MailFormat.Text;
end;
SmtpMail.SmtpServer := ´smtp do seu provedor´;
SmtpMail.Send(msg) ;
end
except on e : Exception do
response.Write(´ocorreu um erro no envio do e-mail´);
end;
end;

para mais detalhes veja no help do Delphi, procure por MailMessage

Obrigado vou testar somente agora :oops: , estava fora, desculpe pela demora em te agradecer !

César