¿Cómo buscar y reemplazar el texto del asunto dentro de los correos electrónicos o tareas en Outlook?

Author Xiaoyang Last modified 2025-08-26

En Outlook, si hay varios asuntos de mensajes o tareas que necesitan ser reemplazados por un texto específico, por supuesto, puedes cambiarlos uno por uno, pero, ¿existe alguna forma rápida de realizar esta tarea de una vez en Outlook?

Buscar y reemplazar el texto del asunto en varios correos electrónicos utilizando código VBA

Buscar y reemplazar el texto del asunto en múltiples tareas utilizando código VBA

Buscar y reemplazar el texto del asunto en varios correos electrónicos utilizando código VBA

Encuentra un texto específico y reemplázalo con otro en múltiples asuntos de mensajes; el siguiente código VBA puede ayudarte, por favor sigue los siguientes pasos:

1. Selecciona los correos electrónicos en los que deseas buscar y reemplazar el texto del asunto, y luego mantén presionadas las teclas "ALT + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. Luego, haz clic en "Insertar" > "Módulo", copia y pega el siguiente código en el módulo en blanco abierto, ver captura de pantalla:

Código VBA: Buscar y reemplazar el texto del asunto en múltiples mensajes:

Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
    Set xItem = xExplorer.Selection.Item(i)
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        With xMailItem
            xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub

Notas: En el código anterior: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" es el texto antiguo que deseas encontrar, y "Kutools for Excel" es el nuevo texto con el que deseas reemplazarlo. Por favor, cámbialos según tus necesidades.

3. Luego presiona la tecla "F5" para ejecutar este código, y el texto específico en los asuntos de los mensajes habrá sido reemplazado por el nuevo texto según lo necesites, ver captura de pantalla:

Buscar y reemplazar el texto del asunto en múltiples tareas utilizando código VBA

Si necesitas buscar y reemplazar el texto del asunto en las tareas, el siguiente código VBA también puede ayudarte.

1. Mantén presionadas las teclas "ALT + F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. Luego, haz clic en "Insertar" > "Módulo", copia y pega el siguiente código en el módulo en blanco abierto, ver captura de pantalla:

Código VBA: Buscar y reemplazar el texto del asunto en todas las tareas:

Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
    Set xNavFolder = xGroup.NavigationFolders.Item(i)
    For k = xNavFolder.Folder.Items.Count To 1 Step -1
        Set xTaskItem = xNavFolder.Folder.Items(k)
        If InStr(xTaskItem.Subject, xFindStr) > 0 Then
            xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
            xTaskItem.Save
            xTotalCount = xTotalCount + 1
        End If
    Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Luego presiona la tecla "F5" para ejecutar este código, y aparecerá un cuadro de diálogo donde deberás escribir el texto que deseas encontrar en los asuntos de las tareas, ver captura de pantalla:

4. Haz clic en "Aceptar", y aparecerá otro cuadro de diálogo donde deberás ingresar el nuevo texto con el que deseas reemplazarlo, ver captura de pantalla:

5. Luego haz clic en "Aceptar", y se mostrará un cuadro de diálogo indicándote cuántos asuntos han sido cambiados, ver captura de pantalla:

6. Haz clic en "Aceptar", y los textos antiguos en los asuntos de las tareas habrán sido reemplazados por los nuevos, ver captura de pantalla:

Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar tus correos electrónicos sin esfuerzo: responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete