Problemas para anexar arquivo via VBA no Excel 2010

Question

Prezados, estou com problemas em uma macro para adicionar um arquivo em excel como anexo em um e-mail. O mesmo dá a seguinte mensagem de erro:

Esse é o cógido usado:

                        Set OleOutlook = CreateObject("OutLook.Application")

                        Set xMail = OleOutlook.CreateItem(olMailItem)

                        Set myAttachments = xMail.Attachments

                                With oMail

                                xMail.Subject = Range("u20").Value

                                xMail.HTMLBody = Nome & Range("u16").Value

                                xMail.To = Range("d19").Value

                                xMail.CC = Range("R8").Value

                                xMail.Attachments.Add (arquivo)

                                xMail.Send

                                MsgBox ("E-mail enviado! Uma cópia do arquivo foi salva na past 'My Documents'")

                                Set OleOutlook = Nothing

                                Set xMail = Nothing

                            End With

A macro para no código acima em negrito. Isso não acontece com todos, mas a grande maioria dos usuários que utilizam esta macro.

Obrigado

Answer 1

Olá! Já passei por algo parecido, e acredito que isto esteja relacionado com algum sistema de proteção na empresa que bloqueia certas funções visando proteger as informações.

Digo isso, pois onde trabalho temos um aplicativo instalado em todos os pcs que gera uma trava em todos os arquivos salvos para que sejam abertos somente dentro do ambiente da empresa, e além disso, ele trava alguns comandos em VB. Infelizmente se for isso não há o que fazer, além de solicitar maiores privilégios para os usuários que apresentarem esta mensagem.

Avisa aqui se descobrir algo.

Abraços!

Answer 2

Qual é o valor da variável arquivo?