Could not access 'CDO.Message'

Our mail servers require authentication to send emails throught.
In order to send emails use the following code:'------------------
'VB.NET
'------------------

oMsg.From = "from@from.com"

oMsg.To = "to@to.com"

oMsg.Subject = "subject here"

oMsg.BodyFormat = Web.Mail.MailFormat.Html

oMsg.Body = "Body here"

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ip or mail.domain.name"

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youremail-in-the-same-server"

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass-of-that-email"

oMsg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Web.Mail.SmtpMail.SmtpServer = "ip or mail.domain.name"

Web.Mail.SmtpMail.Send(oMsg)