Erro de automação. Biblioteca não registrada

Quando tento executar a Sub, a seguinte mensagem de erro aparece

"Erro em tempo de execução '-2147319779 (8002801d)'

Erro de automação Biblioteca não registrada"

Ao depurar o erro, o VBA marca a linha Set oEmail = oOutlook.CreateItem(olMailItem)

Option Explicit

Private Sub sb_EnviaEmail()

    Dim oOutlook As Object
    Dim oEmail As MailItem

    Set oOutlook = CreateObject("Outlook.Application")
    Set oEmail = oOutlook.CreateItem(olMailItem)

    oEmail.To = "meuemailreal@hotmail.com"
    'oEmail.CC="emailgenerico@gmail.com"
    oEmail.Subject = "Teste de e-mail"
    oEmail.Body = "Minha mensagem"
    oEmail.Send
    'oEmail.Save

    Set oOutlook = Nothing
    Set oEmail = Nothing

End Sub