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

Hur avvisar jag automatiskt mötesinbjudningar från specifika personer i Outlook? 

I Outlook kan vi skapa en regel för att avvisa vissa mötesinbjudningar från specifika personer automatiskt, men hur ska man hantera det? Denna artikel kommer att introducera en metod i detalj.

Avvisa mötesinbjudningar från specifika personer automatiskt i Outlook

Avvisa mötesinbjudningar från specifika personer automatiskt och ta bort mötet från kalendern också


Avvisa mötesinbjudningar från specifika personer automatiskt i Outlook

Gör med följande steg för att slutföra det här jobbet:

1. Först bör du skapa en meddelandemall för avvisande mötesinbjudningar. I Meddelande fönstret, skriv meddelandet du vill skicka för att avvisa mötesinbjudningarna. Se skärmdump:

2. Spara sedan meddelandet som mallformat, klicka Fil > Spara somI Spara som i fönstret, ange ett namn för meddelandet i Filnamn textruta och välj sedan Outlook-mall (*. Ofta) från Spara som rullgardinsmeny, se skärmdump:

Anmärkningar: När du väljer Outlook-mall (*. Ofta), en standardmapp för användarmall öppnas.

3. Klicka sedan Save knappen för att spara meddelandemallen och stänga meddelandefönstret.

4. Och sedan kan du skapa en regel. var god klicka regler > Hantera regler och varningar under Hem flik, se skärmdump:

5. I Regler och varningar dialogrutan, klicka Ny regel från E-postregler flik, se skärmdump:

6. I poppade ut Regelguiden, Klicka Tillämpa regel på meddelande jag får alternativet under Börja från en tom regel avsnitt, se skärmdump:

7. Klicka sedan Nästa , och i dialogrutan poppade ut, kontrollera från personer eller offentlig grupp i Steg 1: Välj villkor och klicka sedan på textlänken personer eller offentlig grupp att öppna Regeladress dialogrutan och välj de personer som du vill avvisa mötet från, se skärmdump:

8. Klicka OK knappen, fortfarande i denna dialogruta, bläddra för att kontrollera vilket är en mötesinbjudan eller uppdatering alternativ från Steg 1: Välj villkor listruta, se skärmdump:

9. Fortsätt klicka Nästa i följande dialogruta:

(1.) Kontrollera svara med en viss mall alternativet i Steg 1: Välj åtgärder listruta;

(2.) Klicka sedan på textlänken en specifik mall att öppna Välj en svarsmall dialog ruta;

(3.) I Välj en svarsmall dialogrutan, välj Användarmallar i Filsystem från Titta in falla ner;

(4.) Välj sedan det meddelandens namn du har skapat just nu;

(5.) Klicka på Öppen knapp.

10. Gå tillbaka till den ursprungliga dialogrutan, fortsätt kontrollera radera det alternativet i Steg 1: Välj åtgärder listruta, se skärmdump:

11. Klicket Nästa > Nästa för att gå till sista steg-dialogrutan. I Finish regelinställningsavsnitt, ange ett namn för denna regel och kontrollera Aktivera denna regel alternativ från Steg 2: Konfigurera regelalternativ, se skärmdump:

12. Klicka Finish för att avsluta denna regel och klicka sedan på OK för att stänga dialogrutan.

13. Från och med nu skickas ett avvisande e-postmeddelande till honom automatiskt när mötet tas emot från denna specifika person och mötesmeddelandet kommer också att raderas.


Avvisa mötesinbjudningar från specifika personer automatiskt och ta bort mötet från kalendern också

Den första metoden hjälper till att skicka ett e-postmeddelande som talar om för personen att du inte kommer att delta i mötet, men mötena kommer alltid att visas i din kalender. Om du behöver radera mötena som visas i din kalender samtidigt kan följande VBA-kod göra dig en tjänst.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) rutan för att öppna modulen och sedan kopiera och klistra in följande kod i den tomma modulen.

