Como identificar a versão do Outlook - Formulário e VBScript

Existem três tarefas para esta solução.
•Criar um novo item para armazenar o código VBScript.
•Introduzir o código VBScript e guardar o formulário.
•Executar o código VBScript.

Criar um novo item para armazenar o código VBScript
1.No menu Ficheiro, aponte para Novo e, em seguida, clique em Mensagem de correio.
2.No menu Ferramentas, aponte para Formulários e, em seguida, clique em Estruturar este formulário para introduzir o modo de estruturação do formulário.

Introduzir o código VBScript e guardar o formulário
1.No menu Formulário, clique em Ver código.
2.No Editor de scripts, escreva o seguinte código.

Sub Item_Open

Dim Versao

Versao = application.version

MsgBox "A versão do Outlook é: " & Versao

End Sub


3.No menu Ficheiro, clique em Fechar.
4.No menu Ficheiro, clique em Guardar como. Certifique-se de que a predefinição do tipo de ficheiro é Modelo do Outlook (.oft) e, em seguida, seleccione uma localização para guardar o ficheiro. Introduza um nome de ficheiro para o formulário e, em seguida, clique em OK.
5.Feche o item clicando no X existente no canto superior direito da janela do item e, em seguida, clique em Não quando lhe for pedido que grave as alterações.

Executar o código VBScript
1.Para executar o código VBScript, abra de novo o item, utilizando o Explorador do Windows para localizar o ficheiro e, em seguida, clique duas vezes no ficheiro .oft. O código será automaticamente executado, dado que foi introduzido num procedimento de acontecimento Item_Open. Se receber um aviso de macro, clique em Activar macros.
3.Aguarde enquanto o código verifica a versão do Outlook. Quando o código terminar, deverá receber uma mensagem a indicar a versão do Outlook.