이 문서에서는 CDONTS 개체 모델을 기반으로 하는 기존 코드를 CDOSYS로 마이그레이션하는 방법을 단계별로 설명합니다.
Cdonts.dll 및 Cdosys.dll 개체 라이브러리를 사용하면 인터넷 표준 형식과 프로토콜을 사용하여 전자 메일을 만들고 처리할 수 있습니다. NTS용 Collaboration Data Objects(CDONTS)는 원래 Microsoft Commercial Internet Server(MCIS)에서 사용하도록 구현된 것으로 Windows NT Option Pack에 포함되었습니다. CDONTS는 또한 Windows NT와 호환될 수 있도록 Windows 2000에도 포함되었습니다. Microsoft Windows XP와 Windows의 후속 릴리스에는 CDONTS가 포함되어 있지 않습니다. Windows 2000용 Microsoft Collaboration Data Objects(CDOSYS)는 Windows 2000 운영 체제 구성 요소로서 구현되고 포함되어 있습니다. 따라서 CDONTS를 기반으로 하는 기존 코드를 CDOSYS로 마이그레이션해야 합니다.
기능 비교
다음 표는 Cdonts.dll 라이브러리와 Cdosys.dll 라이브러리의 운영 체제(OS) 지원과 기능 지원을 비교한 것입니다.
| 기능 |
CDONTS |
CDOSYS |
참고 |
| Windows NT 지원 |
예 |
아니요 |
두 가지 모두 OS에 포함되지 않았음 |
| Windows 2000 지원 |
예 |
예 |
두 가지 모두 OS에 포함되었음 |
| Windows XP 지원 |
아니요 |
예 |
CDOSYS만 OS에 포함되었음 |
| Exchange 서버 지원 |
예 |
예 |
|
| 메일 보내기 |
예 |
예 |
|
| 뉴스 그룹에 게시 |
아니요 |
예 |
|
| SMTP(Simple Mail Transfer Protocol) NNTP(Network News Transfer Protocol) 포트를 사용하여 보내기(게시) |
아니요 |
예 |
|
| MIME 및 Uuencode 메시지 형식 |
예 |
예 |
|
| MIME 본문 부분 구조, 인코딩, 문자 집합 등에 대한 명시적인 제어 |
아니요 |
예 |
|
| HTML 및 MHTML 지원 |
예 |
예 |
|
| 로컬 드롭 디렉터리 나열 / 읽기 |
아니요 |
예 |
|
| POP3를 통해 받은 편지함 표시 / 읽기 |
예 |
아니요 |
|
| 전송 이벤트 싱크 지원 |
아니요 |
예 |
|
| 회신 및 전달 기능 |
아니요 |
예 |
|
예제
다음 예제는 CDONTS와 CDOSYS를 사용하여 같은 작업을 수행하는 방법을 보여줍니다. 아래의 예제는 각각 두 라이브러리가 갖고 있는 기능을 설명한 다음 각 라이브러리에서 해당 기능을 구현하기 위한 예제 코드를 제공합니다. 이들 코드 예제는 Windows 2000 서비스 팩 2(SP2)와 다음 라이브러리 버전을 사용하여 확인되었습니다.
| • |
CDONTS 6.0.3939.0 |
| • |
CDOSYS 6.0.3943.3 |
간단한 보내기
이 예제는 두 라이브러리의 가장 일반적인 사용 예제입니다. 이 경우에는 두 라이브러리가 모두 SMTP 서버의 픽업 디렉터리에 메시지를 씁니다. 디렉터리 경로는 로컬 메타베이스에서 읽어 옵니다.
CDONTS 예제
set m =
CreateObject("CDONTS.NewMail") m.Send "user1@company.com", _
"user2@company.com", _ "test 1", _ "hello there" CDOSYS 예제
Set m =
CreateObject("CDO.Message") m.From = "user1@company.com" m.To =
"user2@company.com" m.Subject = "test 1" m.TextBody = "hello there"
m.sendHTML 본문 보내기
다음 예제는 HTML 본문 텍스트를 메시지 안에 포함시키는 예제입니다. 그 점을 제외하고 이 예제는 "간단한 보내기" 예제와 유사합니다. 두 가지 예제 집합 모두에서 MIME multipart/alternative 메시지 형식이 사용됩니다. 또한, HTML에서 자동으로 일반 텍스트 본문도 만들어집니다. 일반 텍스트 본문은 텍스트/일반 본문 부분으로서 포함됩니다.
CDONTS 예제
sHTML = "<html><body><font
color=""#FF0000"">" & _ "hello,
Red</font></body></html>" Set m =
CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMime
m.BodyFormat = 0 ' CdoBodyFormatHTML m.Send "user1@company.com", _
"user2@company.com", _ "test 1", _ sHTML CDOSYS 예제
sHTML = "<html><body><font
color=""#FF0000"">" & _ "hello,
Red</font></body></html>" Set m = CreateObject("CDO.Message")
m.From = "user1@company.com" m.To = "user2@company.com" m.Subject = "test 1"
m.HtmlBody = sHTML m.sendMIME 형식의 첨부 파일과 함께 보내기
CDONTS 예제
Set m = CreateObject("CDONTS.NewMail") m.MailFormat = 0 ' CdoMailFormatMime
m.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _
"user2@company.com", _ "test.doc", _ "Here is the document you
requested"CDOSYS 예제
Set m
= CreateObject("CDO.Message") m.From = "user1@company.com" m.To =
"user2@company.com" m.Subject = "test.doc" m.TextBody = "Here is the document
you requested." m.AddAttachment "file://d:\ptsp\test\test.doc"
m.sendUuencode 형식의 첨부 파일과 함께 보내기
두 라이브러리 모두 Uuencode 형식의 첨부 파일이 있는 메시지를 보내려면 메시지의 속성을 변경하여 형식을 변경하십시오.
CDONTS 예제
Set m =
CreateObject("CDONTS.NewMail") m.MailFormat = 1 ' CdoMailFormatText
m.AttachFile "d:\ptsp\test\test.doc" m.Send "user1@company.com", _
"user2@company.com", _ "test.doc", _ "Here is the document you requested"
CDOSYS 예제
Set m =
CreateObject("CDO.Message") m.MimeFormatted = false m.From =
"user1@company.com" m.To = "user2@company.com" m.Subject = "test.doc"
m.TextBody = "Here is the document you requested." m.AddAttachment
"file://d:\ptsp\test\test.doc" m.send유니코드 메시지 텍스트 보내기
이 예제에는 받는 사람의 표시 이름과 메시지 텍스트 안에 유니코드 문자(유로 기호, €, 유니코드 코드 포인트 0x20ac)가 포함되어 있습니다. 두 가지 예제 모두에서 "€"는
utf-7 CharSet 속성으로 인코딩됩니다. CDONTS는
CP_UTF7=65000 상수를 사용해야 합니다. CDOSYS의 경우
CharSet 이름은
unicode-1-1-utf-7입니다.
CDONTS 예제
Set s = CreateObject("CDONTS.Session") S.LogonSMTP "User 1",
"user1@company.com" s.SetLocaleIDs 65000 ' cpUTF7 Set m = s.Outbox.Messages.Add
m.MessageFormat = 0 ' CdoMime set r = m.Recipients.Add 'r.address =
"user2@company.com" r.name = "Joe €" r.address = "<joe.euro@company.com>"
m.Subject = "Unicode content" m.Text = "That will be €5, please."
m.SendCDOSYS 예제
set m =
CreateObject("CDO.Message") m.From = "User1 <user1@company.com>" m.To =
"Joe € <joe.euro@company.com>" m.Subject = "Unicode content" set b =
m.bodypart b.charset = "unicode-1-1-utf-7" m.textbody = "That will be €5,
please." m.send