VBA-kod: Avvisa automatiskt mötesinbjudningar och ta bort möten från kalendern också:

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. Spara och stäng sedan detta kodfönster. Från och med nu, om det finns möten från denna specifika person, kommer han att få ett avvisat e-postmeddelande och mötet raderas automatiskt från din kalender.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 

 

Sortera kommentarer efter
Kommentarer (16)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Detta verkar bara skicka ett e-postmeddelande som talar om för personen att du tackar nej, men det visas fortfarande i din kalender som ett preliminärt möte (som standard) tills du trycker på avvisa-knappen. Finns det något sätt att faktiskt avslå mötesförfrågan som om du tryckte på "avvisa"-knappen så att den inte visas i din kalender?
Denna kommentar minimerades av moderatoren på webbplatsen
Det jag letar efter är ett sätt att hindra mötet från att blockera min kalender, inte bara skicka ett e-postmeddelande för att säga att jag inte kommer att delta. Finns det inget sätt att göra det?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag letar också efter ett sätt att hindra mötet från att blockera min kalender, inte bara skicka ett e-postmeddelande för att säga att jag inte kommer att delta. Finns det inget sätt att göra det?
Denna kommentar minimerades av moderatoren på webbplatsen
Detta avvisar inte mötet, det skickar bara ett e-postmeddelande. Jag behöver det för att mötet inte ska visas i min kalender.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Ben,
Den här artikeln har uppdaterats, du kan använda den andra metoden för att lösa ditt problem.
Försök, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Om jag skulle vilja använda den andra metoden (ta bort möte från kalendern) men jag behöver den för att filtrera på inbjudan från en specifik person och ämnet som innehåller ett nyckelord, skulle jag vilja tacka nej till mötet och inte låta det blockera min kalender. Användningsfallet är att jag ständigt får mötesinbjudningar från någon som håller på med webbseminarier. Jag skulle vilja tacka nej till alla möten från denna person om ämnesraden innehåller webinar. Jag skulle inte vilja avböja alla möten automatiskt från den här personen (eftersom vissa av dem är viktiga) och jag skulle inte heller vilja tacka nej till alla möten med ordet webbseminarium i ämnesraden eftersom vissa av dem är viktiga.

All hjälp någon kan ge kommer att uppskattas mycket.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Todd,
För att lägga till ett ämneskriterier, använd följande kod:
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

Gör ett försök, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Si possono rifiutare riunioni in sovrapposizione 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 möte che si sovrappongono con più del 25% della pausa pranzo venissero rifiutati con un messaggio del tipo "icke accetto möte i pausa pranzo".
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Manzon
Tyvärr, för närvarande löser koden i vår artikel inte ditt problem ännu.
Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Hi

Hur kan jag köra detta VB-skript för befintliga kalenderinbjudningar också?

Tack
Denna kommentar minimerades av moderatoren på webbplatsen
skyyang Jag skulle uppskatta din hjälp med detta.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Yogesh D
Menar du att tacka nej till mötesinbjudningar från en specifik person och ta bort alla möten (både inkommande och redan befintliga) från kalendern?
Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Ja, tar bort nya och befintliga inbjudningar. Både.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Yogesh D
För att lösa ditt problem, använd koden nedan:
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

Gör ett försök, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
skyyang Jag får massor av e-postmeddelanden från en automatiserad och obemannad inkorg, så jag vill inte skicka ett svar till dem om att avböja mötet. Skulle jag istället bara klippa ut segmenten .Body och .Send och använda detta?:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xArtikel
Dim jag som heltal
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem Som AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ","")
För i = 0 Till UBound(xEntryIDs)
Ställ in xItem = Application.Session.GetItemFromID(xEntryIDs(i))
Om xItem.Class = olMeetingRequest Då
Ställ in xMeeting = xItem
xMeeting.ReminderSet = False
Om VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Sedan 'Ange den person du behöver
Ställ in xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = False
Ställ in xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeeting.Delete
End If
End If
Nästa
End Sub


Skål,
Denna kommentar minimerades av moderatoren på webbplatsen
Hej D
Vad menar du med den automatiserade och obemannade inkorgen?
Kan du förklara det mer detaljerat, tack!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser