Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir Outlook pelo ...
 
Notifications
Clear all

Abrir Outlook pelo VBA no Excel

 
2024 - VBA & Macros
Post Recente por fkleinbley 7 anos atrás
5 Posts
3 Usuários
0 Reactions
2,597 Visualizações
RSS
 fkleinbley
(@fkleinbley)
Posts: 62
Trusted Member
Topic starter
 

Boa tarde!

Gostaria de abrir o Outlook por vba no excel, através de um form...

Estou testando este código que encontrei aqui no fórum e na internet, porem ele apresenta o erro "Erro de compilação: o tipo definido pelo usuário não foi definido"... O que devo alterar no código para funcionar?

Sub AbreOutlook()
    Dim Olook As Outlook.Application
    Set Olook = CreateObject("Outlook.Application")

    Dim ns As Outlook.Namespace
    Dim Folder As Outlook.MAPIFolder

    Set ns = Olook.GetNamespace("MAPI")
    Set Folder = ns.GetDefaultFolder(olFolderInbox)

    Olook.Explorers.Add Folder

    'faz o que tem que fazer

    Olook.Quit
    Set Olook = Nothing

End Sub
 
Postado : 28/11/2017 12:56 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Dentro do Editor VB (Alt + F11), vá em Ferramentas -> Referencias -> selecione o Microsoft Outlook ...

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/11/2017 1:15 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

fkleinbley,

Boa tarde!

Solicitamos, por gentileza, ao inserir código VBA no fórum, utilizar a ferramenta CODE existente no início da caixa de mensagens.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/11/2017 2:07 pm
 fkleinbley
(@fkleinbley)
Posts: 62
Trusted Member
Topic starter
 

Ok, entendi!

Selecionei o Microsoft Outlook na referências, mas quero que somente abra o Outlook, sem criar um novo e-mail, o que devo alterar no código para isso?

 
Postado : 28/11/2017 2:21 pm
 fkleinbley
(@fkleinbley)
Posts: 62
Trusted Member
Topic starter
 

Consegui com um outro meio simples... 


Sub AbrirOutlook()
    
    
    pasta_office = ThisWorkbook.Application.Path & "Outlook.exe"
    On Error Resume Next
    Call ShellExecute(0, "open", pasta_office, "", "", SW_SHOWMAXIMIZED)
    

End Sub

Obrigado pela ajuda!

 
Postado : 29/11/2017 5:01 am
Forum Jump:
  Tópico Anterior
Próximo Tópico