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

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 "skyyang@addin88.com" '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.


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 (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ó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)?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije