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

Como recusar automaticamente convites para reuniões de pessoas específicas no Outlook? 

No Outlook, podemos criar uma regra para recusar automaticamente alguns convites para reuniões de pessoas específicas, mas, como lidar com isso? Este artigo apresentará um método em detalhes.

Recusar convites para reuniões de pessoas específicas automaticamente no Outlook

Recusar convites de reunião de pessoas específicas automaticamente e excluir a reunião do calendário também


Recusar convites para reuniões de pessoas específicas automaticamente no Outlook

Siga os seguintes passos para terminar este trabalho:

1. Primeiro, você deve criar um modelo de mensagem para os convites de reunião recusados. No Mensagem janela, digite a mensagem que deseja enviar para recusar os convites para a reunião. Veja a imagem:

2. Em seguida, salve a mensagem como formato de modelo, por favor clique Envie o > Salvar como, Na Salvar como janela, insira um nome para a mensagem no Nome do arquivo caixa de texto e, em seguida, escolha Modelo do Outlook (*. Frequentemente) de Salvar como tipo lista suspensa, veja a captura de tela:

Nota: Quando você seleciona Modelo do Outlook (*. Frequentemente), uma pasta de modelo de usuário padrão será aberta.

3. Então clique Salvar para salvar o modelo de mensagem e fechar a janela de mensagem.

4. E então, você pode criar uma regra. Por favor clique Regras > Gerenciar regras e alertas sob a Início guia, veja a captura de tela:

5. No Regras e Alertas caixa de diálogo, clique em Nova regra de Regras de e-mail guia, veja a captura de tela:

6. No estalou para fora Assistente de regras, clique em Aplicar regra na mensagem que eu receber opção sob o Comece com uma regra em branco seção, veja a captura de tela:

7. Então clique Seguinte botão e na caixa de diálogo exibida, verifique as pessoas ou grupo público no Passo 1: Selecione a (s) condição (ões) caixa de listagem e clique no link de texto pessoas ou grupo público para abrir o Endereço da regra caixa de diálogo e selecione as pessoas das quais deseja recusar a reunião, consulte a captura de tela:

8. Clique OK botão, ainda nesta caixa de diálogo, role para verificar que é um convite de reunião ou atualização opção do Passo 1: Selecione a (s) condição (ões) caixa de lista, veja a captura de tela:

9. Continue clicando Seguinte botão, na seguinte caixa de diálogo:

(1.) Verifique responda usando um modelo específico opção em Passo 1: Selecione as ações caixa de listagem;

(2.) Em seguida, clique no link de texto um modelo específico para abrir o Selecione um modelo de resposta caixa de diálogo;

(3.) No Selecione um modelo de resposta caixa de diálogo, escolha Modelos de usuário em Sistema de Arquivos de Olhar dentro suspenso;

(4.) Em seguida, selecione o nome da mensagem que você acabou de criar;

(5.) Clique Abre botão.

10. Volte para a caixa de diálogo original, continue verificando delete isso opção no Passo 1: Selecione as ações caixa de lista, veja a captura de tela:

11. O clique Seguinte > Seguinte para ir para a caixa de diálogo da última etapa. No Terminar seção de configuração de regra, especifique um nome para esta regra e verifique Ativar esta regra opção do Etapa 2: opções de configuração de regra, veja a captura de tela:

12. Clique Terminar botão para terminar esta regra, a seguir clique OK para fechar a caixa de diálogo.

13. A partir de agora, ao receber a reunião dessa pessoa específica, um e-mail de recusa será enviado a ele automaticamente e a mensagem da reunião também será excluída.


Recusar convites de reunião de pessoas específicas automaticamente e excluir a reunião do calendário também

O primeiro método ajuda a enviar um e-mail informando à pessoa que você não participará da reunião, mas as reuniões sempre serão exibidas em seu calendário. Se você precisar excluir as reuniões que aparecem em seu calendário ao mesmo tempo, o código VBA a seguir pode fazer um favor.

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 módulo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: Recusar automaticamente os convites para reuniões e excluir as reuniões do calendário também:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

