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