Como criar uma lista suspensa para assuntos no Outlook?
Você pode ter diferentes assuntos de email predefinidos que precisam ser distribuídos para diferentes destinatários no Outlook. Seria muito eficiente ter uma lista suspensa de linha de assunto para selecionar um assunto sem digitá-lo manualmente ao redigir um email. Assim como o gif demonstrado abaixo. Este tutorial fornece três códigos VBA para ajudá-lo a criar uma lista suspensa com diferentes assuntos predefinidos. Ao redigir um e-mail, você pode selecionar qualquer assunto necessário na lista suspensa para preencher automaticamente a linha de assunto. Por favor, siga o guia passo a passo para fazê-lo.
Criar uma lista suspensa para assuntos no Outlook com código VBA
Na verdade, o Outlook não permite adicionar uma lista suspensa na linha de assunto. Aqui você precisa criar um formulário de usuário e combiná-lo com códigos VBA para completá-lo.
1. Inicie o Outlook, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > UserForm.
3. Então o UserForm1 é inserido sob Project1 no painel esquerdo do Visual Basic editor. Você precisa adicionar uma caixa de combinação e um botão de comando a este formulário de usuário arrastando o Caixa combo e Botão de comando respectivamente da Caixa de ferramentas ao UserForm1.
4. Clique com o botão direito do mouse no botão de comando e selecione Propriedades no menu do botão direito.
5. No Propriedades – CommandButton1 painel, mude o Subtítulo campo para OK. Esta ação irá alterar o texto exibido no botão de comando.
6. Dê um duplo clique na área em branco no UserForm para abrir o correspondente UserForm (Código) janela e substitua o código existente pelo código VBA a seguir.
Código VBA 1: UserForm com uma lista suspensa incluindo vários assuntos de e-mail predefinidos
Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
With ComboBox1
.AddItem "Subject 1"
.AddItem "Subject 2"
.AddItem "Subject 3"
.AddItem "Subject 4"
.AddItem "Subject 5"
.AddItem "No change"
End With
End Sub
Private Sub CommandButton1_Click()
GCbbIndex = ComboBox1.ListIndex
GSelSubject = ComboBox1.Value
Unload Me
End Sub
Nota: No código, o Sujeito 1, 2, 3, 4 e 5 são os assuntos de e-mail predefinidos que você deseja usar em seus e-mails. “Nenhuma mudança” significa não alterar nada do assunto do e-mail existente. Você pode alterar os assuntos de e-mail predefinidos no código VBA de acordo com suas necessidades.
7. Duplo click Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook. Em seguida, copie o seguinte código VBA na janela ThisOutlookSession (Code).
Código VBA 2 usado na janela ThisOutlookSession
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub
8. Continue clicando inserção > Módulo no Visual Basic editor. Em seguida, copie e cole o seguinte código VBA no Módulo (Código) janela.
Código VBA 3 usado na janela Módulo
Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
Dim xItem As MailItem
Dim xMail As Outlook.MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set xMail = GInlineMail
Debug.Print "Explorer"
Case "Inspector"
Set xMail = Application.ActiveInspector.CurrentItem
Debug.Print "Inspector"
End Select
UserForm1.Show
If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
xMail.Subject = GSelSubject
End If
End Sub
9. Salve os códigos e pressione o botão outro + Q chaves para fechar o Editor Visual Basic janela e retorne ao aplicativo Outlook.
10. Clique na Novo Email botão sob o Início guia para criar um e-mail.
11. Na nova janela de mensagem, clique em Personalize a barra de ferramentas de acesso rápido > Mais comandos.
12. No Opções do Outlook caixa de diálogo, você precisa configurar da seguinte maneira.
13. Então você pode ver que um botão 
foi adicionado à faixa de opções da janela de mensagem.
14. Agora você precisa reiniciar o Outlook.
15. Ao redigir uma mensagem de e-mail, se você precisar inserir um assunto predefinido, basta clicar no botão recém-adicionado na faixa de opções para exibir o formulário do usuário, selecionar um assunto no menu suspenso e clicar no botão OK botão para preenchê-lo na linha de assunto.
Notas:
Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!
- Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
- Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
- Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
- Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
- Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
