Preskoči na glavno vsebino

Kako samodejno sprejeti zahtevo za sestanek določene osebe v programu Outlook?

Avtor: Siluvia Zadnja sprememba: 2020-11-06

Ko prejmete vabilo na sestanek v Outlooku, morate ročno sprejeti zahtevo za sestanek in odgovor poslati pošiljatelju. Ali obstaja preprost način, da ga samodejno sprejmete od določene osebe v programu Outlook? Metoda v tem članku vam bo naredila uslugo.

Samodejno sprejme zahtevo za sestanek določene osebe s kodo VBA


Samodejno sprejme zahtevo za sestanek določene osebe s kodo VBA

Spodnja koda VBA vam lahko pomaga samodejno sprejeti zahtevo za sestanek, poslano od določene osebe v programu Outlook. Naredite naslednje.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession v levem podoknu, da odprete okno Code, in nato v okno kopirajte pod kodo VBA. Oglejte si posnetek zaslona:

Koda VBA: Samodejno sprejme zahtevo za sestanek določene osebe v programu Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Opombe: V kodi zamenjajte »Ime pošiljatelja"S prikaznim imenom pošiljatelja.

3. Shranite kodo in pritisnite tipko druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

4. Znova zaženite Outlook, da začne učinkovati s to kodo.

Od zdaj naprej bo seja, ko bo prejemala zahteve za sestanke, poslane od osebe, ki ste jo navedli v kodi, samodejno sprejeta, pošiljatelj pa bo prejel tudi odgovor po e-pošti.

Opombe: E-poštni račun, ki prejema zahtevo za sestanek, mora biti privzeti račun v Outlooku.


Sorodni članki:


Najboljša pisarniška orodja za produktivnost

Obvladajte Outlook s Kutools: močan, raznolik & Za vedno svoboden!

Odklenite več kot 100 vrhunskih funkcij za 30-dnevno brezplačno preskusno obdobje; nadaljujte z dostopom 70 + zmogljiva orodja za nedoločen čas brez stroškov po koncu preizkusa!

🤖 Kutools AI : Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Samodejni odgovor (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Odpoklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Opomni vas, ko pridejo pomembna e-poštna sporočila  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Takoj odklenite Kutools za Outlook z enim klikom—trajno brezplačno. ne čakaj, prenesite zdaj in povečajte svojo učinkovitost!

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works for me in latest Outlook 365 but the deletion step never occurs. "rRequest.Delete" seems pretty straightforward -- but maybe something has changed in recent releases?
This comment was minimized by the moderator on the site
for me the xMtResponse object isn't being set and the macro errors out. Any updates for Outlook 2016?
This comment was minimized by the moderator on the site
Doesnt work, my appointments still need confirmation
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations