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

Come rifiutare automaticamente gli inviti alle riunioni di persone specifiche in Outlook? 

In Outlook, possiamo creare una regola per rifiutare automaticamente alcuni inviti a riunioni da persone specifiche, ma come gestirli? Questo articolo introdurrà un metodo nei dettagli.

Rifiuta automaticamente gli inviti alle riunioni di persone specifiche in Outlook

Rifiuta automaticamente gli inviti alle riunioni di persone specifiche ed elimina la riunione anche dal calendario


Rifiuta automaticamente gli inviti alle riunioni di persone specifiche in Outlook

Si prega di eseguire i seguenti passaggi per completare questo lavoro:

1. Innanzitutto, dovresti creare un modello di messaggio per gli inviti alla riunione di rifiuto. Nel Messaggio nella finestra, digitare il messaggio che si desidera inviare per il rifiuto degli inviti alla riunione. Vedi screenshot:

2. Quindi salvare il messaggio come formato modello, fare clic Compila il > Salva con nome, Nella Salva con nome , inserisci un nome per il messaggio nel file Nome del file casella di testo e quindi scegliere Modello di Outlook (*. Oft) dal Salva come tipo elenco a discesa, vedi screenshot:

Note:: Quando selezioni Modello di Outlook (*. Oft), verrà aperta una cartella dei modelli utente predefinita.

3. Quindi fare clic Risparmi per salvare il modello di messaggio e chiudere la finestra del messaggio.

4. E poi, puoi creare una regola. Fare clic su Regole > Gestisci regole e avvisi sotto il Casa scheda, vedi screenshot:

5. Nel Regole e avvisi finestra di dialogo, fare clic Nuova regola dal Regole di posta elettronica scheda, vedi screenshot:

6. Nel saltò fuori Creazione guidata regole, fare clic su Applica la regola al messaggio che ricevo opzione sotto il Inizia da una regola vuota sezione, vedi screenshot:

7. Quindi fare clic Successiva e nella finestra di dialogo visualizzata, seleziona da persone o gruppo pubblico nel file Passaggio 1: selezionare le condizioni casella di riepilogo e quindi fare clic sul collegamento di testo persone o gruppo pubblico per aprire il Indirizzo della regola finestra di dialogo e selezionare le persone da cui si desidera rifiutare la riunione, vedere screenshot:

8. Clic OK pulsante, sempre in questa finestra di dialogo, scorrere per verificare che è un invito a una riunione o un aggiornamento opzione dal Passaggio 1: selezionare le condizioni casella di riepilogo, vedi screenshot:

9. Continua a fare clic Successiva pulsante, nella seguente finestra di dialogo:

(1.) Controllare rispondi usando un modello specifico opzione Passaggio 1: selezionare le azioni casella di riepilogo;

(2.) E quindi fare clic sul collegamento di testo un modello specifico per aprire il Seleziona un modello di risposta la finestra di dialogo;

(3.) Nella Seleziona un modello di risposta finestra di dialogo, scegliere Modelli utente in File System dal Guarda dentro cadere in picchiata;

(4.) Quindi seleziona il nome del messaggio che hai appena creato;

(5.) Fare clic su Apri pulsante.

10. Torna alla finestra di dialogo originale, continua a controllare Cancellalo opzione nel Passaggio 1: selezionare le azioni casella di riepilogo, vedi screenshot:

11. Il clic Successiva > Successiva per andare alla finestra di dialogo dell'ultimo passaggio. Nel Fine sezione di configurazione della regola, specificare un nome per questa regola e controllare Attiva questa regola opzione dal Passaggio 2: impostazione delle opzioni delle regole, vedi screenshot:

12. Clic Fine per completare questa regola, quindi fare clic su OK per chiudere la finestra di dialogo.

13. D'ora in poi, quando riceverà la riunione da queste persone specifiche, gli verrà inviata automaticamente un'email di rifiuto e anche il messaggio della riunione verrà eliminato.


Rifiuta automaticamente gli inviti alle riunioni di persone specifiche ed elimina la riunione anche dal calendario

