Fórum Envio Emails #358160

      if IBQuery3.FieldByName(´FL_ANEXAR_CORPO_EMAIL´).AsString = ´S´ then
      begin
        IdMessage1.Encoding    := meMIME;
        IdMessage1.ContentType := ´multipart/alternative´;

        arquivo := trim(StringReplace(IBQuery3.FieldByName(´DS_ENDERECO_CHART´).AsString,´"´,´´,[rfReplaceAll]));

        TIdAttachmentFile.create(IdMessage1.MessageParts,arquivo);

        TextoHtml := TIdText.Create(IdMessage1.MessageParts);
        TextoHtml.ContentType := ´text/html´;
        TextoHtml.Body.Add(PageProducer1.Content);
      end;