Como criar uma lista suspensa para assuntos no Outlook?
Poderá ter diferentes assuntos de e-mail predefinidos que precisam de ser enviados a destinatários distintos no Outlook. Ter uma lista suspensa na linha de assunto, como ilustrado no GIF abaixo, permitir-lhe-ia selecionar um assunto sem precisar de o digitar manualmente ao compor uma mensagem — uma solução altamente eficiente. Este tutorial fornece três códigos VBA para criar uma lista suspensa com assuntos predefinidos. Ao redigir um e-mail, basta escolher o assunto pretendido no menu pendente para preencher automaticamente a linha de assunto. Siga o guia passo a passo para concluir esta tarefa com facilidade.
Criar um Lista suspensa para assuntos no Outlook com código VBA
Na realidade, o Outlook não permite adicionar uma lista suspensa na linha de assunto. Para concluir esta funcionalidade, terá de criar um formulário de utilizador e combiná-lo com código VBA.
1. Inicie o seu Outlook e prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela «Microsoft Visual Basic for Applications», clique em «Inserir» > «UserForm».
3. O "UserForm1" será então inserido sob "Project1" no painel esquerdo do editor «Visual Basic». Terá de adicionar uma caixa combinada e um botão de comando a este formulário de utilizador, arrastando respetivamente «ComboBox» e «CommandButton» da «Caixa de Ferramentas» para o "UserForm1".
4. Clique com o botão direito do rato no botão de comando e escolha «Propriedades» no menu de contexto.
5. No painel «Propriedades – CommandButton1», altere o campo «Legenda» para «OK». Esta ação atualiza o texto exibido no botão de comando.
6. Faça duplo clique na área em branco do UserForm para abrir a respetiva janela «UserForm (Código)» e, de seguida, substitua o código existente pelo seguinte código VBA.
Código VBA 1: UserForm com um Lista suspensa que inclui múltiplos Assunto do Email 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, os termos "Assunto 1, 2, 3, 4" e "5" correspondem aos assuntos de e-mail predefinidos que pretende utilizar nas suas mensagens. «Sem alteração» significa que o assunto do e-mail existente não será modificado. Pode ajustar os assuntos predefinidos diretamente no código VBA, conforme as suas necessidades.
7. Faça duplo clique em "Project1" > «Objetos do Microsoft Outlook» > «ThisOutlookSession» e, de seguida, copie o seguinte código VBA para a janela «ThisOutlookSession (Código)».
Código VBA 2 utilizado 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 em «Inserir» > «Módulo» no editor do Visual Basic. Em seguida, copie e cole o seguinte código VBA na janela «Módulo (Código)».
Código VBA 3 utilizado 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. Guarde os códigos e prima as teclas «Alt» + «Q» para fechar a janela do Editor do Visual Basic e regressar ao Outlook.
10. Clique no botão «Novo Email», no separador «Base», para criar uma nova mensagem.
11. Na janela da nova mensagem, clique em «Personalizar Barra de Acesso Rápido» > «Mais Comandos».
12. Na caixa de diálogo «Opções do Outlook», proceda da seguinte forma:
13. Poderá então verificar que um botão 
foi adicionado ao Friso da janela da mensagem.
14. Agora, terá de reiniciar o seu Outlook.
15. Ao compor uma mensagem de e-mail, basta clicar no botão recentemente adicionado na Faixa de Opções para abrir o formulário do utilizador, selecionar um assunto no menu pendente e, depois, clicar em “OK” para preencher automaticamente a linha de assunto com o assunto predefinido pretendido.
Notas:
Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)
Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.
Esta funcionalidade suporta:
- Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
- Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
- Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
- Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
- Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.
Esta funcionalidade suporta:
- Respostas inteligentes por e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
Não espere—descarregue já o Assistente de E-mail com IA e desfrute!
Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!
🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint