Erro ao enviar email - Outlook 2010

Caros amigos, tenho uma rotina que funciona perfeitamente em 8 estações, só que em uma única estação ela não roda. Pensei que poderia ser o antivirus mas em todas as outras maquinas utilizam o mesmo software, também tentei a questão de bloqueio por parte do próprio Outlook 2010, só que já revisei tudo e não achei nada.

A rotina é executada em .accdb, segue abaixo:

A msgm de erro é a seguinte:
Erro em tempo de execução '91':
A variável do objeto ou a variável do bloco 'With" não foi denifida

Quando vou depurar a linha que está em destaque é
"Set olMail = appOutlook.CreateItem(0)"

Dim olMail As Object
Dim fso As Object

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)

With olMail
.To = "contato@contato.com.br"
.CC = "contato@contato.com.br"
.Subject = "Título"
.Attachments.Add StCaminho '"\\Servidor\Sistema\Anexo.pdf"
.Body = "Segue documento anexo"
.Display
End With