2003 서버에서 asp를 사용하여 이메일을 보낼때는

CreateObject("CDO.Message") 를 사용해야 한다고 하네요,,

정리한거 올립니다...^^


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.send


---- html의 내용을 보낼때..

sHTML = "<html><body><fontcolor=""#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   --> 위의 예제는 TextBody인데,, HtmlBody로 바뀐거 보이시죠?
m.send


--- MIME 형식의 첨부파일이 포함될 때입니다..

Set m= CreateObject("CDO.Message")
m.From = "user1@company.com"
m.To ="user2@company.com"
m.Subject = "test.doc"
m.TextBody = "Here is the documentyou requested."
m.AddAttachment "file://d:\ptsp\test\test.doc"
m.send


-- uuencode 형식의 첨부파일이 포함될 때입니다...

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


-- 유니코드 메시지 텍스트 보내기 입니다..

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


아직도 배울게 넘 많은거 같네요...^^

출처 :

HOWTO: NTS용 Collaboration Data Objects 응용프로그램을

Windows 2000용 Microsoft Collaboration Data Objects로 마이그레이션

의 내용을 정리한것임.

http://support.microsoft.com/default.aspx?scid=kb;ko;810702

'개발도 하냐?' 카테고리의 다른 글

사파리 윈도우용 출시  (0) 2007.07.03
미래를위한선택-웹호환성  (0) 2007.06.18
EMAIL 에러메세지  (0) 2007.04.19
CDOSYS를 사용하여 ASP에서 메일발송  (0) 2007.04.17
웹 호환성 평가항목  (0) 2007.02.07

+ Recent posts