3. Em seguida, salve e feche esta janela de código. A partir de agora, se houver reuniões dessa pessoa específica, ela receberá um e-mail recusado e a reunião será excluída do seu calendário automaticamente.


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 (23)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso parece apenas enviar um e-mail informando à pessoa que você está recusando, mas ainda aparece em seu calendário como uma reunião provisória (como padrão) até que você pressione o botão recusar. Existe uma maneira de realmente recusar a solicitação de reunião como se você estivesse pressionando o botão 'recusar' para que ela não apareça em seu calendário?
Este comentário foi feito pelo moderador no site
O que estou procurando é uma maneira de impedir que a reunião bloqueie meu calendário, não apenas enviar um e-mail para dizer que não participarei. Não há como fazer isso?
Este comentário foi feito pelo moderador no site
Também estou procurando uma maneira de impedir que a reunião bloqueie meu calendário, não apenas enviando um e-mail para dizer que não participarei. Não há como fazer isso?
Este comentário foi feito pelo moderador no site
Isso não recusa a reunião, apenas envia um e-mail. Preciso dele para que a reunião não apareça no meu calendário.
Este comentário foi feito pelo moderador no site
Olá Ben,
Este artigo foi atualizado, você pode usar o segundo método para resolver seu problema.
Por favor, tente, obrigado!
Este comentário foi feito pelo moderador no site
Se eu quiser usar o segundo método (excluir reunião do calendário), mas precisar filtrar o convite vindo de uma pessoa específica e o assunto que contém uma palavra-chave, gostaria de recusar a reunião e não bloquear meu calendário. O caso de uso é que estou constantemente recebendo convites para reuniões de alguém que está conduzindo webinars. Gostaria de recusar todas as reuniões desta pessoa se a linha de assunto contiver webinar. Não gostaria de recusar automaticamente todas as reuniões dessa pessoa (já que algumas delas são importantes) e também não gostaria de recusar todas as reuniões com a palavra webinar na linha de assunto, pois algumas delas são importantes.

Qualquer ajuda que alguém possa fornecer será muito apreciada.
Este comentário foi feito pelo moderador no site
Olá, Todd,
Para adicionar um critério de assunto, aplique o seguinte código:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If (VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com")) And _
           (VBA.InStr(xMeeting.Subject, "product") <> 0) Then   'Specify the person and keyword you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Você pode obter risadas em uma posição com mais de 25% de uma risada rica?
Io setto la pausa pranzo come un appuntamento ricorrente in una data fascia oraria. Io vorrei che in automatico meeting che se sovrappongono com mais de 25% da pausa pranzo venissero rifiutati com uma mensagem do tipo "non accetto meeting in pausa pranzo".
Este comentário foi feito pelo moderador no site
Olá, Manzon
Desculpe, no momento, o código em nosso artigo ainda não resolve seu problema.
Obrigado!
Este comentário foi feito pelo moderador no site
Hi

Como posso executar este script VB para convites de calendário existentes também?

obrigado
Este comentário foi feito pelo moderador no site
skyyang Eu apreciaria sua ajuda sobre isso.
Este comentário foi feito pelo moderador no site
Olá, Yogesh D.
Você pretende recusar convites para reuniões de pessoas específicas e remover todas as reuniões (recebidas e já existentes) do calendário?
Obrigado!
Este comentário foi feito pelo moderador no site
Sim, excluindo convites novos e existentes. Ambos.
Este comentário foi feito pelo moderador no site
Olá, Yogesh D.
Para resolver seu problema, aplique o código abaixo:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xStore As Store
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
For Each xStore In Application.Session.Stores
    For Each xAppointmentItem In xStore.GetDefaultFolder(olFolderCalendar).Items
        Select Case VBA.LCase$(xAppointmentItem.GetOrganizer.Address)
            Case VBA.LCase$("yy@addin99.com")   'Specify the person you need
                xAppointmentItem.Delete
        End Select
    Next
Next
End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
skyyang Recebo muitos e-mails de uma caixa de entrada automatizada e não tripulada, por isso não quero enviar uma resposta a eles sobre a recusa da reunião. Em vez disso, eu apenas cortaria os segmentos .Body e .Send e usaria isso?:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Escurecer xEntryIDs
Escurecer xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ","")
Para i = 0 Para UBound(xEntryIDs)
Definir xItem = Application.Session.GetItemFromID(xEntryIDs(i))
Se xItem.Class = olMeetingRequest Então
Definir xReunião = xItem
xMeeting.ReminderSet = Falso
If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Especifique a pessoa que você precisa
Definir xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = Falso
Definir xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xReunião.Excluir
Se acabar
Se acabar
Seguinte
End Sub


Saúde,
Este comentário foi feito pelo moderador no site
Olá D
O que você quer dizer com a caixa de entrada automatizada e não tripulada?
Poderia explicar mais detalhadamente, obrigado!
Este comentário foi feito pelo moderador no site
Olá,

Obrigado por compartilhar. Você poderia atualizar o VBL com mais opções? Preciso recusar e remover do meu calendário convites de reunião com o seguinte:
- de pessoas específicas - já cobertas em seu VBL
- com palavras específicas no corpo
- com palavras específicas no assunto
- exceto se enviado para pessoas ou grupo público
- exceto se meu nome estiver na caixa Para ou CC
- exceto se marcado como importância
- exceto se o assunto contiver palavras específicas

Sobre esta parte:
f VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Especifique a pessoa que você precisa

Vou substituir o yy@addin99.com pelo remetente do qual preciso filtrar e recusar os convites, mas não entendo se preciso substituir esta parte por algo específico "Especifique a pessoa que você precisa" ou apenas deixe como está?
Este comentário foi feito pelo moderador no site
Eu tenho a mesma pergunta que o Dan sobre "Então 'especifique a pessoa que você precisa"

Obrigado!
Este comentário foi feito pelo moderador no site
Olá, Riela,
No código, você só precisa alterar o endereço do remetente "yy@addin99.com" para o remetente do qual deseja recusar os convites.
'Especifique a pessoa que você precisa :Este texto é apenas uma anotação, você pode deixá-lo ou excluí-lo conforme necessário.
Este comentário foi feito pelo moderador no site
Ok obrigado! Eu fiz o meu assim:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Escurecer xEntryIDs
Escurecer xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ","")
Para i = 0 Para UBound(xEntryIDs)
Definir xItem = Application.Session.GetItemFromID(xEntryIDs(i))
Se xItem.Class = olMeetingRequest Então
Definir xReunião = xItem
xMeeting.ReminderSet = Falso
Se VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("123@fake.ca") Then 'Especifique a pessoa que você precisa
Definir xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = Falso
Definir xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeetingDeclined.Body = "Caro Fake, " & vbCrLf & _
"Eu não vou participar desta reunião. Obrigado."
xMeetingRecusado.Enviar
xReunião.Excluir
Se acabar
Se acabar
Seguinte
End Sub

Mas gostaria de saber se existe uma maneira de recusar a reunião e excluí-la do meu calendário SEM enviar uma resposta? Posso apenas deletar esta parte:
Definir xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeetingDeclined.Body = "Caro Fake, " & vbCrLf & _
"Eu não vou participar desta reunião. Obrigado."

Muito obrigado por sua ajuda
Este comentário foi feito pelo moderador no site
Oi, skyyang
Obrigado pela sua informação.

Eu tenho uma pergunta sobre isso.
Se eu não quiser responder ao e-mail de atendimento, qual código posso usar?
Você poderia atualizar com esta opção?
Este comentário foi feito pelo moderador no site
Oi, skyyang
Obrigado pela sua informação.

Eu tenho uma pergunta sobre isso.
Se eu não quiser responder ao e-mail de atendimento, qual código posso usar?
Você poderia atualizar com esta opção?
Este comentário foi feito pelo moderador no site
Olá, Dedin,
Para remover as reuniões, mas não enviar uma resposta, aplique o código abaixo:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            'xAppointmentItem.ReminderSet = False
            'Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            'xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            'xMeetingDeclined.Send
            xAppointmentItem.Delete
            xMeeting.Delete
        End If
    End If
Next
End Sub

Por favor, tente, espero que possa ajudá-lo!
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