PHSYS - Wiki

O procedimento NewPHEmail permite que seja incluído as informação para o envio do e-mail.

Sintaxe

procedure EnviarEmail;

Parâmetros

Nome	Tipo	Descrição
AssuntoStr	String	Define o assunto do e-mail
Para	String	Destinatário do e-mail
SetCorpo	String	Define o corpo do e-mail
AdicionarAnexo	String	Adiciona o arquivo no anexo do e-mail
Enviar	Boolean	Realizado o envio do e-mail

Exemplos

procedure EnviarEmail;

var
  email:TPHEmail;                                           
begin
  email := NewPHEmail;
  try
    email.AssuntoStr := 'Assunto Teste';
    email.Para       := 'email@exemplo.com.br';
    email.SetCorpo('Corpo do e-mail');
    email.AdicionarAnexo('C:\TempAnexo.txt');      
    email.Enviar;                                                   
  finally
    email.Free;                                        
  end;            
end;
begin
  EnviarEmail()              
end.