Salve a tutti, ho questo problema: Devo inviare delle e-mail automatiche, non ho avuto problemi finora, funzionava tutto perfettamente, ma ora ,senza aver apportato alcuna modifica al codice, mi dà questo errore:
0x8004020F
La classe di eventi per questa sottoscrizione si trova in una partizione non valida
Se provo ad inserire l'autenticazione:
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email"
'myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="password"
torna a funzionare!
Vorrei sapere il motivo di questo comportamento! Sapete darmi una spiegazione, vi posto il codice che fino a poco tempo fa funzionava:
Set myMail=CreateObject("CDO.Message")
Set myConfig=Server.CreateObject("CDO.Configuration")
with myConfig
Set myMail.Configuration=myConfig
myMail.From=Emailmittente
myMail.To=Emaildestinatario
myMail.Subject="Prova"
myMail.HTMLBody=HTML
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=0
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp"
'Server port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myConfig.Fields.Update
myMail.Send()
set myMail=nothing
set myConfig=nothing
end with