Escrever um algoritmo para escrever um email

1 Resposta

  • Tay

    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;

Clique aqui para adicionar a sua resposta.