Я использую cdo для отправки электронной почты, следующий код не удается
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "localhost"
.Update
End With
Когда я отправляю письмо, я получаю следующую ошибку
8004020f
Затем я изменил код на следующий:
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPickup
.Item(cdoSMTPServer) = "localhost"
.Update
End With
Письмо отправляется без проблем. Какие шаги я могу предпринять для устранения неполадок, почему cdoSendUsingPort не работает?