반응형

간만에 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


반응형

+ Recent posts