ciao, ho un problema con questo codice ad inviare le email, nel senso che non arrivano.

codice:
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="62.149.157.154"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    
' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="miaemail@miaazienda.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="miapwd"
    
ObjSendMail.Configuration.Fields.Update

ObjSendMail.From = fromField
ObjSendMail.To = toField
ObjSendMail.To = recipient
ObjSendMail.To = rec
'ObjSendMail.To = fromField
ObjSendMail.Subject = subjectField
ObjSendMail.TextBody  = body

ObjSendMail.Send


dov'è il problema? ho visto che le pagine http://schemas..... non esistono.

fino a poco tempo fa funzionava.

può essere quello il problema? con cosa dovrei sostituirle?
grazie a tutti
ciao