SMTP.Username := UserName;
   SMTP.Password := PassWord;
   SMTP.Host := HostAddress;
   SMTP.Port := 25;
   SMTP.Connect;

   try
     with IdMsgSend do
     begin
         Body.Assign(Memo1.Lines);
         From.Text := mFrom;
         ReplyTo.EMailAddresses := mFrom;
         Recipients.EMailAddresses := edtTo.text; { 받는사람}
         Subject := edtSubject.Text; { Subject: header }
//         Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority }
         CCList.EMailAddresses := edtCc.Text; {CC}
         BccList.EMailAddresses := edtBCc.Text; {BBC}
         SMTP.Send(IdMsgSend);
      end;
   finally
      SMTP.Disconnect;
      showmessage('전송이 완료되었습니다.')
   end;

메모의 내용을 메일로 보내면 텍스트는 전송이 됩니다. 그런데..HTML문서로 전송하려면 어떻게 해야 되나요?

<table border="1" width="18%" id="table1" style="border-collapse: collapse">
        <tr>
                <td>a</td>
                <td>c</td>
        </tr>
        <tr>
                <td>d</td>
                <td>b</td>
        </tr>
</table>
위 내용을 보내면..그대로 텍스트로 전송되버리네요..ㅠㅠ..
고수님들 부탁드립니다.

한가지 더 ...

윗..멜 전송소스증에
         Priority := TIdMessagePriority(cboPriority.ItemIndex); { Message Priority }
이 소스는 무엇이고 어디에 사용하는것인지도 알려주세요
사용하지 않아도 정상적으로 전송되긴 하더라고요