Escrever um algoritmo para escrever um email
1 Resposta
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;
Mais perguntas de Informática
Top Semanal
Top Perguntas
![Toda Materia](https://escolaeducacao.org/assets/images/element/01.webp)
Você tem alguma dúvida?
Faça sua pergunta e receba a resposta de outros estudantes.