CAFE24에서 메일발송 설정.
간만에 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