escrever um algoritmo para escrever um email
Soluções para a tarefa
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.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;