PHSYS - Wiki

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.Enviar;                                                   
   finally
     PHEmail.Free;
     FecharProcesso;                                          
   end;            
 end;