Come cercare e sostituire l'oggetto di un appuntamento nel calendario di Outlook?

Cercare e sostituire l'oggetto di un appuntamento nel calendario di Outlook è utile quando si scopre che alcuni oggetti devono essere sostituiti con lo stesso testo in massa. Oppure sostituire la parola Copia nel campo dell'oggetto dopo l'importazione dei dati in Outlook. Questo articolo ti fornisce il codice VBA per cercare e sostituire più oggetti di appuntamenti. Per ulteriori dettagli, consulta sotto.

Cerca e sostituisci l'oggetto dell'appuntamento con il codice VBA

Cerca e sostituisci l'oggetto dell'appuntamento con il codice VBA

In questa sezione, puoi cercare e sostituire l'oggetto dell'appuntamento con il codice VBA come segue.

1. Prima di tutto, devi impostare le impostazioni delle macro su basso nel tuo Outlook.

1) In Outlook 2010 e 2013, clicca su "File" > "Opzioni". Nella finestra di dialogo "Opzioni di Outlook", clicca su "Centro protezione" nella barra a sinistra, poi sul pulsante "Impostazioni Centro protezione".

Nella finestra di dialogo "Centro protezione", clicca su "Impostazioni Macro" nella barra a sinistra, quindi seleziona l'opzione "Abilita tutte le macro" nella sezione "Impostazioni Macro". Clicca sul pulsante "OK". Vedi screenshot:

2) In Outlook 2007, clicca su "Strumenti" > "Centro protezione". Nella finestra di dialogo "Centro protezione", clicca su "Impostazioni Macro" nella barra a sinistra, quindi seleziona l'opzione "Nessun controllo di sicurezza per le macro" e clicca sul pulsante "OK".

2. Premi i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

3. Nella finestra "Microsoft Visual Basic for Applications", fai doppio clic per espandere "progetto1" > "Oggetti Microsoft Outlook" > "ThisOutlookSession" per aprire l'editor VBA. Vedi screenshot:

4. Copia e incolla il seguente codice VBA nell'editor VBA. Poi premi il tasto "F5" per eseguire il codice.

VBA: trova e sostituisci l'oggetto dell'appuntamento

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. Dopo aver eseguito il codice, apparirà una finestra di dialogo "Microsoft Outlook". Clicca sul pulsante "OK".

6. Nella seconda finestra di dialogo "Microsoft Outlook", inserisci il testo che desideri sostituire, quindi clicca sul pulsante "OK".

7. Nella terza finestra di dialogo "Microsoft Outlook", inserisci il testo che vuoi utilizzare come sostituzione, e clicca "OK".

Nota: Se vuoi solo rimuovere tutte le parole “Copia” dall'oggetto nel calendario specificato, lascia questo campo vuoto.

8. Clicca sul pulsante "OK" nella finestra di dialogo sottostante.

9. Nella finestra di dialogo "Seleziona cartella", seleziona il tuo calendario sotto l'account email specificato, quindi clicca sul pulsante "OK". Vedi screenshot:

10. Apparirà quindi una finestra di dialogo per informarti che la sostituzione è stata completata con successo. Clicca sul pulsante "OK".

11. Dopodiché, tutti i testi negli oggetti del calendario selezionato saranno stati sostituiti con il nuovo contenuto.

---

I migliori strumenti per la produttività in Office

Ultime notizie: Kutools per Outlook lancia la versione gratuita!

Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!

🤖 Kutools AI : Utilizza una tecnologia AI avanzata per gestire le email senza sforzo, inclusa la risposta, la sintesi, l’ottimizzazione, l’estensione, la traduzione e la composizione dei messaggi.

📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP)  /  Programma invio Email  /  CC/BCC automatico tramite Regola durante l’invio delle Email  /  Inoltro automatico (Regola avanzata)   /  Aggiungi Saluto automaticamente   /  Dividi automaticamente Email multi-destinatario in messaggi singoli ...

📨 Gestione Email: Richiama Email  /  Blocca Email fraudulent (tramite Oggetto e altri parametri)  /  Elimina Email Duplicato  /  Ricerca Avanzata  /  Organizza cartelle ...

📁 Allegati Pro: Salva in Batch  /  Distacca in Batch  /  Comprimi in Batch  /  Salvataggio automatico   /  Distacca automaticamente  /  Auto Comprimi ...

🌟 Magia Interfaccia: 😊Più emoji belle e divertenti   /  Notifiche per le email importanti in arrivo  /  Riduci Outlook al posto di chiuderlo ...

👍 Funzioni rapide: Rispondi a Tutti con Allegati  /  Email Anti-Phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate  /  Dividi un Gruppo di Contatti in Gruppi singoli  /  Rimuovi promemoria di compleanno ...

Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

Sblocca Kutools per Outlook istantaneamente con un solo clic. Non aspettare, scarica ora e aumenta la tua efficienza!

Tabella Unidimensionale di Kutools per Outlook      Scarica ora      Vai a Acquista

🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office

Consigliato: Kutools per Office (5-in-1)

Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!

• ✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
• 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
• 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite