Ho installato sul mio computer un software per fare i backup e il disk imaging (Macrium Reflect), utilizzo uno script vbs per fare in modo che al termine del backup venga inviata una mail al mio indirizzo di posta. Questo script ha sempre funzionato correttamente
ma da quando ho reinstallato il pc (win xp pro sp3) non funziona più e ottengo il seguente errore:
CDO.Message.1 error Codice '80040220'Il valore di configurazione "SendUsing" non è valido
I parametri utilizzato sono i seguenti:
Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="IP or FQDN"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="*** L'indirizzo di posta elettronica viene rimosso per motivi di privacy ***"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="Password"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=1
objMessage.Configuration.Fields.Update
objMessage.Subject = strSubject
objMessage.From = "*** L'indirizzo di posta elettronica viene rimosso per motivi di privacy ***"
objMessage.To = "*** L'indirizzo di posta elettronica viene rimosso per motivi di privacy ***"
objMessage.TextBody = strBody
objMessage.AddAttachment strLogFileName
objMessage.Send
Set objMessage = nothing
End Function
Ho un altro computer con le stesse caratteristiche (win xp pro sp3) e tutto funziona correttamente senza bisogno di installare nessun servizio smtp. A questo punto mi chiedo cosa è cambiato dopo la reinstallazione del pc, perchè adesso non funziona più lo
script vbs?
In realtà lo script funziona perche il backup viene eseguito ma è la mail che non viene inviata...
Grazie.
Luca