Home
Contact us
Sitemap
제품소개
다운로드
기술지원
구입안내
고객안내
Nmail PHP
Nmail PHP
Nmail NET
Nmail ASP
기술지원안내
FAQ
Q&A
사용자팁
Nmail PHP
공지사항
고객&파트너
기술지원안내
FAQ
Q&A 게시판
사용자 팁
Home
> Support
> Q&A
>
메일송수신 관련
메일 송수신관련 Q&A
※
기술문의
는
자세한 상황
을 적어주셔야 하며,
구입문의
는
전화
나
메일
로 부탁드립니다.
글쓴이
제목
<P>※ 필수입력정보 ※</P><BR> <P>▷ 제품버젼 : Nmail3.8 </P> <P>▷ 오류발생 메뉴/주소 : </P> <P>▷ 에러메세지 : 550.5.1.1</P><BR> <P>▷ 질문내용 :</P> <P> </P> <P>환경은 윈도우 2003 서버 환경입니다.</P> <P>outlook 에서는 별 문제 없이 자체적으로 잘 돌아갑니다.</P> <P> </P> <P>특정사이트에서 콤포넌트를 이용한 메일 전송시 위와 같은 메세지가 </P> <P>뜨면서 배달이 안되는 상황입니다.</P> <P> </P> <P>포털사이트에 보내면 위에 에러메세지가 뜨고요.</P> <P>같은 서버에 메일을 발송하면 </P> <P>내용과 수신,송신 이름이 비어 있는 메일이 수신됩니다.</P> <P> </P> <P>원래 잘 사용하다가 어느날 갑자기 이런 현상이 발생했는데요.</P> <P> </P> <P>아래의 소스를 사용하고 있는데</P> <P>Respons.write 찍어 보면 정상적으로 표시 되는데</P> <P>어떤점이 문제인가요?</P> <P> </P> <P><!--#include virtual="DB_Constr/DB_Open.asp"--><BR><%<BR>Response.Write "1"<BR>Function convertChar(strValue)<BR> strValue = replace(strValue, "'", "''")<BR> convertChar = strValue<BR>End Function</P> <P><BR> SET UploadForm = Server.CreateObject("DEXT.FileUpload")<BR> UploadForm.DefaultPath = Server.Mappath("/UpLoad/InsertFile")<BR>Response.Write "2"<BR> ManagerId = Trim(Request.Cookies("WstrMemberID"))<BR> sPathR = Trim(UploadForm("sPath"))<BR> ftype = Trim(UploadForm("ftype"))<BR> sMode = Trim(UploadForm("sMode"))<BR> sURL = Trim(UploadForm("sURL"))<BR> strMemberID = Trim(UploadForm("strMemberID"))<BR> memKind = Trim(UploadForm("memKind"))<BR> mCode = Trim(UploadForm("mCode"))<BR> IDX = Trim(UploadForm("IDX"))<BR> page = Trim(UploadForm("page"))<BR> strGubun = Trim(UploadForm("strGubun"))<BR> strKeyword = Trim(UploadForm("strKeyword"))<BR>Response.Write "3"<BR> MailCode = Trim(convertChar(UploadForm("MailCode")))<BR> SendMan = Trim(convertChar(UploadForm("SendMan")))<BR> SendEmail = Trim(convertChar(UploadForm("SendEmail")))<BR> ReceiveName = Trim(convertChar(UploadForm("ReceiveName")))<BR> ReceiveEmail = Trim(convertChar(UploadForm("ReceiveEmail")))<BR> strTitle = Trim(convertChar(UploadForm("strTitle")))<BR> strContent = Trim(convertChar(UploadForm("strContent")))<BR> strEdomain = Trim(convertChar(UploadForm("strEdomain")))<BR>Response.Write "4"<BR> ManagerName = Trim(SendMan)<BR> ManagerEmail = Trim(SendEmail)<BR> <BR> If uploadform("file1") <> "" Then<BR> Filename = UploadForm.DefaultPath & "\" & UploadForm("file1").FileName<BR> FilenameOrigin = UpLoadForm("file1").SaveAs(Filename, False)<BR> FilenameResult = Right(FilenameOrigin, Len(FilenameOrigin) - InStrRev(FilenameOrigin, "\"))<BR> FilenameResult = LCase(FilenameResult)<BR> end if <BR> <BR>Response.Write "5"<BR> Sql = "Select Max(IDX) From MailSend_List"<BR> SET objCnt = objCon.Execute(Sql)</P> <P> if isnull(objCnt(0)) Then<BR> mailIDX = 1<BR> else<BR> mailIDX = objCnt(0)+1<BR> end if<BR> objCnt.CLOSE<BR> SET objCnt = NOTHING<BR>Response.Write "6"</P> <P> '''''''''''''''' 히스토리 목록에 남긴다 '''''''''''''<BR> strSQL = " Insert Into MailSend_List(IDX,strMemberID,ManagerId,ReceiveName,ReceiveEmail,strTtile,strContent,RegDate,openFlag,mailCode) "<BR> strSQL = strSQL & " values("&mailIDX&",'"&strMemberID&"','"&Trim(ManagerId)&"','"&ReceiveName&"','"&ReceiveEmail&"','"&strTitle&"',"<BR> strSQL = strSQL & " '"&strContent&"',getdate(),'X','"&mailCode&"');"<BR> <BR> if Len(strMemberID) > 0 Then<BR> <BR> strSQL = strSQL & "Insert Into ContactSchedule (strMemberID,contactType,memText,replyType,ctText,scheduleDay,ctID,ctName,RegistDay) values "<BR> strSQL = strSQL & "('"&strMemberID&"','','','이메일발송','<a href=# onclick=sendMailList("&mailIDX&")>메일내용보기</a>','1990-01-01','"&ManagerID&"','"&SendMan&"',getdate());"<BR> end if<BR> '''''''''''''''' 히스토리 목록에 남긴다 '''''''''''''<BR>'Response.write MailCode<BR>'response.end<BR> With objCon<BR> On Error Resume Next<BR> .BeginTrans<BR> .Execute(strSQL)<BR>Response.Write "7"</P> <P> ErrorCheck = .Errors.Count</P> <P> If Trim(ErrorCheck) = 0 Then<BR> .CommitTrans<BR> DBError = 1<BR> Else<BR> .RollbackTrans<BR> DBError = 2 <BR> End if</P> <P> END With<BR> objCon.CLOSE </P> <P>Response.Write "8"<BR>IF Trim(DBError) = 1 THEN<BR> <BR> SET objMail = Server.CreateObject("Ncdo.Ncdonts.1") <BR> objMail.Smtpserver = "아이피기입" '보낸는 메일서버 지정 (아이피 지정도 가능)<BR> mailHeader = "<SPAN id=myLetter style='DISPLAY: none'><img src=http://www.guwed.com/WedGu_Admin/M_Member/MailOpen_Check.asp?Idx="&mailIDX&" width=0 height=0></span>"<BR> objMail.From = SendEmail<BR> 'Response.Write "SendEmail="&SendEmail<BR> objMail.To = ReceiveEmail<BR> 'Response.Write "ReceiveEmail="&ReceiveEmail<BR> objMail.Subject = strTitle '제목을 설정한다.<BR> 'Response.Write "strTitle="&strTitle<BR> objMail.Queue = True</P> <P> <BR> IF Len(mailCode) > 0 Then<BR> Response.Write "9"<BR> mFileName = Server.MapPath("/")&"\Mail\"&mailCode&".htm" '메일폼 <BR> Set objFSO = server.CreateObject("Scripting.FileSystemObject")<BR> IF objFSO.FileExists(mFileName) THEN <BR> SET objNewFile = objFSO.OpenTextFile(mFileName, 1, True) <BR> mailContent = objNewFile.ReadAll() <BR> objNewFile.CLOSE <BR> SET bjNewFilel = NOTHING <BR> END IF <BR> SET objFSO = NOTHING<BR> mailContent = mailHeader & mailContent <BR> mailContent = replace(mailContent, "[strContent]", strContent)<BR> ELSE<BR> mailContent = mailHeader & strContent<BR> MailContent = "<table width=100% cellpadding=0 cellspacing=0><tr><td>"&MailContent&"</td></tr></table>"<BR>'Response.Write mailcode<BR>'Response.end <BR> END IF<BR> 'Response.Write "mailContent="&mailContent<BR> objMail.Body = mailContent<BR> objMail.BodyFormat = 0<BR> objMail.MailFormat = 0<BR> objMail.importance = 1<BR> Response.Write "10"<BR> If FilenameResult <> "" Then <BR> objMail.AttachFile FilenameOrigin,FilenameResult,1 <BR> end if<BR>'Response.Write mailcontent<BR>'Response.end</P> <P> if objMail.Send = 1 then '메일을 보낸다.<BR> Response.Write "메일발송에 성공했습니다."<BR> else<BR> Response.Write " 에러메세지 : " & objMail.Errormsg & "<br>메일을 발송하지 못했습니다." <BR> 'Response.End<BR> end if<BR>'Response.Write mailcontent<BR>'Response.end</P> <P> If FilenameResult <> "" Then <BR> If UploadForm.FileExists(UploadForm.DefaultPath & "\" & FilenameResult) Then<BR> UploadForm.DeleteFile(UploadForm.DefaultPath & "\" & FilenameResult)<BR> End If<BR> End If<BR> </P> <P> SET objMail = NOTHING <BR> SET UploadForm = NOTHING<BR> 'Response.Write sURL<BR> 'response.end <BR> Response.Cookies("wMem")("strMailFlag") = ""<BR> Response.Write "11"<BR>%><BR><Script language=JavaScript><BR><%<BR> IF Trim(sURL) = "Member_View" THEN <BR>%><BR> 'location.href="Member_View.asp?IDX=<%=IDX%>&mCode=<%=mCode%>&memKind=<%=memKind%>&strMemberID=<%=strMemberID%>&sPath=<%=sPathR%>"</P> <P><%<BR> ELSE<BR>%><BR> 'location.href="<%=sURL%>.asp?IDX=<%=IDX%>&mCode=<%=mCode%>&memKind=<%=memKind%>&strMemberID=<%=strMemberID%>&Page=<%=Page%>&strGubun=<%=strGubun%>&strKeyword=<%=strKeyword%>&sPath=<%=sPathR%>"</P> <P><%<BR> END IF<BR>%><BR></Script><BR><% <BR>ELSE<BR> Response.Write "12"<BR> SET objMail = NOTHING <BR> SET UploadForm = NOTHING<BR> Response.write "Error가 발생했습니다."<BR> Response.end<BR>END IF<BR>%><BR></P> <P> </P> <P> </P>
비밀번호
패스코리아넷
경남 창원시 마산회원구 내서읍 중리상곡로 129, 한성빌딩 701호
메일 문의 :
nmail@passkorea.net
I 전화 : 1544-1608 I 팩스 : 055-231-2069
사업자 등록번호 : 608-25-32288 I 대표자 : 빈경윤