Cum să căutați și să înlocuiți subiectul programării în calendarul Outlook?

Găsirea și înlocuirea subiectului programării în calendarul Outlook este utilă atunci când găsiți că unele subiecte trebuie înlocuite cu aceleași texte în masă. Sau înlocuiți cuvântul Copiere în câmpul subiectului după importarea datelor în Outlook. Acest articol vă oferă codul VBA pentru a căuta și înlocui mai multe subiecte de întâlnire. Vă rugăm să navigați pentru mai multe detalii.

Căutați și înlocuiți subiectul întâlnirii cu codul VBA

Căutați și înlocuiți subiectul întâlnirii cu codul VBA

În această secțiune, puteți căuta și înlocui subiectul întâlnirii cu codul VBA după cum urmează.

1. În primul rând, trebuie să setați setările macro la un nivel scăzut în Outlook.

1) În Outlook 2010 și 2013, faceți clic pe Fișier > Opţiuni. Și în Opțiuni Outlook casetă de dialog, faceți clic pe Centrul de încredere în bara din stânga, apoi faceți clic pe Trust Center Settings butonul.

În Centrul de încredere casetă de dialog, faceți clic pe Setări macro în bara din stânga, apoi selectați Activați toate macrocomenzile opțiune în Setări macro secțiune. Și faceți clic pe OK buton. Vedeți captura de ecran:

2). În Outlook 2007, faceți clic pe Instrumente > Centrul de încredere. În Centrul de încredere casetă de dialog, faceți clic pe Setări macro în bara din stânga, apoi selectați Fără verificare de securitate pentru macrocomenzi și faceți clic pe OK butonul.

2. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic pentru a extinde project1 > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide editorul VBA. Vedeți captura de ecran:

4. Copiați și lipiți următorul cod VBA în editorul VBA. Și apoi apăsați pe F5 tasta pentru a rula codul.

VBA: găsiți și înlocuiți subiectul întâlnirii

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. După rularea codului, a Microsoft Outlook apare fereastra de dialog. Apasă pe OK butonul.

6. În al doilea Microsoft Outlook caseta de dialog, introduceți textul pe care doriți să îl înlocuiți, apoi faceți clic pe OK butonul.

7. În al treilea Microsoft Outlook caseta de dialog, introduceți textul pe care doriți să îl înlocuiți și faceți clic pe OK.

notițe: Dacă doriți doar să eliminați toate cuvintele „Copiați” din subiect în calendarul specificat, vă rugăm să lăsați această casetă necompletată.

8. Faceți clic pe OK din caseta de dialog de mai jos.

9. În Selectați Dosar caseta de dialog, selectați calendarul în contul de e-mail specificat, apoi faceți clic pe OK buton. Vedeți captura de ecran:

10. Apoi va apărea o casetă de dialog pentru a vă informa că înlocuirea are succes. Vă rugăm să faceți clic pe OK butonul.

11. Și apoi toate textele din subiectele dvs. din calendarul selectat au fost înlocuite cu noul conținut.

---

Cele mai bune instrumente de productivitate de birou

Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!

Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!

🤖 Kutools AI : Utilizează tehnologia AI avansată pentru a gestiona e-mailurile fără efort, inclusiv pentru a răspunde, rezuma, optimiza, extinde, traduce și compune e-mailuri.

📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Rechemare e-mailuri  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente Pro: Salvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Amintește-ți când vin e-mailuri importante  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Deblocați instantaneu Kutools pentru Outlook cu un singur clic—permanent liber. Nu așteptați, descărcați acum și creșteți-vă eficiența!

Lista de caracteristici a Kutools pentru Outlook      Descărcați versiunea gratuită      Faceți upgrade la Professional