상세조회

CDO객체를 이용한 이메일 발송 asp

작성자

이메일주소

조회

관리자

pnskorea@pnskorea.co.kr

1841

<%
`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

%>

첨부파일

첨부된 파일이 없습니다.



CDO객체를 이용한 이메일 발송 asp	관리자	20131222	1841