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

Kako samodejno zavrniti povabila na sestanke določenih oseb v programu Outlook? 

V Outlooku lahko ustvarimo pravilo, da nekatera vabila na sestanke določenih oseb samodejno zavrnejo, toda kako ravnati z njimi? Ta članek bo podrobno predstavil metodo.

V Outlooku samodejno zavrnite povabila na sestanke določenih oseb

Samodejno zavrnite povabila na sestanek določenih oseb in izbrišite sestanek tudi iz koledarja


V Outlooku samodejno zavrnite povabila na sestanke določenih oseb

Za dokončanje tega dela naredite naslednje:

1. Najprej ustvarite predlogo sporočila za zavrnitev povabil na sestanek. V Sporočilo v okno vnesite sporočilo, ki ga želite poslati, če želite zavrniti povabila na sestanek. Oglejte si posnetek zaslona:

2. Nato sporočilo shranite v obliki predloge, kliknite file > Shrani kotV Shrani kot v okno vnesite ime sporočila Ime datoteke besedilno polje in nato izberite Predloga Outlook (*. Pogosto) Iz Shrani kot vrsto spustni seznam, glej posnetek zaslona:

Opombe: Ko izberete Predloga Outlook (*. Pogosto), odpre se privzeta mapa uporabniške predloge.

3. Nato kliknite Shrani , da shranite predlogo sporočila in zaprete okno sporočila.

4. In potem lahko ustvarite pravilo. Kliknite Pravila > Upravljanje pravil in opozoril pod Home zavihek, glej posnetek zaslona:

5. v Pravila in opozorila pogovorno okno, kliknite Novo pravilo Iz Pravila o e-pošti zavihek, glej posnetek zaslona:

6. V izskočil Čarovnik za pravila, Kliknite Uporabi pravilo za prejeto sporočilo možnost pod Začnite s praznim pravilom razdelek, glej posnetek zaslona:

7. Nato kliknite Naslednji in v pojavnem pogovornem oknu preverite pri ljudeh ali javni skupini v 1. korak: izberite pogoje in kliknite besedilno povezavo ljudi ali javne skupine da odprete Naslov pravila pogovornem oknu in izberite osebe, pri katerih želite zavrniti sestanek, glejte posnetek zaslona:

8. Kliknite OK , še vedno v tem pogovornem oknu, se pomaknite in preverite ki je povabilo ali posodobitev na možnost iz 1. korak: izberite pogoje seznam, glej posnetek zaslona:

9. Pojdi na klik Naslednji v naslednjem pogovornem oknu:

(1.) Preverite odgovorite s posebno predlogo možnost v 1. korak: Izberite dejanja polje s seznamom;

(2.) In nato kliknite besedilno povezavo določeno predlogo da odprete Izberite predlogo za odgovor pogovorno okno;

(3.) V Izberite predlogo za odgovor izberite pogovorno okno Uporabniške predloge v Datotečni sistem Iz Poglej v spustite;

(4.) Nato izberite ime sporočila, ki ste ga pravkar ustvarili;

(5.) Kliknite Odprto gumb.

10. Vrnite se v prvotno pogovorno okno, nadaljujte s preverjanjem Zbriši možnost v 1. korak: Izberite dejanja seznam, glej posnetek zaslona:

11. Klik Naslednji > Naslednji za pogovorno okno zadnjega koraka. V Konec razdelek za nastavitev pravila, določite ime tega pravila in preverite Vklopite to pravilo možnost iz 2. korak: Možnosti nastavitvenega pravila, glej posnetek zaslona:

12. Kliknite Konec , da končate to pravilo, nato kliknite OK da zaprete pogovorno okno.

13. Od zdaj naprej mu bo ob prejemu sestanka samodejno poslano e-poštno sporočilo o zavrnitvi in ​​tudi sporočilo sestanka.


Samodejno zavrnite povabila na sestanek določenih oseb in izbrišite sestanek tudi iz koledarja

Prva metoda pomaga poslati e-poštno sporočilo osebi, da se ne boste udeležili sestanka, vendar bodo sestanki vedno prikazani v vašem koledarju. Če morate istočasno izbrisati sestanke, ki so prikazani v vašem koledarju, vam lahko naslednja koda VBA naredi uslugo.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) podokno, da odprete modul, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: samodejno zavrni povabila na sestanke in izbriši sestanke tudi iz koledarja:

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. Nato shranite in zaprite to okno kode. Odslej, če obstajajo sestanki te določene osebe, bo ta prejela zavrnjeno e-pošto in sestanek bo samodejno izbrisan iz vašega koledarja.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 

 