Il primo metodo aiuta a inviare un'e-mail dicendo alla persona che non parteciperai alla riunione, ma le riunioni saranno sempre visualizzate nel tuo calendario. Se devi eliminare le riunioni che appaiono nel tuo calendario contemporaneamente, il seguente codice VBA può farti un favore.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: rifiuta automaticamente gli inviti alle riunioni ed elimina anche le riunioni dal calendario:

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. Quindi, salva e chiudi questa finestra di codice. D'ora in poi, se ci sono riunioni da questa persona specifica, riceverà un'e-mail rifiutata e la riunione verrà eliminata automaticamente dal tuo calendario.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 

 

Commenti (23)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Questo sembra semplicemente inviare un'e-mail che dice alla persona che stai rifiutando, ma appare ancora nel tuo calendario come una riunione provvisoria (come impostazione predefinita) finché non premi il pulsante di rifiuto. C'è un modo per rifiutare effettivamente la richiesta di riunione come se stessi premendo il pulsante "rifiuta" in modo che non appaia nel tuo calendario?
Questo commento è stato fatto dal moderatore sul sito
Quello che sto cercando è un modo per impedire alla riunione di bloccare il mio calendario, non solo inviare un'e-mail per dire che non parteciperò. Non c'è modo di farlo?
Questo commento è stato fatto dal moderatore sul sito
Sto anche cercando un modo per impedire alla riunione di bloccare il mio calendario, non solo per inviare un'e-mail per dire che non parteciperò. Non c'è modo di farlo?
Questo commento è stato fatto dal moderatore sul sito
Questo non rifiuta la riunione, invia solo un'e-mail. Ne ho bisogno per non visualizzare la riunione sul mio calendario.
Questo commento è stato fatto dal moderatore sul sito
Ciao, Ben,
Questo articolo è stato aggiornato, puoi utilizzare il secondo metodo per risolvere il tuo problema.
Si prega di provare, grazie!
Questo commento è stato fatto dal moderatore sul sito
Se vorrei utilizzare il secondo metodo (elimina riunione dal calendario) ma ne ho bisogno per filtrare l'invito proveniente da una persona specifica e l'oggetto contenente una parola chiave vorrei rifiutare la riunione e non bloccarmi il calendario. Il caso d'uso è che ricevo costantemente inviti alle riunioni da qualcuno che sta conducendo webinar. Vorrei rifiutare tutte le riunioni di questa persona se la riga dell'oggetto contiene webinar. Non vorrei rifiutare automaticamente tutte le riunioni di questa persona (poiché alcune di esse sono importanti) e non vorrei nemmeno rifiutare tutte le riunioni con la parola webinar nella riga dell'oggetto poiché alcune di esse sono importanti.

Tutta l'assistenza che chiunque può fornire sarà molto apprezzata.
Questo commento è stato fatto dal moderatore sul sito
Ciao, Todd,
Per aggiungere un criterio soggetto, si prega di applicare il seguente codice:
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

Per favore, prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Si possono rifiutare in riunione con più del 25% di una riunione ricorrente?
Io setto la pausa pranzo come un appuntamento ricorrente in una data fascia oraria. Io vorrei che in automatico meeting che si sovrappongono con più pranzo del 25% della pausa venissero rifiutati con un messaggio del tipo "non accetto meeting in pausa".
Questo commento è stato fatto dal moderatore sul sito
Ciao, Manzoni
Siamo spiacenti, al momento, il codice nel nostro articolo non risolve ancora il tuo problema.
.
Questo commento è stato fatto dal moderatore sul sito
Hi

Come posso eseguire questo script VB anche per gli inviti del calendario esistenti?

Grazie
Questo commento è stato fatto dal moderatore sul sito
skyyang Apprezzerei il tuo aiuto su questo.
Questo commento è stato fatto dal moderatore sul sito
Ciao Yogesh D
Intendi rifiutare gli inviti alle riunioni da parte di persone specifiche e rimuovere tutte le riunioni (sia in arrivo che già esistenti) dal calendario?
.
Questo commento è stato fatto dal moderatore sul sito
Sì, eliminando gli inviti nuovi ed esistenti. Tutti e due.
Questo commento è stato fatto dal moderatore sul sito
Ciao Yogesh D
Per risolvere il tuo problema, applica il codice seguente:
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

Per favore, prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
skyyang Ricevo molte e-mail da una casella di posta automatizzata e non presidiata, quindi non voglio inviare loro una risposta sul rifiuto della riunione. Ritagliarei invece i segmenti .Body e .Send e userei questo?:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Diminuisci xEntryID
Dim xArticolo
Dim i As Integer
Oscura xMeeting come MeetingItem, xMeetingRifiutato come MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Dividi(EntryIDCollection, ",")
Per i = 0 A UBound(xEntryIDs)
Imposta xItem = Application.Session.GetItemFromID(xEntryIDs(i))
Se xItem.Class = olMeetingRequest Allora
Imposta xMeeting = xItem
xMeeting.ReminderSet = Falso
Se VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Allora 'Specifica la persona di cui hai bisogno
Imposta xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = Falso
Imposta xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeeting.Elimina
End If
End If
Successiva
End Sub


Saluti,
Questo commento è stato fatto dal moderatore sul sito
Ciao D
Cosa intendi per casella di posta automatizzata e non presidiata?
Potresti spiegarlo in modo più dettagliato, grazie!
Questo commento è stato fatto dal moderatore sul sito
Ciao,

Grazie per aver condiviso. Potresti aggiornare il VBL con più opzioni? Devo rifiutare e rimuovere dal mio calendario gli inviti alle riunioni con quanto segue:
- da persone specifiche - già coperti nel tuo VBL
- con parole specifiche nel corpo
- con parole specifiche nell'argomento
- salvo se inviato a persone o gruppi pubblici
- tranne se il mio nome è nella casella A o CC
- salvo se contrassegnato come importanza
- salvo che l'oggetto contenga parole specifiche

A proposito di questa parte:
f VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Quindi 'Specifica la persona di cui hai bisogno

Sostituirò yy@addin99.com con il mittente da cui devo filtrare e rifiutare gli inviti ma non capisco se devo sostituire questa parte con qualcosa di specifico "Specificare la persona che ti serve" o lasciare così com'è?
Questo commento è stato fatto dal moderatore sul sito
Ho la stessa domanda di Dan su "Allora 'Specifica la persona di cui hai bisogno"

.
Questo commento è stato fatto dal moderatore sul sito
Ciao, Riela,
Nel codice, devi solo cambiare l'indirizzo del mittente "yy@addin99.com" con il mittente da cui vuoi rifiutare gli inviti.
'Specifica la persona di cui hai bisogno :Questo testo è solo un'annotazione, puoi lasciarlo o eliminarlo quando vuoi.
Questo commento è stato fatto dal moderatore sul sito
Okay grazie! il mio l'ho fatto così:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Diminuisci xEntryID
Dim xArticolo
Dim i As Integer
Oscura xMeeting come MeetingItem, xMeetingRifiutato come MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Dividi(EntryIDCollection, ",")
Per i = 0 A UBound(xEntryIDs)
Imposta xItem = Application.Session.GetItemFromID(xEntryIDs(i))
Se xItem.Class = olMeetingRequest Allora
Imposta xMeeting = xItem
xMeeting.ReminderSet = Falso
Se VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("123@fake.ca") Allora 'Specifica la persona di cui hai bisogno
Imposta xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = Falso
Imposta xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeetingDeclined.Body = "Caro falso, " & vbCrLf & _
"Non parteciperò a questa riunione. Grazie."
xMeetingRifiutato.Invia
xMeeting.Elimina
End If
End If
Successiva
End Sub

Ma mi chiedo se c'è un modo per rifiutare la riunione ed eliminarla dal mio calendario SENZA inviare una risposta? Posso cancellare questa parte:
Imposta xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeetingDeclined.Body = "Caro falso, " & vbCrLf & _
"Non parteciperò a questa riunione. Grazie."

Grazie mille per il vostro aiuto
Questo commento è stato fatto dal moderatore sul sito
Ciao, skyyang
Grazie per le vostre informazioni.

Ho una domanda su questo.
Se non voglio rispondere alla mail di partecipazione, quale codice posso usare?
Potresti aggiornare con questa opzione?
Questo commento è stato fatto dal moderatore sul sito
Ciao, skyyang
Grazie per le vostre informazioni.

Ho una domanda su questo.
Se non voglio rispondere alla mail di partecipazione, quale codice posso usare?
Potresti aggiornare con questa opzione?
Questo commento è stato fatto dal moderatore sul sito
Ciao, dden,
Per rimuovere gli incontri ma non inviare una risposta, applica il codice seguente:
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

Per favore, prova, spero che possa aiutarti!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite