Whats Wrong with this ?

[paulho]

Can someone please tell me whats wrong with this code, I keep getting the error that:

Could not access 'CDO.Message' object

Public Function SendEmail()
 
        Dim oEmail As New System.Web.Mail.MailMessage()
        oEmail.Body = eBody
        oEmail.From = "Alert Service on Devon"
        oEmail.To = "[email protected]"
        oEmail.Subject = eSubject
 
        Dim oSendEmail As Web.Mail.SmtpMail
        oSendEmail.SmtpServer = "trent"
        oSendEmail.Send(oEmail)
    End Function

Thanks in Advance