Preskoči na glavno vsebino

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.

doc samodejno posredovanje sestanka 1

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

📧 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 ProShrani 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č.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ótimo código!
Mas como faço para, em vez de aceitar os convites automaticamente e os encamilha-los, encaminhar para outro e-mail apenas os que eu aceitei (os que eu não aceitar ele ignora)?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations