por algum motivo o código abaixo esta tendo problema na linha "Dim oEmail As MailItem" dizendo que o tipo definido pelo usuário não foi definido
Sub sbEnviar_Email()
Dim oOutlook As Object
Dim oEmail As MailItem
Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = ObjetoOutlook.CreateItem(olMailItem)
oEmail.To = "ottontoledo@gmail.com"
oEmail.cc = "ottontoledo@gmail.com"
oEmail.Subject = "teste mensagem"
oEmail.Body = "Qualquer Mensagem"
oEmail.Send
Set oOutlook = Nothing
Set oEmail = Nothing
End Sub