오픈비 : 삽질은없다

CDOSYS를 사용하여 ASP에서 메일발송
 
--------------------------------------------------------------------------------

CDOSYS는 ASP의 컴포넌트로 내장되어 있으며 이 컴포넌트는 ASP에서 메일을 발송할 때 사용합니다.

--------------------------------------------------------------------------------

CDO (Collaboration Data Objects)는 마이크로소프트의 메시징 애플리케이션 생성을 위하여 설계된 기술입니다.

CDOSYS는 ASP의 컴포넌트로 내장되어 있으며 ASP에서 메일 발송시 사용하는 예제를 아래에 간단히 설명하였습니다.

CDONTs는?
마이크로소프트에서는 Windows 2000, XP, 2003에서 CDONTs의 사용을 더이상 지원하지 않습니다.
CDONTs를 ASP에서 사용하려면 새로운 CDO 기술을 사용하기 위해 코드를 갱신하여야 합니다.


CDOSYS를 사용한 예제


테스트 메일 발송:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>


CC와 BCC를 사용한 텍스트 메일 발송:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>


HTML 메일 발송 :

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>


asp 웹페이지에서 HTML 메일을 발송하는 예제:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
set myMail=nothing
%>


컴퓨터 상의 파일을 웹페이지에서 HTML 메일로 발송하는 방법:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail=nothing
%>



첨부파일을 텍스트 메일로 발송하는 방법:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>


원격지 메일 서버를 사용하여 텍스트 메일을 발송하는 방법:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>