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 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!
