[Resolvido]Set outapp = CreateObject("Outlook.Application")

Pessoal,
Criei o código seguinte abaixo, porém ao chegar na linha Set outapp = CreateObject("Outlook.Application") ele gera o erro:

"Outra versão do Outlook esta em execução atualmente, feche-a e tente novamente"

e logo em seguida gera este outro erro: "O componente ActiveX não pode criar objeto."

Segue o código:

Dim outapp As Object

MSG1 = "A todos," & _
vbCrLf & vbCrLf & "Segue em anexo o relatório de reversa das Notas Fiscais transportadas em:" & _
vbCrLf & vbCrLf & "O uso da ferramenta é importante a todos." & _
vbCrLf & "Enviado por Expedição"

TESTE = DLookup("[EMBARQUE]", "0092 VOLTA REVERSA")

SUBJ = "REVERSA" & " " & " (" & Forms!frm_PAINEL.Lista25 & ")"

Caminho = "H:\Planejamento e Qualidade\Romaneio Diário\Romaneios\" & strArquivo

Set outapp = CreateObject("Outlook.Application")
outapp.Session.Logon

Set OutMail = outapp.CreateItem(0)

With OutMail

'.To = CC4
.BCC = CC4
.SUBJECT = SUBJ
.CC = ""
.Body = MSG1
.Attachments.Add (Caminho)

.send

End With

Meu office é o 2010 o que pode estar acontecendo? Já verifiquei as referencias e esta ok.

Olá;

Agumas coisas que deve alterar, para testar;

1º Declare sempre as variáveis no inicio

Código:

Dim MSG1, TESTE, SUBJ, Caminho, strArquivo As String

2º Nomes de tabelas cou campos com espaços têm de estar entre colchetes

Código:

TESTE = DLookup("[EMBARQUE]", "[0092 VOLTA REVERSA]")

3º Não necessita da instrução a seguir, porque você invoca a criação do objecto "CreateObject("Outlook.Application")"
Delete ou comente esta linha com aspa simples no inicio

Código:

'outapp.Session.Logon

4º Não vejo onde o "strArquivo" vai buscar a informação

5º Antes de você usar o .Send para envio imediato, use o .Display para gerar o email e ver se funciona, se funfar então volte a usar o .Send

Testou para dar o retorno ?

Sim Obrigado JPaulo