¿Cómo buscar y reemplazar el texto del asunto dentro de los correos electrónicos o tareas en Outlook?
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
Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!
📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...
📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos por asunto y otros criterios / Eliminar correos electrónicos 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 de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails importantes / Minimiza Outlook en vez de cerrarlo ...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos Anti-Phishing / 🕘Mostrar la zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...
Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!
