Kako samodejno posredovati povabila na sestanek določeni osebi v programu Outlook?
V Outlooku lahko povabilo na sestanek neposredno posredujete določeni osebi z ročno funkcijo Posredovanje. Včasih pa boste morda morali vabila na sestanek samodejno posredovati določeni osebi, ko boste sprejeli sestanek. V tem članku bom govoril o tem, kako samodejno posredovati vabilo na sestanek osebi, kakor hitro je mogoče.
Povabila na sestanek samodejno posredujejo določeni osebi v programu Outlook s kodo VBA
Povabila na sestanek samodejno posredujejo določeni osebi v programu Outlook s kodo VBA
Tu je uporabna koda VBA, ki vam lahko pomaga, da povabilo na sestanek samodejno posreduje določeni osebi, potem ko jo sprejmete. Naredite to:
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) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.
Koda VBA: Samodejno posredovanje vabila na sestanek določeni osebi:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
xMeetingResponse.Send
Set xForwardMeeting = xMeetingItem.Forward
With xForwardMeeting
With .Recipients
.Add "" 'change address to your own
.ResolveAll
End With
.Send
End With
End If
End Sub
Opombe: V zgornji kodi morate naslov prejemnika spremeniti v svojega.
3. Nato shranite kodo in znova zaženite Outlook, da začne učinkovati.
4. Ko prejmete povabilo na sestanek, bo sestanek samodejno sprejet, hkrati pa bo ta sestanek samodejno posredovan vaši določeni osebi.
Opombe: Ta koda je na voljo samo za privzeti račun.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: 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: Odsoten (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: Enostaven priklic 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 Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / 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 ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.