Mudanças entre as edições de "TPHEmail"
(Criou página com ' == Conceito == O objeto TPHEmail pode ser utilizado para realizar o envio de e-mail por meio de script. == Exemplo == Rest := NewPHConexaoREST; try Rest.Metodo :=...') |
|||
| Linha 7: | Linha 7: | ||
== Exemplo == | == Exemplo == | ||
| − | + | procedure EnviarEmail; | |
| − | + | var | |
| − | + | PHEmail:TPHEmail; | |
| − | + | begin | |
| − | + | PHEmail := NewPHEmail; | |
| − | + | try | |
| − | + | PHEmail.AssuntoStr := 'Assunto Teste'; | |
| − | + | PHEmail.UsarThread := False; | |
| − | + | PHEmail.Para := 'paulo@phsys.com.br'; | |
| − | + | PHEmail.SetCorpo('Corpo do e-mail'); | |
| − | + | PHEmail.AdicionarAnexo('C:\TempAnexo.txt'); | |
| − | + | //PHEmail.ExibirTelaEnvio; | |
| − | + | //if PHEmail.Confirmado then | |
| − | + | PHEmail.Enviar; | |
| + | finally | ||
| + | PHEmail.Free; | ||
| + | FecharProcesso; | ||
| + | end; | ||
end; | end; | ||
Edição das 16h32min 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 := 'paulo@phsys.com.br';
PHEmail.SetCorpo('Corpo do e-mail');
PHEmail.AdicionarAnexo('C:\TempAnexo.txt');
//PHEmail.ExibirTelaEnvio;
//if PHEmail.Confirmado then
PHEmail.Enviar;
finally
PHEmail.Free;
FecharProcesso;
end;
end;
