Enviar email pelo delphi quando eu selecinar uma pessoa

Question

Pessoal eu tenho um programa e � consigo ...
Eu quero que ele grave tudo que tive no edit1,edit2,edit3 e mande um mail pra pessoa que eu selecione, do que ele gravo, como se fose uma mala direta se alquem sabe como eu fasso isso me mande um mail...

Meu mail joilsonjuara@hotmail.com

Obrigado!!!!!

[/i]

Oscar Candido · Answer

Para enviar o email use o componente NMSMTP.

smtp.postmessage.toAddress.clear;
nmsmtp.postmessage.toAddress.Add(DESTINAT�RIO);
nmsmtp.postmessage.FromAddress:=E-MAIL DO REMETENTE
smtp.PostMessage.FromName:=NOME DO REMETENTE
nmsmtp.userid :=LOGIN DA CONTA DE EMAIL
nmsmtp.host := SERVIDOR DE SMTP
nmsmtp.postmessage.subject :=ASSUNTO;
nmsmtp.postmessage.body.clear;
nmsmtp.postmessage.body.add(Edit1.text);
nmsmtp.postmessage.body.add(Edit2.text);
nmsmtp.postmessage.body.add(Edit3.text);
...
nmsmtp.connect;
nmsmtp.sendmail;
nmsmtp.disconnect;

F�rum Enviar email pelo delphi quando eu selecinar uma pessoa #244292