Cuando intenta responder o reenviar correos electrónicos presionando el botón "Responder", "Responder a todos" o "Reenviar", debe haber un prefijo "RE" o "FW" agregado al frente del asunto del correo electrónico. Este artículo le dirá cómo dejar que Outlook los elimine automáticamente con VBA.
En nuestro artículo anterior - "2 métodos para reenviar correos electrónicos de Outlook sin el prefijo "FW" en el asunto”, Puede obtener dos soluciones para reenviar correos electrónicos sin“ FW ”. Están reenviando los correos electrónicos y creando un paso rápido de "Reenvío" respectivamente. Es obvio que ninguno de ellos puede permitirle eliminar automáticamente "FW" si utiliza el botón "Adelante" normal en el grupo "Responder".
Por lo tanto, de forma predeterminada, si desea eliminar el prefijo “RE” o “FW” en el asunto al hacer clic en el botón “Responder”, “Responder a todos” o “Reenviar”, debe eliminarlos manualmente cada vez. Será bastante problemático. Afortunadamente, puede usar Outlook VBA para eliminar automáticamente las palabras específicas en el asunto del correo. Siga leyendo para obtener los códigos y pasos detallados.
Eliminación automática del prefijo "FW" o "RE" al reenviar o responder correos electrónicos
- Para empezar, abre Outlook y dirígete a la pestaña "Desarrollador".
- Luego puede buscar y hacer clic en el botón "Visual Basic".
- A continuación, en la nueva ventana, debe hacer doble clic en el proyecto "ThisOutlookSession".
- Posteriormente, debe copiar y pegar los siguientes códigos VBA en él.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
If InStr(Item.Subject, "RE") > 0 Then
'If you don't want the prompt,
'You can remove the MsgBox line and its correspoding "Else … End If" lines.
If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
If InStr(Item.Subject, "FW") > 0 Then
If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
Item.Subject = Trim(strSubject)
Item.Save
End Sub
- Después de eso, debe firmar un certificado digital para esta macro.
- Más tarde, puede salir de la ventana "Visual Basic" y configurar Outlook para habilitar únicamente las macros firmadas digitalmente.
- Finalmente puedes intentarlo.
- En primer lugar, seleccione un correo electrónico y presione el botón "Responder", "Responder a todos" o "Reenviar"
- Entonces se abrirá el mensaje de respuesta o reenvío. Puede redactar el correo como de costumbre.
- Al hacer clic en el botón "Enviar", recibirá un cuadro de mensaje, como la siguiente captura de pantalla:
- Si selecciona "Sí", el prefijo "RE" o "FW" se eliminará automáticamente. Si selecciona "No", el prefijo no se eliminará.
Qué no hacer al tratar con los correos electrónicos de Outlook
Outlook es vulnerable, por lo que debe tener cuidado al manejar los correos electrónicos de Outlook. Por ejemplo, si recibe correos electrónicos de fuentes desconocidas, es mejor que no lo abra, sin mencionar que haga clic en los enlaces incrustados o descargue los archivos adjuntos. Este tipo de correos electrónicos pueden contener macros, virus o malware maliciosos, que pueden arruinar sus datos de Outlook en un instante. Significa que vas a sufrir Daño del archivo de Outlook. En ese momento, su recurso único es emplear una herramienta de reparación poderosa y confiable, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar db mdf corrupto y productos de software de reparación de Outlook. Para más información visite www.datanumen.com