Eu uso o código acima há um tempo considerável e gostaria de agradecer a todos os colaboradores anteriores por compartilharem seu trabalho / melhorias / sugestões. Recentemente, no entanto, experimentei dois problemas indesejáveis e irritantes quando usado em conjunto com o Windows 10 (64 bits) e o Outlook 2016 (64 bits):
O ícone do Outlook na bandeja do sistema exibe uma sobreposição de 'engrenagem' com a mensagem "Outro programa está usando o Outlook. Para desconectar programas e sair do Outlook, clique no ícone do Outlook e clique em Sair agora".
Tenta abrir o Outlook no item de menu 'Abrir Outlook' (clique com o botão direito do mouse no ícone do Outlook na bandeja) faz com que uma caixa de diálogo apareça relatando "Nenhum objeto explorador ativo encontrado". Clicar na opção "OK" na resposta inicia o Outlook (embora o problema 1 - sobreposição de engrenagem) permaneça.
Para resolver os problemas acima, comecei a encontrar um código semelhante que pudesse compilar para atender aos objetivos desejados do pôster original (que refletem meus próprios requisitos).
O código abaixo é oferecido "como está" para o benefício mais amplo de outros superusuários, é importante observar que, embora eu tenha testado o código em dois sistemas W10 de 64 bits (ambos com o Office de 64 bits instalado), ainda estou para resolver um RunTime problema em um dos sistemas. As outras funções funcionam perfeitamente. Detalhes completos podem ser visualizados aqui, se necessário: /programming/45533261/start-outlook-2016-64-bit-automatically-minimised-to-windows-10-64-bit-syste
Vou mantê-lo informado sobre quaisquer desenvolvimentos à medida que os testes continuarem .......
** Atualização rápida ** Agora testado no laptop HP Elitebook 8440P - Windows 10 Pro 64 bits com Office 64 bits + mesmos 12 complementos do Outlook - Funções perfeitas conforme os requisitos descritos na postagem original acima .....
** Atualização adicional ** Testado em um segundo laptop HP Elitebook 8440P - Windows 10 Pro 64 bits com Office 64 bits + mesmos 12 complementos do Outlook - Erro no RunTime novamente :(
OPTION EXPLICIT
Dim WshShell
Dim OLObj
Set WshShell = WScript. CreateObject ( "Wscript.Shell" )
'Open Outlook: Note that inspite of the launch options, it will open the program in a normal window.
'The file location path is not necessary as Windows 10 correctly identifies Outlook's location.
WshShell.Run "OUTLOOK.EXE" , 3, false
'This will mimimise it to the system tray after a 10 second pause to allow for mail collection on Outlook launch.
WScript.Sleep (10000)
Set OLObj = GetObject("","Outlook.Application")
'Activates the window
OLObj.ActiveExplorer.Activate
'Sends the command to minimise
OLObj.ActiveExplorer.WindowState = 1
'Outlook does not immediately minimise to the system tray so that 'Send/Receive' can initiate mail collection.