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;