Mudanças entre as edições de "TPHEmail"
| Linha 15: | Linha 15: | ||
PHEmail.AssuntoStr := 'Assunto Teste'; | PHEmail.AssuntoStr := 'Assunto Teste'; | ||
PHEmail.UsarThread := False; | PHEmail.UsarThread := False; | ||
| − | PHEmail.Para := ' | + | PHEmail.Para := 'email@exemplo.com.br'; |
PHEmail.SetCorpo('Corpo do e-mail'); | PHEmail.SetCorpo('Corpo do e-mail'); | ||
PHEmail.AdicionarAnexo('C:\TempAnexo.txt'); | PHEmail.AdicionarAnexo('C:\TempAnexo.txt'); | ||
PHEmail.Enviar; | PHEmail.Enviar; | ||
finally | finally | ||
| − | PHEmail.Free; | + | PHEmail.Free; |
| − | |||
end; | end; | ||
end; | end; | ||
Edição das 16h37min de 14 de dezembro de 2020
Conceito
O objeto TPHEmail pode ser utilizado para realizar o envio de e-mail por meio de script.
Exemplo
procedure EnviarEmail;
var
PHEmail:TPHEmail;
begin
PHEmail := NewPHEmail;
try
PHEmail.AssuntoStr := 'Assunto Teste';
PHEmail.UsarThread := False;
PHEmail.Para := 'email@exemplo.com.br';
PHEmail.SetCorpo('Corpo do e-mail');
PHEmail.AdicionarAnexo('C:\TempAnexo.txt');
PHEmail.Enviar;
finally
PHEmail.Free;
end;
end;
