Hi everybody, I have a problem running mi code in my computer

It's strange because in my coworker’s computer the code works perfectly.
In my computer it seems that Outlook simply not open and does not react to the code

I modify my code to post it here, just to show that it is something simple.
The real code was for creating an appointment, but neither work.

In the line of ".Display" it is supposed to display the mail, it does in my coworker’s computer, but in mine not.

This is my code:

Public Function sendemail()
esubject = "Whatever"
sendto = "[email protected]"
ebody = "Something"
On Error Resume Next
Set oApp = GetObject("Outlook.Application")
If Err <> 0 Then
Set oApp = CreateObject("Outlook.Application")
End If
Set itm = oApp.CreateItem(0)

With itm
.Subject = esubject
.To = sendto
.BODY = ebody
.Display
.send
End With
Set app = Nothing
Set tm = Nothing


End Function

I think it is a problem with Outlook because I tried installing the Ron de Bruin add in an it displayed an error saying "Outlook is not available on this system, you can't use this Add-in". But I have my outlook opened at the same time!

Please help