묻고답하기
CDO(CDONTS)로 메일 보내기! 도전 5일째 --;;
2006.03.27 13:03
수고 많으십니다~! (__)끄빡
다른게아니라~! 웹상에서 메일을 보내게 하려고 하는데...쩝~!
제가 최근에 회사에 들어와 업무 인수 인계를 받고
업무도 다 파악 되지 않은 상태에서 다음주(3/27~3/31사이)에
노동부 불시 검열이 있다는 정보를 받고, 검열에 걸리는 내용들을
일일이 체크 하다가 한가지 걸리는 부분이 있는데 그게 바로
"문의메일" 부분 입니다~!
문의 메일을 보낼 수 있게 해 놔야 하는데...--;
업무 인계를 받은 사람의 메일 소스를 아무리 고쳐도 잘 안되서
여기 Site의 ASP 질의응답 게시판과 TIP&TECH 게시판의 메일
관련 글들을 모두 읽어 보았지만 ......아직 해결책을 찾기 못
했습니다~! 에고.....쩝~! --;;
저는 Linux쪽만 다루다가 이곳 회사에서 처음으로 MS 쪽(Win 2003/
MSSQL/IIS 6.0등등) 소프트웨어들을 다루려고 보니...너무 어렵네요!
제가 일일이 다~~~~~~ 찾아 가면서 업무를 보고 있지만...저 혼자
서는 아무래도 한계가 있는듯 합니다~! 쩝~!
솔찍히 잘 알지도 못 하고.....--;;
제가 원하는것은 Web 상에서 메일보내기(폼메일?)가 되는게 목적임다!
그래서 염치 없지만 좀 아시는분들이 많은 이곳에 질문을 해 봅니다~!
우선 제가 관리하는 Solution은...
OS : MS Windows Server 2003
DB : MS SQL 2000
Server S/W : IIS 6.0 / ASP.NET
위에 상태에서 SMTP는 가동을 시켜 놓은 상태 입니다!
질문 1
UpLoad Component 가 없어도 Web 상에서 메일을 보내기가 가능한가요?
(첨부화일보내기 없이...)
질문 2
업무 인계 받은 분 말로는 MS SQL 과 연동하면 첨부 화일보내기만
빼고 메일 보내기는 가능 하다고 하는데 사실인지요?
질문 3
아래 부분쪽에 보시면 소스를 올렸는데요~!
보시고 머가? 문제인지? 조목 조목 좀 지적을 해 주셨으면 ...--;
====== mail_1.asp ==============================================
<!-- #include file="../../dbopen.txt" -->
<%
sql="select c_name, c_id from corp order by c_id asc"
rs.open sql, db
%>
<html>
<head><title>주식회사에 전체 메일 보내기</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<link href="../../esei.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
// 공란체크
function mail()
{
var str;
//제목 기입여부 체크
str = document.mail.title.value;
if(str == "") {
alert("제목을 작성해 주세요.");
document.mail.title.focus();
return true;
}
//내용기입여부체크
str = document.mail.content.value;
if(str == "") {
alert("내용을 작성해 주세요.");
document.mail.content.focus();
return;
}
document.mail.submit();
return true;
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body bgcolor='#FFFFFF' text='#000000' link='#' vlink='#' alink='#'>
<p><center><font size="5" color="blue">주식회사에 문의 메일 보내기</font></center></p>
<form name="mail" method="post" action="mail_2.asp" enctype="multipart/form-data">
<table width="600" height="100" border="0" cellpadding="0" cellspacing="0" align="center">
<tr align="center">
<td bgcolor="#CBE4D6" height="30" colspan="2"><b>귀주식회사에 다음과 같이 문의합니다.</b></td>
</tr>
<tr>
<td>
<table width="600" border="0" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="#CBE4D6" width="150" height="25"><div align="center">제 목(Subject)</div></td>
<td width="450" height="25"> <input name="title" type="text" class="input" id="title" size="60"></td>
</tr>
<tr>
<td bgcolor="#CBE4D6" width="150" height="25"><div align="center">대 상(Target)</div></td>
<td width="450" height="25">
<input name="ch" type="radio" value="1" checked>
전체회원
<input type="radio" name="ch" value="2">
개인회원
<input type="radio" name="ch" value="3">
회사별
<select name="cid" id="cid">
<% if rs.BOF or rs.EOF then %>
<option value="000">등록된 회사가 없습니다.</option>
<%
else
Do until rs.EOF
%>
<option value="<%=rs("c_id")%>"><%=rs("c_name")%></option>
<%
rs.movenext
loop
end if
%>
</select> </td>
</tr>
<tr>
<td bgcolor="#CBE4D6" width="150"><div align="center">내 용(Message)</div></td>
<td width="450"> <textarea name="content" cols="58" rows="18" id="content"></textarea>
<!-- <br><center>
<input type=radio name="stype" value="1" checked> TEXT
<input type=radio name="stype" value="0"> HTML </center>
-->
</td>
</tr>
<!--
<tr>
<td bgcolor="#CBE4D6" width="150"><div align="center">첨부파일(Attach)</div></td>
<td width="450"> <input type="file" size="45" name="attach">
</td>
</tr>
-->
<tr>
<td colspan="2"><div align="center">
<input name="Submit" type="button" onClick="MM_callJS('mail();')" value="보내기">
<input type="reset" name="Submit2" value="다시쓰기">
</div></td>
</tr>
</table>
</td>
<tr align="center">
<td><br><br>
<img src="../images/logo.jpg" border="0" alt="주식회사 마크(로고)">
<img src="../images/cp.jpg" border="0" alt="주식회사 전화번호">
</td>
</tr>
</tr>
</table>
</form>
</body>
</html>
=========== mail_1.asp =================================================================
위에까지가 메일 보내기 페이지 입니다~!
아래 부터가 입력한 정보를 받아서 메일로 보내는 소스 입니다!
=========== mail_2.asp =================================================================
<!-- #include file="../../dbopen.txt" -->
<%
content = request("content")
title = request("title")
ch = request("ch")
cid = request("cid")
Server.ScriptTimeout = 300
con = replace(request("content"),chr(13) & chr(10),"<br>")
bo = "<html><body><p></p><table width=450 border=0 cellspacing=0 cellpadding=0><tr><td height=30><div align=center><font size=2>"
bo = bo & "Korea Safety Education Center Mailing List</font></div></td></tr><tr><td>"
bo = bo & "<font size=2 face=돋움체><p></p>" & con & "<p></p></font></td></tr><tr><td height=30><font size=2>(주)"
bo = bo & "주식회사"
bo = bo & "<a href=mailto:company@paran.com>company@paran.com</a></font></td></tr></table></body></html>"
if ch = "1" then
sql = "select g_name,g_mail from g_member"
rs.open sql, db
Do While not rs. eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To= rs("g_mail")
objMail.Subject=title
objMail.Body= con
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.body = bo
objMail.Send
rs.movenext
loop
end if
if ch= "2" then
sql ="select s_name,mail from s_member"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To= rs("mail")
objMail.Subject=title
objMail.Body= con
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.body = bo
objMail.Send
rs.movenext
loop
end if
if ch= "3" then
sql = "select g_mail from g_member where c_id='"& request("cid")&"'"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To= rs("g_mail")
objMail.Subject=title
objMail.Body= con
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.body = bo
objMail.Send
rs.movenext
loop
end if
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
ok
</BODY>
</HTML>
* DearMai님에 의해서 게시물 이동되었습니다 (2006-03-27 17:45)
다른게아니라~! 웹상에서 메일을 보내게 하려고 하는데...쩝~!
제가 최근에 회사에 들어와 업무 인수 인계를 받고
업무도 다 파악 되지 않은 상태에서 다음주(3/27~3/31사이)에
노동부 불시 검열이 있다는 정보를 받고, 검열에 걸리는 내용들을
일일이 체크 하다가 한가지 걸리는 부분이 있는데 그게 바로
"문의메일" 부분 입니다~!
문의 메일을 보낼 수 있게 해 놔야 하는데...--;
업무 인계를 받은 사람의 메일 소스를 아무리 고쳐도 잘 안되서
여기 Site의 ASP 질의응답 게시판과 TIP&TECH 게시판의 메일
관련 글들을 모두 읽어 보았지만 ......아직 해결책을 찾기 못
했습니다~! 에고.....쩝~! --;;
저는 Linux쪽만 다루다가 이곳 회사에서 처음으로 MS 쪽(Win 2003/
MSSQL/IIS 6.0등등) 소프트웨어들을 다루려고 보니...너무 어렵네요!
제가 일일이 다~~~~~~ 찾아 가면서 업무를 보고 있지만...저 혼자
서는 아무래도 한계가 있는듯 합니다~! 쩝~!
솔찍히 잘 알지도 못 하고.....--;;
제가 원하는것은 Web 상에서 메일보내기(폼메일?)가 되는게 목적임다!
그래서 염치 없지만 좀 아시는분들이 많은 이곳에 질문을 해 봅니다~!
우선 제가 관리하는 Solution은...
OS : MS Windows Server 2003
DB : MS SQL 2000
Server S/W : IIS 6.0 / ASP.NET
위에 상태에서 SMTP는 가동을 시켜 놓은 상태 입니다!
질문 1
UpLoad Component 가 없어도 Web 상에서 메일을 보내기가 가능한가요?
(첨부화일보내기 없이...)
질문 2
업무 인계 받은 분 말로는 MS SQL 과 연동하면 첨부 화일보내기만
빼고 메일 보내기는 가능 하다고 하는데 사실인지요?
질문 3
아래 부분쪽에 보시면 소스를 올렸는데요~!
보시고 머가? 문제인지? 조목 조목 좀 지적을 해 주셨으면 ...--;
====== mail_1.asp ==============================================
<!-- #include file="../../dbopen.txt" -->
<%
sql="select c_name, c_id from corp order by c_id asc"
rs.open sql, db
%>
<html>
<head><title>주식회사에 전체 메일 보내기</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
<link href="../../esei.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
// 공란체크
function mail()
{
var str;
//제목 기입여부 체크
str = document.mail.title.value;
if(str == "") {
alert("제목을 작성해 주세요.");
document.mail.title.focus();
return true;
}
//내용기입여부체크
str = document.mail.content.value;
if(str == "") {
alert("내용을 작성해 주세요.");
document.mail.content.focus();
return;
}
document.mail.submit();
return true;
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body bgcolor='#FFFFFF' text='#000000' link='#' vlink='#' alink='#'>
<p><center><font size="5" color="blue">주식회사에 문의 메일 보내기</font></center></p>
<form name="mail" method="post" action="mail_2.asp" enctype="multipart/form-data">
<table width="600" height="100" border="0" cellpadding="0" cellspacing="0" align="center">
<tr align="center">
<td bgcolor="#CBE4D6" height="30" colspan="2"><b>귀주식회사에 다음과 같이 문의합니다.</b></td>
</tr>
<tr>
<td>
<table width="600" border="0" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="#CBE4D6" width="150" height="25"><div align="center">제 목(Subject)</div></td>
<td width="450" height="25"> <input name="title" type="text" class="input" id="title" size="60"></td>
</tr>
<tr>
<td bgcolor="#CBE4D6" width="150" height="25"><div align="center">대 상(Target)</div></td>
<td width="450" height="25">
<input name="ch" type="radio" value="1" checked>
전체회원
<input type="radio" name="ch" value="2">
개인회원
<input type="radio" name="ch" value="3">
회사별
<select name="cid" id="cid">
<% if rs.BOF or rs.EOF then %>
<option value="000">등록된 회사가 없습니다.</option>
<%
else
Do until rs.EOF
%>
<option value="<%=rs("c_id")%>"><%=rs("c_name")%></option>
<%
rs.movenext
loop
end if
%>
</select> </td>
</tr>
<tr>
<td bgcolor="#CBE4D6" width="150"><div align="center">내 용(Message)</div></td>
<td width="450"> <textarea name="content" cols="58" rows="18" id="content"></textarea>
<!-- <br><center>
<input type=radio name="stype" value="1" checked> TEXT
<input type=radio name="stype" value="0"> HTML </center>
-->
</td>
</tr>
<!--
<tr>
<td bgcolor="#CBE4D6" width="150"><div align="center">첨부파일(Attach)</div></td>
<td width="450"> <input type="file" size="45" name="attach">
</td>
</tr>
-->
<tr>
<td colspan="2"><div align="center">
<input name="Submit" type="button" onClick="MM_callJS('mail();')" value="보내기">
<input type="reset" name="Submit2" value="다시쓰기">
</div></td>
</tr>
</table>
</td>
<tr align="center">
<td><br><br>
<img src="../images/logo.jpg" border="0" alt="주식회사 마크(로고)">
<img src="../images/cp.jpg" border="0" alt="주식회사 전화번호">
</td>
</tr>
</tr>
</table>
</form>
</body>
</html>
=========== mail_1.asp =================================================================
위에까지가 메일 보내기 페이지 입니다~!
아래 부터가 입력한 정보를 받아서 메일로 보내는 소스 입니다!
=========== mail_2.asp =================================================================
<!-- #include file="../../dbopen.txt" -->
<%
content = request("content")
title = request("title")
ch = request("ch")
cid = request("cid")
Server.ScriptTimeout = 300
con = replace(request("content"),chr(13) & chr(10),"<br>")
bo = "<html><body><p></p><table width=450 border=0 cellspacing=0 cellpadding=0><tr><td height=30><div align=center><font size=2>"
bo = bo & "Korea Safety Education Center Mailing List</font></div></td></tr><tr><td>"
bo = bo & "<font size=2 face=돋움체><p></p>" & con & "<p></p></font></td></tr><tr><td height=30><font size=2>(주)"
bo = bo & "주식회사"
bo = bo & "<a href=mailto:company@paran.com>company@paran.com</a></font></td></tr></table></body></html>"
if ch = "1" then
sql = "select g_name,g_mail from g_member"
rs.open sql, db
Do While not rs. eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To= rs("g_mail")
objMail.Subject=title
objMail.Body= con
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.body = bo
objMail.Send
rs.movenext
loop
end if
if ch= "2" then
sql ="select s_name,mail from s_member"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To= rs("mail")
objMail.Subject=title
objMail.Body= con
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.body = bo
objMail.Send
rs.movenext
loop
end if
if ch= "3" then
sql = "select g_mail from g_member where c_id='"& request("cid")&"'"
rs.open sql, db
Do While not rs.eof
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="company@paran.com"
objMail.To= rs("g_mail")
objMail.Subject=title
objMail.Body= con
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.body = bo
objMail.Send
rs.movenext
loop
end if
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
ok
</BODY>
</HTML>
* DearMai님에 의해서 게시물 이동되었습니다 (2006-03-27 17:45)
2. MSSQL 에서 메일 보내기 부분은 아마도 아웃룩 을 연동시켜서 하는 방법같은데 이방법은 아웃룩을 따로 구입하셔야하고(윈도에 기본적으로 설치되어 있는 아웃룩 익스프레스로는 안됩니다.) 자세한 것은 저도 잘 모르겠습니다.
3. 어느부분이 문제 있는지 에러메세지를 올려주신다면 쉽게 찾을텐데.. 어디가 문제인지 찾을려면 일일이 소스코드를 봐야하니.;; 귀찮아서 못찾겠습니다. ; ;; 대충 봐서는 별 문제가 없어보이긴한데..;
ps. 여기는 강좌가 올라오는 게시판입니다. 죄송하지만 이답변을 드리고 게시물 이동을 하겠습니다.
ps2. ASP 질문은 taeyo.net 같은 ASP 관련 사이트나 데브피아 같은 윈도 계열 개발자 모임이나 마이크로소프트 ASP Q&A 뉴스그룹에서 답변을 얻는게 더빠르고 자세하게 받으실수 있으실겁니다.