Kuinka lähettää kokouskutsut automaattisesti eteenpäin tietylle henkilölle Outlookissa?
Outlookissa voit lähettää kokouskutsun edelleen tietylle henkilölle suoraan edelleenlähetysominaisuuden avulla. Mutta joskus saatat joutua välittämään kokouskutsut tietylle henkilölle automaattisesti, kun hyväksyt kokouksen. Tässä artikkelissa puhun siitä, kuinka voit lähettää kokouskutsun automaattisesti eteenpäin henkilölle mahdollisimman nopeasti.
Välitä kokouskutsut tietylle henkilölle automaattisesti Outlookissa VBA-koodilla
Välitä kokouskutsut tietylle henkilölle automaattisesti Outlookissa VBA-koodilla
Tässä on hyödyllinen VBA-koodi, jonka avulla voit lähettää kokouskutsun automaattisesti eteenpäin tietylle henkilölle sen hyväksymisen jälkeen. Toimi seuraavasti:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruudusta avataksesi tilan ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Lähetä kokouskutsut automaattisesti eteenpäin tietylle henkilölle:
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
Huomautuksia: Yllä olevassa koodissa sinun tulee vaihtaa vastaanottajan osoite omaksesi.
3. Tallenna sitten koodi ja käynnistä Outlook uudelleen koodivaikutuksen saamiseksi.
4. Nyt kun saat kokouskutsun, kokous hyväksytään automaattisesti ja samaan aikaan tämä kokous välitetään automaattisesti tietylle henkilölle välittömästi.
Huomautuksia: Tämä koodi on käytettävissä vain oletustilillä.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
