Fórum Indy com HTML #351543

      with SMTP do
      begin
        Host := DMVendas.cdsEmailSERVIDORSMTP.AsString;
        Username := DMVendas.cdsEmailUSUARIO.AsString;
        Password := DMVendas.cdsEmailSENHA.AsString;
        if DMVendas.cdsEmailUSALOGIN.AsString = ´S´ then
          AuthenticationType := atLogin;
        Connect;
      end;
      with IdMessage do
      begin
        //Remetente
        From.Address := DMVendas.cdsEmailEMAIL.AsString;
        From.Name := DBEdit1.Text;
        ReplyTo.EMailAddresses := DMVendas.cdsEmailEMAIL.AsString;
        //Destinatario
        Recipients.EMailAddresses := ´v******@****.com.br´;
        //Mensagem
        Subject := ´Envio de pedido - Representante: ´ + DBEdit1.Text + ´ - ´ + DateToStr(DBDateTimePicker1.Date);
        Body.Add(´Número do pedido: ´ + DMVendas.cdsCabecaVendasCODVENDAS.AsString);
        Body.Add(´Data para Entrega: ´ + DMVendas.cdsCabecaVendasDTENTREGA.AsString);
        if DMVendas.cdsCabecaVendasCLINOVO.AsString = ´S´ then
          Body.Add(´ATENÇÃO CLIENTE NOVO´); <AQUI>
        Body.Add(´------------´);
        Body.Add(´Atenciosamente, ´);
        Body.Add(DBEdit1.Text);

        MessageParts.Clear;
      end;