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
Note: 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:
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.
