asp CDO.Message 를 이용하여 메일 발송

asp 의 CDO.Message 객체를 이용하여 메일 발송

카페24에 올라와있는 소스임 ㅋ.

카페24에 asp 작업을 하는데 SMTP 발송이 안됨.

25번 포트도 안 열려있고, FAQ 뒤지다보니
메일 발송 서버는 외부 서버임 ㅠ.ㅠ
젠장.









Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" 

Const cdoSendUsingPort = 2  ' 1 로컬 SMTP, 2 외부 SMTP

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) = "smtp 서버" 

.Item(cdoSMTPServerPort) = 25 

.Item(cdoSMTPAuthenticate) = cdoBasic 

.Item(cdoSendUserName) = "SMTP 인증 아이디@메일주소" 

.Item(cdoSendPassword) = "SMTP 인증 비번" 

.Update 

End With 

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

Set objMessage.Configuration = objConfig 

With objMessage 

.BodyPart.Charset = "ks_c_5601-1987"  ' 한글이 깨지면 이렇게 설정

.To = "받는넘메일" 

.From = "보내는넘 메일"

.Subject = "제목" 

.HTMLBody = "본문"

.HTMLBodyPart.Charset = "ks_c_5601-1987"  ' 본문 한글이 깨지면 캐릭터셋 설정

.Send 

End With 

Set Fields = Nothing 

Set objMessage = Nothing 

Set objConfig = Nothing 

.