┃/Jsource/Jmail/mailing_pro.asp 소스에
┃if "6.0" = right(Request.ServerVariables(41),3) then
┃
┃      Set objmail = Server.CreateObject("CDO.Message")
┃      objmail.To  = To_email
┃      objmail.From = From_name & "<" & From_email & ">"
┃      objmail.Subject = Title
┃
┃      select case tag
┃      case "0"
┃        'objmail.body = Message
┃        'objmail.bodyformat = 0
┃        'objmail.mailformat = 0
┃        
┃        objmail.HTMLBody = Message
┃
┃      case else
┃        'objmail.body = Message
┃        'objmail.bodyformat = 1
┃        'objmail.mailformat = 1
┃        objmail.TEXTBody = Message
┃      end select
┃
┃이 부분에서 에러가 나더라구요. 그래서 objmail.HTMLBody = Message 로 대신해주니 잘되더군요.
┃참고해주세요~





서버가 windows 2003 server 또는 CDO객체를 사용하여 메일을 발송하시나 봅니다. 혹시나 싶어 조은보드소스를 다운받아 확인해보았습니다. 아래는 해당부분의 소스입니다.


    if "6.0" = right(Request.ServerVariables(41),3) then

      Set objmail = Server.CreateObject("CDO.Message")
      objmail.To  = To_email
      objmail.From = From_name & "<" & From_email & ">"
      objmail.Subject = Title

      select case tag
      case "0"
        objmail.HtmlBody = Message
      case else
        objmail.TextBody = Message
      end select

    else
        
      set objmail = server.createobject("cdonts.newmail")
        
      objmail.from = From_name& "<" & From_email & ">"
      objmail.to = To_email
      objmail.subject = Title

      select case tag
      case "0"
        objmail.body = Message
        objmail.bodyformat = 0
        objmail.mailformat = 0
      case else
        objmail.body = Message
        objmail.bodyformat = 1
        objmail.mailformat = 1
      end select
          
    end if


참고로 if 문의 첫번째가 2003 server(CDO)에서 메일발송 코드입니다.
else 부분이 2000 server(cdonts)용이구요~ 솔루션이다 보니 둘다 감안을 해서 작업이 되어있습니다.
말씀하신 부분과 주석부분외 무엇이 다른지 알 수가 없네요...
회원님이 특히나 메일쪽에 관심이 많으신것 같은데 소스수정하시는 가운데 착오가 생기신게 아니신가 싶네요.
제가 보기엔 주석부분을 빼면 소스가 똑 같아 보이며, 현재 메일발송 테스트에는 전혀문제가 없습니다.

그리고 차기버전에서는 2003 server에서 SMTP 인증에 관한 부분이 추가되어 메일발송의 소스코드가 수정이 됩니다.
참고바랍니다.