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> <P> </P> <P>ncdo로 메일을 만들어서 보내시는거 같은데, 저희보다 발송하는 툴을 만드신 쪽에서 소스는 더 잘 알고 계실꺼라 생각 합니다.</P> <P> </P> <P>그리고 메일이 발송을 하면 리턴 메세지가 되돌아 오는데 단순하게 550.5.1.1 만 오는겁니까? 뒤에는 더 붙지 않습니까?</P> <P> </P> <P>그리고 디테일 로그(MAILDIR\config.txt 파일에 detaillog=yes 로 되어 있으면 됩니다.)를 남기도록 했으면 소켓로그에 기록이 남을껍니다.</P> <P> </P> <P>어떤식으로 메일이 발송이 되었는지 확인 할수 있습니다.</P> <P> </P> <P>그리고 간단하게 메일발송하는 툴을 만들어서 테스트 해보시길 바랍니다.</P> <P> </P> <P>Set mailing = Server.CreateObject("Ncdo.Ncdonts.1")</P> <P>mailing.From = 보내는사람</P> <P>mailing.To = 받는사람</P> <P>mailing.Subject = "제목 테스트"</P> <P>mailing.SubjectCharset = "euc-kr"</P> <P>mailing.BodyFormat = 0</P> <P>mailing.BodyCharset = "ks_c_5601-1987"</P> <P>mailing.BodyEncoding = "base64"</P> <P>mailing.Importance = 1</P> <P>mailing.Body = "메일 본문"</P> <P>if mailing.Send = 1 then<BR> Response.Write "메일발송성공"<BR>else<BR> Response.Write mailing.Errormsg</P> <P>End If</P> <P>Set mailing = nothing</P> <P> </P> <P><BR><BR><BR>-------------------- Original message --------------------<BR></P> <STYLE>P, UL, LI { margin: 0px 0px 0px 0px; }</STYLE> <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 대표자 : 빈경윤