Come inoltrare automaticamente gli inviti alle riunioni a una persona specifica in Outlook?
In Outlook, puoi inoltrare manualmente un invito a una riunione a una persona specifica utilizzando la funzione Inoltra. Tuttavia, a volte potrebbe essere necessario inoltrare automaticamente gli inviti alle riunioni a una persona specifica quando accetti la riunione. In questo articolo, ti mostrerò come inoltrare automaticamente un invito a una riunione a una persona il più rapidamente possibile.
Inoltra automaticamente gli inviti alle riunioni a una persona specifica in Outlook con il codice VBA
Ecco un utile codice VBA che può aiutarti a inoltrare automaticamente l'invito alla riunione a una persona specifica dopo averlo accettato; procedi nel seguente modo:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1(VbaProject.OTM) per aprire la modalità e poi copia e incolla il seguente codice nel modulo vuoto.
Codice VBA: Inoltro automatico degli inviti alle riunioni a una persona specifica:
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
Nota: Nel codice sopra, dovresti cambiare l'indirizzo del destinatario con il tuo.
3. Salva quindi il codice e riavvia Outlook per rendere effettive le modifiche.
4. Ora, quando ricevi un invito a una riunione, questa verrà accettata automaticamente e allo stesso tempo inoltrata immediatamente alla persona specifica.
Nota: Questo codice è disponibile solo per l'account predefinito.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovo Kutools per Outlook con oltre100 funzionalità incredibili! Clicca per scaricare ora!
📧 Automazione email: Risposta automatica (disponibile per POP e IMAP) / Programmazione invio email / CC/BCC automatico tramite regola durante l’invio dell’email / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddivisione automatica delle email con più destinatari in email individuali ...
📨 Gestione email: Richiama Email / Blocca email di truffa tramite Oggetto e altro / Elimina Email duplicate / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salvataggio in batch / Distacco in batch / Compressione in batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia dell’interfaccia: 😊Più emoji belle e simpatiche / Ti avvisa quando arrivano email importanti / Minimizza Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a Tutti con Allegati / Email Anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e Calendario: Aggiunta massiva dei contatti dalle email selezionate / Dividi un Gruppo di Contatti in gruppi individuali / Rimuovi promemoria di compleanno ...
Usa Kutools nella lingua che preferisci: supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!
