언제나 행복한 짱아의 집

간만에 ASP로 작업을 하는데 카페24에서 smtp로 메일발송을 작업하는 도중..

발송이 되지않고 오류가 나서 문의결과...

smtp는 사용을 못하고 차체 있는 것을 사용을 하라고 한다.. ㄷㄷㄷ

이래저래 대충 만들었다.. 킁...

나중에 손을 더 봐야될듯...

Function mailsend(subject,bcc,admin,email,body)

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 iConf

Set iConf = CreateObject("CDO.Configuration")

iConf.Load 1

Dim Flds

Set Flds = iConf.Fields

With Flds

.Item(cdoSendUsingMethod) = cdoSendUsingPort 

.Item(cdoSMTPServer) = "메일서버" 

.Item(cdoSMTPServerPort) = 25 

.Item(cdoSMTPAuthenticate) = cdoBasic 

.Item(cdoSendUserName) = "메일주소"

.Item(cdoSendPassword) = "비밀번호"

.Update

End With

' 메일 전송 컴포넌트에 필요 정보 입력

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

objMail.Configuration = iConf

objMail.From = admin '보내는사람 이메일

objMail.To = email '받는사람 이메일

objMail.Bcc = bcc '숨은 참조 Bcc

objMail.Subject = subject '제목

objMail.HTMLBody = body '내용

objMail.Send

Set objMail = Nothing

Set iConf = Nothing

End Function