✔ Programação GLOBAL®: VBA Outlook 2010 - Como criar funcionalidade de automação - How to Enable the Developer Tab and Use VBA and Macros

Trabalhar em consonância com o MS Outlook é muito importante. E em certos momentos precisaremos fazer isso a partir dele e não somente com ele. Para podermos desenvolver funcionalidade com ele, antes precisamos fazer uma breve introdução...

Aprender isso, permitirá que desenvolva automatizações, automatizando as coisas que faz todos os dias e economizará tempo.

Imagine, tarefas que faz o tempo todo no Outlook crescem com o passar dos anos. Se puder escrever macros que façam coisas para você, isso o tornará muito mais eficiente!

Para os iniciante, e novos visitantes, sim, VBA (ou Visual Basic for Applications) é a linguagem de programação que todos os aplicativos do Microsoft Office contém, de modo que podemos adicionar-lhes funções extras. E isso pode ser muito útil.

Antes que possamos usar o VBA, precisamos informar isso ao MS Outlook. Fazemos isso permitindo que a guia Desenvolvedor torne-se ativa. Podemos fazer isso muito facilmente como segue:

Na guia Arquivo, selecione Opções para abrir a caixa de diálogo Opções do Outlook.

Clique em Personalizar Faixa de Opções no lado esquerdo da caixa de diálogo.

Em Escolher comandos a partir do lado esquerdo da caixa de diálogo, selecione Comandos Populares.

Em Personalizar o menu (Customize the ribbon) no lado direito da caixa de diálogo, selecione as guias principais, e em seguida, selecione a caixa de seleção Desenvolvedor.

Clique em OK.

Agora olhamos para o Menu principal do Outlook 2010:

Depois de ter a guia Desenvolvedor no Outlook 2010, pode começar a escrever código, ou Macros. Este são pequenos scripts onde podemos escrever algumas coisas muito sofisticadas para o MS Outlook fazer. Para criarmos, cliquemos em Macros na guia Desenvolvedor.

Agora digite um nome de macro e pressione "Criar"

Podemos desenvolver códigos que podem fazer várias coisas. O código abaixo apenas dirá "Olá mundo".

Segue o código que poderá recortar e colar para testar:

Sub ExampleMacro()

On Error GoTo Qlockwork_err

' COMMENT: create a namespace, Outlook usually needs this

Dim ns As NameSpace

Set ns = GetNamespace("MAPI")

' COMMENT: Say Hi

MsgBox "Olá Mundo!"

' COMMENT: Clean up after ourselves

Qlockwork_exit:

Set ns = Nothing

Exit Sub

' Handle errors

Qlockwork_err:

MsgBox "Um erro inesperado foi encontrado."

Resume Qlockwork_exit

End Sub

Importante: Depois de ter criado o seu novo código, salve-o usando o botão salvar clicando em Debug-> Project Compile para compilar (basicamente deixá-lo pronto para funcionar)

Depois pode testá-lo, escolhendo run-> executar:

Neste ponto, provavelmente verá um erro de segurança. Você tem duas escolhas:

Pode assinar digitalmente a macro (Ferramentas-> Assinatura Digital) se tiver um certificado de assinatura de código

Ou, basta ir a segurança de macro na guia Desenvolvedor: