Note: The other languages of the website are Google-translated. Back to English

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.

12.1) Selecione Macros no Escolha comandos de lista suspensa;
12.2) Selecione Projeto1.AlterarAssunto na caixa de lista de comandos;
12.3) Clique no Adicionar botão;
12.4) Clique no OK botão. Veja a imagem:

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:

1) Você pode alterar o assunto existente com qualquer assunto selecionado na lista suspensa;
2) Este método funciona bem ao responder ou encaminhar um e-mail em uma nova janela;
3) Se você costuma responder a e-mails em linha a partir do painel de leitura em vez de abrir uma janela separada, pode abrir o formulário de usuário da seguinte maneira.
3.1) Clique Desenvolvedor > Macros > Projeto1.AlterarAssunto. Veja a imagem:

3.2) Quando o formulário do usuário aparecer, selecione um assunto predefinido na lista suspensa e clique no botão OK botão, o assunto original será alterado imediatamente.

4) Se você selecionar Nenhuma mudança no menu suspenso, o assunto original será mantido sem alterações.

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.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL