Nmail ASP 서비스 종료 안내(EOS)
다시 질문 드립니다.^^
가입할때마다 아래 페이지를 로딩하려 합니다.
아래와 같이 페이지 만들었는데요..
도대체 어디가 잘못되었을까요.-_-?
에러는 안나는데요.
메일 발송 실패가 나와버리네요..
예전엔 이렇게 했을때..
일부는 가고 일부는 안가고 그랬엇는데...
어쩌다 한번 가고 그뒤로 계속 메일 안가고...
어떻게 해야 의도대로 메일 보낼 수 있을까요..?
아참..중요한사실!!
Ncdo.dll 컴포넌트는 MSN 에 메일이 안가네요.
하이텔,나우누리,한메일,로컬에 다 잘 가는데..
Nsendmail 은 잘 보내지던데..
천상 Nsendmail 써야 하는데 말이에요..
대답줌 해주세요 ㅠ_ㅠ
애타게 이 답변만 기다리느라 아무것도 못하고 있는데 ㅠ_ㅠ;;
아무래도 함수에 입력된 값이 잘못되었거나..그런거 같은데..
<head>
<meta http-equiv=content-type content=text/html; charset=euc-kr>
</head>
<%
// 전의 폼과 쿠키로부터 데이터를 가져옵니다.
send_status = true
page=Request.querystring("page")
priemail=Request.Form("priemail")
secemail=Request.Form("secemail")
userid=Request.Cookies("masterid")
nowtimes=year(now())&"년 "&month(now())&"월 "&day(now())&"일 "&hour(now())&"시 "&minute(now())&"분 "&second(now())&"초"
%>
<%
// 이 위에는 rane1 부터 등등의 변수를 통해서 값을 생성해서 합쳤습니다.
auth1_p = rane1&ranea&raneb&rane2&ranec&rane3&raned&ranee&rane4&ranef&raneg&rane5&raneh&ranei&ranej&rane6&ranek&ranel&ranem&rane7&ranen&raneo&ranep&rane8
auth2_p = rane8&ranea&raned&ranec&ranee&rane5&rane4&raneb&ranek&rane7&raner&raneh&ranej&ranei&rane2&ranem&rane3&raneg&raneo&year(now())&ranep&ranef&hour(now())&raneo
auth1 = Ucase(auth1_p)
auth2 = Ucase(auth2_p)
%>
<%
// 만약 secondmail 즉 세컨드메일이 입력되지 않은경우에는
If len(secemail)=0 Then
Server.ScriptTimeout = 10000
// memo 의 내용을 Nsendmail 을 통해 한게만 발송합니다.
memo="<html><head><meta http-equiv=content-type content=text/html; charset=euc-kr></head><body bgcolor=white text=black link=blue vlink=purple alink=red background=http://www.abcdefgh.com/bg_under.gif><table align=center border=0 cellpadding=0 ellspacing=0 width=544 height=600 background=http://www.abcdefgh.com/letter_bg1.gif><tr><td width=23><p>&amp;amp;nbsp;</p></td><td width=521><p>&amp;amp;nbsp;</p></td></tr><tr><td width=23 eight=576><p>&amp;amp;nbsp;</p></td><td width=521 height=576 style=line-height:18px;><p align=left><font size=2 color=#999999><br><br><img src=http://www.abcdefgh.com/join_authmail.gif width=513 height=281 border=0><br><br><br><br> &amp;amp;nbsp;&amp;amp;nbsp;인증코드<br><br>&amp;amp;nbsp;&amp;amp;nbsp;"&userid&" 님의 "&nowtimes&" 에 발송된 전자우편<br> &amp;amp;nbsp;&amp;amp;nbsp;주소 "&priemail&" 의 인증코드는 <br> &amp;amp;nbsp;&amp;amp;nbsp;</font><font size=2 color=#666666>"&auth1&"</font><font size=2 color=#999999> 입니다.<br><br><br><br><br></font></p></td></tr></table><p>&amp;amp;nbsp;</p></body></html>"
Set Sendmail = Server.CreateObject("Nsendmail.mail.1")
Sendmail.encoding = "Base64"
Sendmail.sendtype = "html"
Sendmail.encodinglang = "ks_c_5601-1987"
Sendmail.To = priemail
Sendmail.Make_body "abcdefgh.com", "webmaster", memo
if Sendmail.Sendemail("abcdefgh.com", "abcdefgh.com", "webmaster", "○에이비.com", "****@****", priemail, "", "○[에이비.com] 가입 전자우편 인증 코드", "euc-kr", "html", 0, 1) <> 0 then
send_status = false
end if
Sendmail.Remove_body "abcdefgh.com", "webmaster"
Set Sendmail=nothing
%>
// 발송 여부에 따른 메세지 출력을 합니다.
<%If send_status = true AND page="reauth" then%>
<Script Language="JavaScript">
alert("인증메일이 다시 정상적으로 보내졌습니다.");
</Script>
<% end if%>
<%If send_status = true AND page<>"reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일이 정상적으로 보내졌습니다.");
//-->
</Script>
<% end if%>
<% If send_status = false AND page="reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일을 다시 보내는데 실패하였습니다.\n\n재인증을 시도해 보십시오.");
//-->
</Script>
<% end if%>
<% If send_status = false AND page<>"reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일을 보내는데 실패하였습니다.\n\n재인증을 시도해 보십시오.");
//-->
</Script>
<% end if%>
<%
End if
%>
// 만약 secondmail 이 입력되었다면 각기 다른 2개의 주소로 2개의
메일을 발송합니다.
<%
If len(secemail)<>0 Then
send_status = true
Server.ScriptTimeout = 10000
memo="<html><head><meta http-equiv=content-type content=text/html; charset=euc-kr></head><body bgcolor=white text=black link=blue vlink=purple alink=red background=http://www.abcdefgh.com/bg_under.gif><table align=center border=0 cellpadding=0 ellspacing=0 width=544 height=600 background=http://www.abcdefgh.com/letter_bg1.gif><tr><td width=23><p>&amp;amp;nbsp;</p></td><td width=521><p>&amp;amp;nbsp;</p></td></tr><tr><td width=23 eight=576><p>&amp;amp;nbsp;</p></td><td width=521 height=576 style=line-height:18px;><p align=left><font size=2 color=#999999><br><br><img src=http://www.abcdefgh.com/join_authmail.gif width=513 height=281 border=0><br><br><br><br> &amp;amp;nbsp;&amp;amp;nbsp;인증코드<br><br>&amp;amp;nbsp;&amp;amp;nbsp;"&userid&" 님의 "&nowtimes&" 에 발송된 전자우편<br> &amp;amp;nbsp;&amp;amp;nbsp;주소 "&priemail&" 의 인증코드는 <br> &amp;amp;nbsp;&amp;amp;nbsp;</font><font size=2 color=#666666>"&auth1&"</font><font size=2 color=#999999> 입니다.<br><br><br><br><br></font></p></td></tr></table><p>&amp;amp;nbsp;</p></body></html>"
Set Sendmail = Server.CreateObject("Nsendmail.mail.1")
Sendmail.encoding = "Base64"
Sendmail.sendtype = "html"
Sendmail.encodinglang = "ks_c_5601-1987"
Sendmail.To = priemail
Sendmail.Make_body "abcdefgh.com", "webmaster", memo
if Sendmail.Sendemail("abcdefgh.com", "abcdefgh.com", "webmaster", "○에이비.com", "****@****", priemail, "", "○[에이비.com] 가입 전자우편 인증 코드", "euc-kr", "html", 0, 1) <> 0 then
send_status = false
end if
Sendmail.Remove_body "abcdefgh.com", "webmaster"
Set Sendmail=nothing
%>
<% if send_status = false AND page="reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일을 다시 보내는데 실패하였습니다.\n\n재인증을 시도해 보십시오.");
//-->
</Script>
<% end if%>
<% if send_status = false AND page<>"reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일을 보내는데 실패하였습니다.\n\n재인증을 시도해 보십시오.");
//-->
</Script>
<% end if %>
<%
send_status = true
Server.ScriptTimeout = 10000
memo="<html><head><meta http-equiv=content-type content=text/html; charset=euc-kr></head><body bgcolor=white text=black link=blue vlink=purple alink=red background=http://www.abcdefgh.com/bg_under.gif><table align=center border=0 cellpadding=0 ellspacing=0 width=544 height=600 background=http://www.abcdefgh.com/letter_bg1.gif><tr><td width=23><p>&amp;amp;nbsp;</p></td><td width=521><p>&amp;amp;nbsp;</p></td></tr><tr><td width=23 eight=576><p>&amp;amp;nbsp;</p></td><td width=521 height=576 style=line-height:18px;><p align=left><font size=2 color=#999999><br><br><img src=http://www.abcdefgh.com/join_authmail.gif width=513 height=281 border=0><br><br><br><br> &amp;amp;nbsp;&amp;amp;nbsp;인증코드<br><br>&amp;amp;nbsp;&amp;amp;nbsp;"&userid&" 님의 "&nowtimes&" 에 발송된 전자우편<br> &amp;amp;nbsp;&amp;amp;nbsp;주소 "&secemail&" 의 인증코드는 <br> &amp;amp;nbsp;&amp;amp;nbsp;</font><font size=2 color=#666666>"&auth2&"</font><font size=2 color=#999999> 입니다.<br><br><br><br><br></font></p></td></tr></table><p>&amp;amp;nbsp;</p></body></html>"
Set Sendmail2x = Server.CreateObject("Nsendmail.mail.1")
Sendmail2x.encoding = "Base64"
Sendmail2x.sendtype = "html"
Sendmail2x.encodinglang = "ks_c_5601-1987"
Sendmail2x.To = secemail
Sendmail2x.Make_body "abcdefgh.com", "webmaster", memo
if Sendmail2x.Sendemail("abcdefgh.com", "abcdefgh.com", "webmaster", "○에이비.com", "****@****", secemail, "", "○[에이비.com] 가입 전자우편 인증 코드", "euc-kr", "html", 0, 1) <> 0 then
send_status = false
end if
Sendmail2x.Remove_body "abcdefgh.com", "webmaster"
Set Sendmail2x=nothing
if send_status = true AND page="reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일이 다시 정상적으로 보내졌습니다.");
//-->
</Script>
<% end if
if send_status = true AND page<>"reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일이 정상적으로 보내졌습니다.");
//-->
</Script>
<% end if%>
<% if send_status = false AND page="reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일을 다시 보내는데 실패하였습니다.\n\n재인증을 시도해 보십시오.");
//-->
</Script>
<% end if%>
<% if send_status = false AND page<>"reauth" then%>
<Script Language="JavaScript">
<!--
alert("인증메일을 보내는데 실패하였습니다.\n\n재인증을 시도해 보십시오.");
//-->
</Script>
<% end if%>
<%
End if
%>
| 이전 글 | 시스템이 이상해서.. 1 | 류*우 | 2002.03.12 |
|---|---|---|---|
| 다음 글 | 오류 구조요청!!! 1 | 정*우 | 2002.03.12 |