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 Properties 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

Anote os: 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 Home 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: