Excel VBA -Executar Outlook já aberto

[Luc Rosenhaim]

Estou tentando enviar e-mail com os dados a partir de uma planilha ja aberta e com o Outlook já aberto, porém quando executo o código abaixo recebo mensagem de erro na linha 12.
Alguém pode ajudar ? Feiz Páscoa !

 

1 Sub Mail_IR()

2    Dim linha              As Long
3    Dim Email              As String
4    Dim Cliente            As String
5    Dim Assunto            As String
6    Dim OutApp             As Object
7    Dim OutMail            As Object


8      linha = ActiveCell.Row
9        Email = Range("ak" & linha).Value
10      Cliente = Range("d" & linha).Value
11      Assunto = ""

12     Set OutApp = CreateObject("Outlook.Application")
13     Set OutMail = OutApp.CreateItem(0)

14     On Error Resume Next

15     With OutMail
16      .To = Email
17      .CC = ""
18      .BCC = ""
19      .Subject = Assunto
20      .Body = ""
21      '.Attachments.Add "C:\Users\Luciano\Documents\" & Range(b2).Value & Range("d" & linha).Value & ".pdf"
22       .Display   'Podemos tambem usar:  .Send (envia direto) ou .Display (abre na tela)
23      End With
24      On Error GoTo 0
25      Set OutMail = Nothing
26      Set OutApp = Nothing
27      End Sub

 

[Wendell Menezes]

Boa tarde,

 

Não consigo testar o código porque não tenho Outlook nesse PC, mas experimente trocar a linha 12 por

 

Set OutApp = GetObject(, "Outlook.Application")

 

[Luc Rosenhaim]

Grato pela pronta resposta Wendell. Agora deu o seguinte erro na linha que pediste pra alterar:
Erro em tempode execução '429'
O componente ActiveX não pode criar obejto

[Wendell Menezes]

entendi, como última alternativa eu tentaria ativar a referência do Outlook e alterar o código para:

 

Dim OutApp as Outlook.Application
Set OutApp = New Outlook.Application

 

 

[Luc Rosenhaim]

Grato pela resposta. Eu já tinha selecionado as Referências indicadas e fiz a substituição do comando, mas manteve-se o erro na mesma linha. O curioso é que se rodo a macro com o Outlook fechado, ela funciona, porém daí quando tento abrir o Outlook depois disso recebo o erro na tela anexa. E não tenho nenhum programa aberto usando o Outlook.

[Midori]

@Luc Rosenhaim Seu código devia funcionar. Antes de rodar veja se não tem nada pendente no MS Outlook e se sincronizou e baixou todas as mensagens. Ou se sua conta de e-mail está configurada corretamente.