with IdMsgSend do
                    begin
                      Body.Text := [네용]
                      From.Text   := [보내는 사람]                       Recipients.EMailAddresses := [받는사람]
                      Subject     := [제목]                      ContentType := 'TEXT/HTML';
                      CharSet     := 'KS_C_5601-1987';
                    end;

                    if SMTP.Connected then SMTP.Disconnect;

                    SMTP.Host     := 'XXXX';
                    SMTP.UserId   := 'XXXX';
                    SMTP.Password := 'XXXX';

                   //연결
                   SMTP.Connect;
                   //보내기
                   try
                      SMTP.Send(IdMsgSend);
                   finally
                      SMTP.Disconnect;
                   end;

위와 같이   IdMessage,IdSMTP 컴포넌트를 사용해서 만들었습니다.
그리고 html로 해서 보냈습니다
그런데 첨부파일이 없을때는 HTML로 메일이 제대로 갑니다만 첨부파일이 있을때는 HTML로 된 메일이 제대로 안갑니다. 메일에 HTML소스가 다 보여집니다.
어떻게 하면 되나요?
답변부탁드립니다