답변

로그인

왼쪽아이콘

- FAQ

MENU

회사소개

OMR장비

프로그램개발

통계분석

추천도서

동영상

자료실

광고신청

회원관리

개인정보정책

OMR답안지 자료보기

출력폼 자료보기

HOME >> 자료실 >> 프로그램개발 자료실

자동 불법게시물을 막기위한 다음 인증코드를 옆칸에 입력해주세여 : 6839

작성자

비밀번호

전자우편

제목

내용

<% 
`CDO.message 객체를 이용한 ASP 구현 예제는 아래를 참고하시기 바랍니다. 
`
`
`.Item(cdoSendUserName) = POP메일아이디@POP메일도메인 
`.Item(cdoSendPassword) = POP메일비밀번호

Const cdoSendUsingMethod = `http://schemas.microsoft.com/cdo/configuration/sendusing` 
Const cdoSendUsingPort = 2 
Const cdoSMTPServer = `http://schemas.microsoft.com/cdo/configuration/smtpserver` 
Const cdoSMTPServerPort = `http://schemas.microsoft.com/cdo/configuration/smtpserverport`
Const cdoSMTPConnectionTimeout = `http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout` 
Const cdoSMTPAccountName = `http://schemas.microsoft.com/cdo/configuration/smtpaccountname` 
Const cdoSMTPAuthenticate = `http://schemas.microsoft.com/cdo/configuration/smtpauthenticate` 
Const cdoBasic = 1 
Const cdoSendUserName = `http://schemas.microsoft.com/cdo/configuration/sendusername` 
Const cdoSendPassword = `http://schemas.microsoft.com/cdo/configuration/sendpassword`

Dim objConfig ` As CDO.Configuration 
Dim objMessage ` As CDO.Message 
Dim Fields ` As ADODB.Fields

` Get a handle on the config object and it`s fields 
Set objConfig = Server.CreateObject(`CDO.Configuration`) 
Set Fields = objConfig.Fields

` Set config fields we care about 
With Fields 
	.Item(cdoSendUsingMethod) = cdoSendUsingPort 
	.Item(cdoSMTPServer) = `메일서버 도메인` 
	.Item(cdoSMTPServerPort) = 25 
	.Item(cdoSMTPAuthenticate) = cdoBasic 
	.Item(cdoSendUserName) = `보내는 기본메일주소`
	.Item(cdoSendPassword) = `비밀번호` 
	
	.Update 
End With

Set objMessage = Server.CreateObject(`CDO.Message`)

Set objMessage.Configuration = objConfig

With objMessage 
	.To = strTo
	.From = strFrom
	.Subject = strTitle
	.HTMLBody = strBody
	.Send 
End With

`Response.Write `Success`

Set Fields = Nothing 
Set objMessage = Nothing 
Set objConfig = Nothing

첨부파일