assicurati anche che "mail.dominio.it" sia il nome corretto del pc che invia le mail. (mi pare difficile si chiami così)

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.it"