작성 포맷 :
TEXT 모드, 자동 줄바꿈 사용
Set ObjConfig = ObjCDO.Configuration
With ObjConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "127.0.0.1"
.Item(cdoSMTPServerPort) = 25 '25, 465
.Item(cdoSMTPConnectionTimeout) = 30
.Item(cdoSMTPAuthenticate) = cdoBasic 'cdoAnonymous, cdoBasic, cdoNTLM
.Item(cdoURLGetLatestVersion) = True
.Update
End With
Set ObjConfig = Nothing
위 코드처럼 SMTP에 접근할 수 있는 권한을 설정해 주니 발송이 되네요. |