Macro do Outlook para salvar e enviar com um pressionamento de tecla

Question

Eu tenho um problema com o G Suite Sync para Microsoft Outlook (GSSMO) que eu conheço é bastante comum. Minha conta do G Suite funciona bem, mas minhas contas IMAP não permitem que eu responda ou encaminhe e-mails. Em vez disso, a caixa de diálogo "Não foi possível concluir a operação porque o provedor de serviços não oferece suporte a ela". Este problema só apareceu depois de alguns meses. A única maneira de consertar isso era recriar todo o meu perfil, o que é uma grande tarefa. Eu fiz isso uma vez, mas agora estou procurando uma solução alternativa.

A única solução é Salvar um email (para Rascunhos) antes de enviá-lo. Eu continuo esquecendo de pressionar Ctrl-S antes do Alt-S para enviar, então o que eu espero é uma macro que integre essas duas funções simples em um único comando que eu possa acessar usando uma tecla não atribuída - talvez Alt-G ou Alt-Q funcionaria? Eu não sou muito bom no VBA e, como o Outlook não permite a gravação de macros, espero que um assistente de VBA possa habilitar essa solução para ajudar a mim e a muitos outros.

    

Answer 1

Abaixo está uma variação do script AutoHotkey que remapeia [Alt + S] para enviar [Ctrl + S seguido por Alt + S].

Um atraso de 200 ms é mostrado porque é geralmente imperceptível e pode melhorar a confiabilidade e reduzir o comportamento imprevisível de programas que não podem processar pressionamentos de tecla consecutivos (geralmente quando alguma ação precisa acontecer entre os dois) neste caso, salvando o rascunho). O valor do atraso pode ser ajustado ou removido conforme necessário, de acordo com os resultados do mundo real.

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
;#Warn  ; Recommended for catching common errors.
#Persistent
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

; Nothing else in the auto-execute section, just return...

Return

; Shortcut triggered by pressing Alt+s...
#IfWinActive, ahk_exe OUTLOOK.EXE   ; Outlook (any window) must be active
$!s::                ; $ = Force keyboard hook so won't retrigger itself
    Send ^s          ; Send Control+s
    Sleep 200        ; May need to adjust if it takes time to save the Draft
    Send !s          ; Send Alt+s
Return

    

Answer 2

Se você instalar o AutoHotKey , poderá usar o seguinte script.

!q::
SetTitleMatchMode, 2
IfWinActive, Message
{
 send, {Control Down}
 send, s
 send, {Control Up}
 send, {Alt Down}
 send, s
 send, {Alt Up}
}

• Depois de instalar o AutoHotKey, salve esse script em um arquivo de texto com extensão .ahk
• Para executar com o Windows, coloque o script na sua pasta Startup do menu Iniciar. Autohotkey também tem um compilador para transformar scripts em arquivos exe, se isso funcionar melhor para você.
• ! q é a tecla de atalho para Alt-Q. Se o script estiver ativo, sempre que você clicar em Alt-Q, o script será executado.
• Ele só será executado se o nome da janela ativa contiver "Outlook".
• Envia os toques de tecla que você especificou.