Io uso questo (su Aruba) e va bene verso tutti gli indirizzi...

codice:
'istanzio le costanti per invio
DIM iMsg, Flds, iConf
		
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
		
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update			

With iMsg
Set .Configuration = iConf
.To = strEmailDest
.From = strFrom
.Sender = strEmailMitt
.Subject = "Segnalazione"
.HTMLBody = "" & sBody & ""
.Send
End With

if err.number > 0 then
	strOutput= "Si è verificato un errore nell'invio"
else
	strOutput ="Mail inviata correttamente!!!"
end if
Nel tuo codice non vedo anomalie.