Komentarji (16)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da to samo pošlje e-pošto osebi, da zavračate, vendar je še vedno prikazano v vašem koledarju kot poskusni sestanek (privzeto), dokler ne pritisnete gumba za zavrnitev. Ali obstaja način, da dejansko zavrnete zahtevo za sestanek, kot če bi pritisnili gumb »zavrni«, da se ne bi pojavila v vašem koledarju?
Ta komentar je moderator na spletnem mestu minimiziral
Iščem način, da preprečim, da bi sestanek blokiral moj koledar, ne le pošiljanje e-pošte, da se ne bom udeležil. Ali ne obstaja način za to?
Ta komentar je moderator na spletnem mestu minimiziral
Iščem tudi način, da preprečim, da bi sestanek blokiral moj koledar, ne le pošiljanje e-pošte, da se ne bom udeležil. Ali ne obstaja način za to?
Ta komentar je moderator na spletnem mestu minimiziral
To ne zavrne sestanka, le pošlje e-pošto. Potrebujem ga, da se sestanek ne prikaže na mojem koledarju.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Ben,
Ta članek je bil posodobljen, za rešitev težave lahko uporabite drugo metodo.
Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Če bi rad uporabil drugo metodo (izbriši sestanek iz koledarja), vendar jo potrebujem za filtriranje povabila, ki prihaja od določene osebe, in zadevo, ki vsebuje ključno besedo, bi rad zavrnil sestanek in ne bi blokiral mojega koledarja. Primer uporabe je, da nenehno dobivam vabila na sestanek od nekoga, ki vodi spletne seminarje. Rad bi zavrnil vsa srečanja te osebe, če zadeva vsebuje spletni seminar. Ne bi rad samodejno zavrnil vseh sestankov te ene osebe (saj so nekateri pomembni) in tudi ne bi rad zavrnil vseh sestankov z besedo webinar v zadevi, saj so nekateri pomembni.

Vsakršna pomoč, ki jo lahko kdorkoli zagotovi, bo zelo cenjena.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Todd,
Če želite dodati merila za predmet, uporabite naslednjo kodo:
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

Prosimo, poskusite, upam, da vam bo pomagalo!
Ta komentar je moderator na spletnem mestu minimiziral
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 meeting che si sovrappongono con più del 25% della pausa pranzo venissero rifiutati con un messaggio del tipo "non accetto meeting in pausa pranzo".
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Manzon
Oprostite, trenutno koda v našem članku še ne reši vaše težave.
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hi

Kako lahko zaženem ta skript VB tudi za obstoječa koledarska povabila?

Hvala
Ta komentar je moderator na spletnem mestu minimiziral
skyyang Cenil bi vašo pomoč pri tem.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Yogesh D
Ali nameravate zavrniti povabila na sestanek določenih ljudi in odstraniti vse sestanke (dohodne in obstoječe) iz koledarja?
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Da, brisanje novih in obstoječih povabil. Oboje.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Yogesh D
Če želite rešiti težavo, uporabite spodnjo kodo:
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

Prosimo, poskusite, upam, da vam bo pomagalo!
Ta komentar je moderator na spletnem mestu minimiziral
skyyang Prejemam veliko e-poštnih sporočil iz avtomatiziranega nabiralnika brez osebja, zato jim ne želim poslati odgovora o zavrnitvi sestanka. Ali bi namesto tega preprosto izrezal segmenta .Body in .Send in uporabil to?:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i kot celo število
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Zatemni xAppointmentItem kot AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
Za i = 0 za UBound(xEntryIDs)
Nastavite xItem = Application.Session.GetItemFromID(xEntryIDs(i))
Če je xItem.Class = olMeetingRequest Potem
Nastavite xMeeting = xItem
xMeeting.ReminderSet = False
Če je VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com"), potem 'Določite osebo, ki jo potrebujete
Nastavite xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = False
Nastavite xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeeting.Delete
Konec Če
Konec Če
Naslednji
End Sub


Na zdravje,
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, D
Kaj mislite z avtomatiziranim in brez posadke?
Lahko to bolj podrobno razložiš, hvala!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije