묻고답하기
cdo.message 이용한 메일 송신시 메일이 가지 않는 현상????
2006.11.29 05:38
지금 asp로 코딩된 게시판을 이용해서 홈페이지를 제작 중인데
비번을 잃어버렸을 경우 메일로 변경된 메일을 발송 하도록 되어 있습니다.
그리고 폼메일로 운영자에게 문의 할수 있도록 조취를 했는데 지금 홈페이지는 xp에서 iis mysql을 사용 하고
가상 smtp를 실행 하고 있습니다.
프로그램상에는 문제가 없는 메일 발송시 메일이 들어 가지 않는군요.
Badmail 폴더나 Queue 에도 들어 가지 않았습니다. 정상발송된건지 전혀 알수 없네요 네이버와 파란으로 시험 메일을 보네 봤는데
영 ㅜㅜ 프로그램이 문제없이 실행 된다면, 어떤 문제가 있을까요
소스는 첨부 하겠습니다. 메일 발송 코드만 첨부 하겠습니다.
혹 xp라 문제가 있을까요? 2000 서버에서는 문제가 안될런지 웹상에 올리면 문제가 안될까 ㅜㅜ????
다 만들고 이부분만 해결 하면 됩니다. 조언 부탁 드립니다.
-------- 폼메일 소스 --------------------------
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<!-- #include file = "lib.asp" -->
<%
Mode = Request.QueryString("Mode"):
fromEmail = Request("fromEmail"):
toEmail = Request("toEmail"):
replyEmail = Request("replyEmail"):
emailSubject = Request("emailSubject"):
emailBody = Request("emailBody"):
docType = Request("docType"):
if(replyEmail="") then replyEmail = fromEmail end if
%>
<%
if(Mode="Submit") then
Set objMail = Server.CreateObject("CDO.Message"):
With objMail
.To = toEmail:
.From = fromEmail:
.ReplyTo = replyEmail:
.Subject = emailSubject:
.HTMLBody = emailBody:
.Send
End With
Set objMail = Nothing:
print("<script language='JavaScript'>alert(""발송되었습니다."");window.close();</script>"):
%>
------------------------------ 폼메일 -----------------------------------------
--------------------- 비번 잃어 버릴경우 비번 발송 메일 --------------------------
Set objMail = Server.CreateObject("CDO.Message"):
With objMail
.To = mem_email:
.From = mem_email:
.Subject = mem_name & "님의 회원정보 확인 메일입니다.":
.HTMLBody = "<table><tr><td>가입정보 확인 메일입니다.<br />암호분실 인증절차에 통과하여 암호가 임의로 변경되었습니다.<br />로그인하신후 암호를 변경하시기 바랍니다.</td></tr></table><table><tr><td>회원이름:</td><td>"&mem_name&"</td></tr><tr><td>아이디:</td><td>"&mem_id&"</td></tr><tr><td>암호:</td><td>"&new_passwd&"</td></tr></table>":
.Send:
End With
Set objMail = Nothing:
---------------------------------------- 끝 ---------------------------------------------
비번을 잃어버렸을 경우 메일로 변경된 메일을 발송 하도록 되어 있습니다.
그리고 폼메일로 운영자에게 문의 할수 있도록 조취를 했는데 지금 홈페이지는 xp에서 iis mysql을 사용 하고
가상 smtp를 실행 하고 있습니다.
프로그램상에는 문제가 없는 메일 발송시 메일이 들어 가지 않는군요.
Badmail 폴더나 Queue 에도 들어 가지 않았습니다. 정상발송된건지 전혀 알수 없네요 네이버와 파란으로 시험 메일을 보네 봤는데
영 ㅜㅜ 프로그램이 문제없이 실행 된다면, 어떤 문제가 있을까요
소스는 첨부 하겠습니다. 메일 발송 코드만 첨부 하겠습니다.
혹 xp라 문제가 있을까요? 2000 서버에서는 문제가 안될런지 웹상에 올리면 문제가 안될까 ㅜㅜ????
다 만들고 이부분만 해결 하면 됩니다. 조언 부탁 드립니다.
-------- 폼메일 소스 --------------------------
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<!-- #include file = "lib.asp" -->
<%
Mode = Request.QueryString("Mode"):
fromEmail = Request("fromEmail"):
toEmail = Request("toEmail"):
replyEmail = Request("replyEmail"):
emailSubject = Request("emailSubject"):
emailBody = Request("emailBody"):
docType = Request("docType"):
if(replyEmail="") then replyEmail = fromEmail end if
%>
<%
if(Mode="Submit") then
Set objMail = Server.CreateObject("CDO.Message"):
With objMail
.To = toEmail:
.From = fromEmail:
.ReplyTo = replyEmail:
.Subject = emailSubject:
.HTMLBody = emailBody:
.Send
End With
Set objMail = Nothing:
print("<script language='JavaScript'>alert(""발송되었습니다."");window.close();</script>"):
%>
------------------------------ 폼메일 -----------------------------------------
--------------------- 비번 잃어 버릴경우 비번 발송 메일 --------------------------
Set objMail = Server.CreateObject("CDO.Message"):
With objMail
.To = mem_email:
.From = mem_email:
.Subject = mem_name & "님의 회원정보 확인 메일입니다.":
.HTMLBody = "<table><tr><td>가입정보 확인 메일입니다.<br />암호분실 인증절차에 통과하여 암호가 임의로 변경되었습니다.<br />로그인하신후 암호를 변경하시기 바랍니다.</td></tr></table><table><tr><td>회원이름:</td><td>"&mem_name&"</td></tr><tr><td>아이디:</td><td>"&mem_id&"</td></tr><tr><td>암호:</td><td>"&new_passwd&"</td></tr></table>":
.Send:
End With
Set objMail = Nothing:
---------------------------------------- 끝 ---------------------------------------------