J'utilise cdo d'envoyer un courriel le code suivant necdoSendUsingPort donne 8004020f mais cdoSendUsingPickup fonctionne
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "localhost"
.Update
End With
Lorsque j'envoie un e-mail que je reçois l'erreur suivante
8004020f
J'ai ensuite changé le code ce qui suit:
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPickup
.Item(cdoSMTPServer) = "localhost"
.Update
End With
L'email envoie sans problème. Quelles mesures pourrais-je prendre pour résoudre les problèmes liés au fonctionnement de cdoSendUsingPort?