Question

escrever um algoritmo para escrever um email

Answer 1

Utilizando o X-Mailer é possível enviar um e-mail. Testei no Lazarus, mas se não me engano o pascalzim tem uma certa limitação.

var

 Mail: TSendMail;

begin

Mail := TSendMail.Create;

try

   // Mail

   Mail.Sender := 'test <[email protected]>';

   Mail.Receivers.Add('[email protected]');

   Mail.Subject := 'Ola!';

   Mail.Message.Add('Como você está?');

   mail.Attachments.Add('C:\imagem.jpg');  // Opcional <--

   // SMTP

   Mail.Smtp.UserName := '[email protected]';

   Mail.Smtp.Password := 'minhasenha';

   Mail.Smtp.Host := 'smtp.live.com';

   Mail.Smtp.Port := '587';

   //Mail.Smtp.SSL := True;

   mail.Smtp.FullSSL:=false;

   Mail.Smtp.TLS := True;

   Mail.Send;

   ShowMessage('SUCESSO :) ');

 {except

   on E:Exception do

 

 end;}

 finally

   Mail.Free;

 end;

end;