TPHEmail
Conceito=
O objeto TPHEmail pode ser utilizado para realizar o envio de e-mail por meio de script.
Propriedades
| Nome | Tipo | Descrição | |||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| De | String | E-mail do responsável pelo envio. | |||||||||||||||||||||||||||
| Para | String | E-Mail do destinatário. Pode-se utilizar mais de uma e-mail utilizando a separação por ';'. | CC | String | E-Mail de destinatário de cópia. Pode-se utilizar mais de uma e-mail utilizando a separação por ';'. | CCO | String | E-Mail de destinatário de cópia oculta. Pode-se utilizar mais de uma e-mail utilizando a separação por ';'. | AssuntoStr | String | Descrição do assunto do e-mail. | CorpoStr | String | Descrição que será exibida no corpo do e-mail. | UsarThread | Boolean | Determina se o sistema vai aguardar o envio do e-mail ou se será iniciar thread para execução em segundo plano. | ExibirTelaEnvio | Boolean | Quando enviar, será exibida tela de envio de e-mail. | Confirmado | Boolean | Quando a propriedade 'ExibirTelaEnvio' estiver marcada, esta propriedade vai retornar verdadeira se o usuário confirmar o envio. | Confirmado | Boolean | Quando a propriedade 'ExibirTelaEnvio' estiver marcada, esta propriedade vai retornar verdadeira se o usuário confirmar o envio. | MostrarProcesso | Boolean | Caso estiver sendo utilizado objeto de exibição de processo, será exibido o procedimento que o e-mail esta executando. |
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;