Array
(
)

enviar email

Cesarpir
   - 02 jun 2005

Oi pessoal, por favor alguem tem algum exemplo, dica ou sugestão de como enviar email pelo delphi .net, fiz layout para fale conosco, só falta enviar :D

Agradeço desde já

César


N1
   - 02 jun 2005

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


Cesarpir
   - 09 jun 2005

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

César