Erro Active X can´t create object

Boa noite, precisava muito da vossa ajuda.

Tenho um codigo no userform para enviar email atraves do outlook:
Sub EnviaEmail()

Dim appOutlook As Object
Dim olMail As Object

'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appoutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "benzadeus3@ambienteoffice.com.br"
.Subject = "Assunto"
.Attachments.Add = "c:\benzadeus\arquivo.txt"
.Body = "Corpo do E-mail"
.Display 'ou .Send
End With
End Sub

Porem ele funciona em todos pcs em casa, mas no escritorio nao funciona. Dá me:
"Run time error 429
Erro Active X can´t create object"

Será que me podem ajudar?

Boa noite!!

Leia:
http://www.macoratti.net/11/08/vb_rte1.htm
http://support.microsoft.com/kb/319844

Att