Note: The other languages of the website are Google-translated. Back to English
English English
  • Documentos
  • Outlook
  • Como abrir todos os e-mails recebidos de uma pessoa específica automaticamente no Outlook?

Como abrir todos os e-mails recebidos de uma pessoa específica automaticamente no Outlook? 

No nosso trabalho diário, pode ser que cheguem muitos emails ao Outlook, neste caso, pode ignorar alguns emails importantes de uma determinada pessoa. Para evitar perder alguns e-mails importantes de alguém, você pode fazer com que os e-mails abram automaticamente ao chegar ao Outlook. Neste artigo, apresentarei um código VBA para abrir todos os e-mails de um remetente específico.

Abra todos os e-mails recebidos de uma pessoa específica automaticamente com o código VBA


Abra todos os e-mails recebidos de uma pessoa específica automaticamente com o código VBA

Para abrir automaticamente os e-mails de uma pessoa específica, o seguinte código VBA pode ajudá-lo, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook de Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: abre automaticamente todos os e-mails de uma pessoa específica:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc abrir e-mails pelo remetente 1

Nota: No código acima, você pode alterar os endereços dos remetentes para os seus.

3. Em seguida, salve e feche esta janela de código. Reinicie o Outlook para que o código tenha efeito, a partir de agora, quando chegarem os e-mails das pessoas que especificou, todos eles serão abertos automaticamente. Veja a imagem:

doc abrir e-mails pelo remetente 2


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 (1)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
não funcionou no meu caso, reiniciei e adicionei 4 endereços de e-mail.
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