Envio de email

[Monteiro]

Algum exemplo de envio de email pelo unigui?

[possidonio]

Monteiro,

 

Para enviar um e-mail, você pode utilizar os componentes IdSMTP normalmente.

 

Segue exemplo:

 

procedure TMainForm.EnviarEmail;

var

  Email: TIdMessage;

begin

  Email := TIdMessage.Create(nil);

  Email.Subject := 'Credenciamento';

  Email.Body.Add('Ola, ' + EdtNome.Text + ' voce se credenciou');

  Email.Body.Add('');

  Email.Body.Add('Confira seus dados, e entre em contato conosco em caso de erro.');

  Email.Body.Add('CPF: ' + EdtCPF.Text);

  Email.Body.Add('Telefone: ' + EdtCelular.Text);

  Email.Body.Add('');

  Email.Body.Add('A equipe agradece seu cadastro, em breve, entraremos em contato.');

  Email.Body.Add('');

  Email.Sender.Address := 'atendimento@xxxx';

  Email.From.Address := 'atendimento@xxxx';

  Email.ReplyTo.Add.Address := 'atendimento@xxxx';

  Email.Encoding := meMIME;

  Email.Recipients.Clear;

  Email.Recipients.EMailAddresses := EdtEmail.Text;

  Email.BccList.EMailAddresses := xxxx@xxxx';

 

  if not IdSMTPMain.Connected then

  begin

    try

      IdSMTPMain.Connect;

      IdSMTPMain.Send(Email);

    finally

      IdSMTPMain.Disconnect(True);

    end;

  end;

 

end;

 

Atenciosamente,

Possidônio Oliveira.