Cómo abrir correos electrónicos recibidos / enviados en modo "Editar" automáticamente con Outlook VBA

Para modificar el cuerpo de un correo electrónico recibido o enviado en Outlook, debes abrirlo y luego activar el modo de edición. Si sueles modificar este tipo de correos, te interesará que se abran automáticamente en modo de edición. Este artículo te ayudará a conseguirlo.

En ocasiones, es posible que necesite modificar el contenido de un correo electrónico recibido o enviado en Outlook. En este caso, como se presentó en la publicación anterior:Cómo modificar el asunto y el cuerpo de los correos electrónicos recibidos en Outlook", Tienes que abrir el correo electrónico y hacer clic en el botón" Acciones "y elegir" Editar mensaje "para convertir el correo electrónico en el modo" Editar ". Sin embargo, puede que le parezca un poco problemático. Por lo tanto, desea que Outlook siempre abra los correos electrónicos recibidos / enviados en el modo "Editar". A continuación, presentaremos cómo usar el código VBA para lograr esta función. Ahora sigue leyendo para conocer los pasos detallados.

Abrir correos electrónicos recibidos / enviados en modo "Editar" automáticamente

1. Al principio, con referencia a "Cómo ejecutar código VBA en su Outlook“, Acceda al editor de Outlook VBA.
2. Luego, copie y pegue el siguiente código VBA en el proyecto "ThisOutlookSession".

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. A continuación, haga clic en la macro “Application_Startup” y pulse la tecla “F5”.
4. En la actualidad, cierre el editor de VBA.
5. Finalmente, puedes intentarlo. Simplemente haga doble clic en un correo recibido o enviado para abrirlo. Seguramente estará en el modo "Editar".

Inmune a la pérdida de datos de Outlook

¿Alguna vez se ha vuelto inaccesible su archivo PST? En realidad, el archivo PST de Outlook puede corromperse fácilmente. Por ejemplo, los virus transmitidos por correo electrónico pueden provocar fácilmente una falla en Outlook y, por lo tanto, provocar la corrupción de los datos de Outlook. En tales casos, la primera resolución que se le ocurra puede ser herramienta de reparación de la bandeja de entrada. Sin embargo, en términos generales, es incapaz de afrontar situaciones tan graves. Por lo tanto, siempre se sugiere hacer una copia de seguridad de los archivos PST a intervalos regulares, de modo que pueda restaurar los datos PST a partir de copias de seguridad como un corcho. De lo contrario, debe recurrir a una herramienta externa especializada, 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 recuperación de mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com