Enviar email pelo delphi quando eu selecinar uma pessoa

Delphi

24/07/2004

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]


Fabio_lamber

Fabio_lamber

Curtidas 0

Respostas

Oscar Candido

Oscar Candido

24/07/2004

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;


GOSTEI 0
POSTAR