¿Cómo buscar y reemplazar el asunto de la cita en el calendario de Outlook?

Buscar y reemplazar el tema de la cita en el calendario de Outlook es útil cuando encuentra que algunos temas deben reemplazarse con los mismos textos en masa. O reemplace la palabra Copiar en el campo del asunto después de importar los datos en Outlook. Este artículo le proporciona el código VBA para buscar y reemplazar múltiples temas de citas. Busque más detalles.

Busque y reemplace el asunto de la cita con el código VBA

Busque y reemplace el asunto de la cita con el código VBA

En esta sección, puede buscar y reemplazar el asunto de la cita con el código VBA de la siguiente manera.

1. En primer lugar, debe establecer la configuración de macro en baja en su Outlook.

1) En Outlook 2010 y 2013, haga clic en Archive > Opciones. Y en la Opciones de outlook cuadro de diálogo, haga clic en Centro de confianza en la barra izquierda, luego haga clic en el Trust Center Settings del botón.

En Centro de confianza cuadro de diálogo, haga clic en Configuración de macros en la barra izquierda, luego seleccione Habilitar todas las macros opción en el Configuración de macros sección. Y haga clic en el OK botón. Ver captura de pantalla:

2). En Outlook 2007, haga clic en Herramientas > Centro de confianza. En la Centro de confianza cuadro de diálogo, haga clic en Configuración de macros en la barra izquierda, luego seleccione Sin control de seguridad para macros opción y haga clic en OK del botón.

2. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic para expandir la project1 > Objetos de Microsoft Outlook > Esta sesión de Outlook para abrir el editor de VBA. Ver captura de pantalla:

4. Copie y pegue el siguiente código VBA en el editor de VBA. Y luego presione el F5 clave para ejecutar el código.

VBA: buscar y reemplazar el asunto de la cita

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. Después de ejecutar el código, microsoft Outlook aparece el cuadro de diálogo. Haga clic en el OK del botón.

6. En el segundo microsoft Outlook cuadro de diálogo, ingrese el texto que desea reemplazar y luego haga clic en el OK del botón.

7. En el tercero microsoft Outlook cuadro de diálogo, ingrese el texto que desea reemplazar y haga clic en OK.

Note: Si solo desea eliminar todas las palabras "Copiar" del tema en el calendario especificado, deje este cuadro en blanco.

8. Haga clic en el OK en el cuadro de diálogo de abajo.

9. En el Seleccionar carpeta cuadro de diálogo, seleccione su calendario en la cuenta de correo electrónico especificada, y luego haga clic en el OK botón. Ver captura de pantalla:

10. Luego, aparecerá un cuadro de diálogo para informarle que el reemplazo se realizó correctamente. Haga clic en el OK del botón.

11. Y luego, todos los textos en sus temas del calendario seleccionado se han reemplazado con el nuevo contenido.

---

Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionales: Guardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

Leer Mas       Descargar gratis      Comprar