By 3 Febbraio 2015

8004020A – Impossibile Trovare nell origine di configurazione il nome server SMTP necessario

Utilizzando CDO per spedire un messaggio e-mail su Windows Server 2012, si può ricevere il messaggio di errore :

Impossibile Trovare nell origine di configurazione il nome server SMTP necessario

Impossibile Trovare nell origine di configurazione il nome server SMTP necessario

E’ necessario modificare il “metodo” di invio del proprio messaggio e-mail. Io ho risolto con questo codice, che modifica lo script con l’utilizzo di  “pickupdirectory”.


Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
With Flds
 .Item("https://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
 'The path may differ in your environment
 .Item("https://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:Inetpubmailrootpickup"
 .Update
End With

strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

With iMsg
 Set .Configuration = iConf
 .To = "****"
 .From = "****"
 .Subject = "Questo è un TEST"
 .HTMLBody = strHTML
 .Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Errore 8004020A CDO windows 2012

Posted in: Smtp Server, Web Server

About the Author:

shared on wplocker.com