ERP시스템(jsp)에서 계산된 급여명세서를 nMail서버로 발송하는 문제입니다.
아웃룩이나 기타메일(한메일, 핫메일 기타등등)에 보낸 명세서는 다 잘 보입니다.
jsp단에서 처리가 잘못되어 안보여지는거라면 다른 메일에서도 안보여야한다고
생각이 되어 nMail 소스쪽을 손대게 되었습니다.

저희 본사 nMail서버로 보낸 메일만
첫줄만 보이고 나머지 내용이 안보입니다.
원본파일 클릭하면 아웃룩이랑 연결되서 또 다보이구요.
도저히 이유를 모르겠어서 이렇게 올려봅니다.
환장하기 일보직전입니다
고수님들의 손길을 기다립니다 아멘 ㅠ.ㅠ

wmail_showmail.asp
---------------------------------------------------
<tr>
<td bgcolor="#F5F5F5"> &nbsp; <img src="images/icon/i_01.gif" width="7" height="14" border="0" alt=""> 원문받기 </td>
<td bgcolor="White"><a href="wmail_download.asp?user=<%= userId %>&selectbox=<%= selectBox %>&mailfile=<%= mailFileName %>&filename=<%= mailFileName %>&content=content"><img src="image/icon/disk.gif" border=0 > <%= mailFileName %> &nbsp;</a>(<%= fileSize %>)</td>
</tr>
<tr>
<td align=center colspan="2" bgcolor="#F5F5F5">
<table width="500" border="1" cellspacing="0" cellpadding="7" bordercolordark="White" bordercolorlight="Black" bgcolor="White">
<tr>
<td>
<%
call mailcontent(html, plain, htmlCharSet, plainCharSet)
For i = 1 To attchCount
If attachFileName(i) = "umessagerfc822doc.eml" Then
Response.Write rfcContent
call mailcontent(rfchtml, rfcplain, rfcplaincharset, rfchtmlcharset)
Response.Write "<br>"
End If
Next
%>&nbsp;
</td>
</tr>
</table>
</td>
</tr>


rfc.asp
-----------------------------------------------------
<%
function mailcontent(html, plain, htmlcharset, plaincharset)
'replace((content & chr(13) & chr(10) & TextMsg), "'", "''")
If html <> "" then
html = replace((html & chr(13) & chr(10) & TextMsg), "'", "''")

'<BASE src="file://....... 부분 삭제 루틴
ipos = instr(html, "<BASE")

if ipos > 0 then

iipos = instr(html, "file://")
iiipos = instr(html, "href=")

if iiipos > 0 or iipos > 0 then
epos = instr(ipos, html, ">")
tempstr = left(html, ipos - 1)
tempstr = tempstr + right(html, (len(html) - epos) - 1)
html = tempstr

end if

end if

'<IMG src="cid....... 부분 삭제 루틴
ipos = instr(html, "<IMG")

if ipos > 0 then

iipos = instr(html, "cid")

if iipos > 0 then

epos = instr(ipos, html, ">")
tempstr = left(html, ipos - 1)
tempstr = tempstr + right(html, (len(html) - epos) - 1)
html = tempstr

end if

end if

html = replace(html, "MARGIN-LEFT:", "")
html = replace(html, "MARGIN-TOP:", "")

Response.Write html
Else If plain <> "" then
plain = replace((plain & chr(13) & chr(10) & TextMsg), "'", "''")

Response.Write plain
End if
End if
end function
%>