Cuando desee insertar rápidamente textos al final de un mensaje de correo electrónico bastante largo, le llevará un tiempo desplazarse hacia abajo hasta el final. Este artículo expondrá un método que puede permitirle saltar rápidamente al final o al principio del cuerpo del correo electrónico a través de VBA.
A veces, al leer un correo electrónico extenso, es posible que desee poder desplazarse rápidamente al principio o al final del mensaje. Por ejemplo, si desea consultar la firma del remitente, deberá ir al final. Generalmente, esto implica desplazarse hacia abajo hasta llegar al final, lo cual puede resultar un poco engorroso. Por ello, le ofrecemos un fragmento de código VBA que le permitirá ir al principio o al final con un solo clic.
Saltar rápidamente al principio o al final del cuerpo del mensaje
- Para empezar, inicie su programa Outlook.
- Luego, en la ventana principal de Outlook, presione los botones de tecla "Alt + F11".
- A continuación, ingresará a la ventana "Microsoft Visual Basic para aplicaciones".
- En este punto, debe abrir un módulo en blanco o insertar directamente uno nuevo.
- Posteriormente, debe copiar y pegar el siguiente código VBA en dicha ventana de módulo.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Solo funciona si el correo electrónico actual está usando el editor de Word Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- Después de eso, será mejor que agregue las dos nuevas subrutinas a la barra de herramientas de acceso rápido de la ventana del mensaje.
- En primer lugar, abra un correo electrónico en la ventana Mensaje.
- Luego, haga clic en la flecha hacia abajo en la barra de herramientas de acceso rápido.
- En la lista desplegable, debe seleccionar "Más comandos".
- En la siguiente ventana, puede agregar las macros a la barra de herramientas de acceso rápido como en la siguiente captura de pantalla:
- Por último, haga clic en una serie de "Aceptar" para guardar los cambios.
- A partir de ahora, podrá ir al principio o al final de un correo electrónico simplemente haciendo clic en el botón de la barra de herramientas de acceso rápido, que se muestra en la siguiente imagen:
¿Qué pasa si el archivo PST se ve comprometido?
Debido al hecho de que el archivo PST es susceptible a errores y corrupción, debe hacer todo lo posible para proteger sus datos PST. Por ejemplo, debe realizar una copia de seguridad de su archivo PST periódicamente. Además, para poder volver PST dañado datos a tiempo, es mejor que tenga una herramienta poderosa cerca, como DataNumen Outlook Repair. Está especializado en solucionar problemas de PST y recuperar datos de PST.
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 SQL Server reparar y productos de software de reparación de Outlook. Para más información visite www.datanumen.com