发送邮件提示Message "未能访问“CDO.Message”对象。该如何解决？

Dim a As MailMessage = New MailMessage
        Dim b As SmtpMail