Cómo mapear la ubicación de la reunión directamente en Outlook

En ocasiones, es posible que desee consultar la ubicación de una reunión en un mapa. Por ello, en esta publicación le mostraremos un fragmento de código VBA que le permitirá visualizar directamente la ubicación de la reunión en Outlook.

Como todos sabemos, Outlook tiene una función nativa para mapear la dirección de contacto. Sin embargo, no existe ninguna función para mapear la ubicación de la reunión. Por lo tanto, muchos usuarios esperan un método para mapear la ubicación de la reunión. En general, puede recurrir a cualquier servicio de mapas en el navegador de Internet y luego buscar la ubicación de la reunión. Pero sin dudas, es un poco molesto. Por lo tanto, aquí le enseñaremos a mapear una ubicación de reunión directamente en su Outlook. Ahora siga leyendo para obtener los pasos elaborados y el código VBA concreto.

Asignar la ubicación de la reunión directamente en Outlook

1. Para empezar, abre tu programa Outlook.
2. Después de ingresar a la ventana principal de Outlook, presione los botones de tecla "Alt + F11".
3. Posteriormente, podrá acceder a la ventana del editor de Outlook VBA.
4. Luego, debe buscar y abrir un módulo que no se esté utilizando.
5. A continuación, puede copiar y pegar el siguiente código VBA en este módulo.

Sub MapMeetingLocationiwithinOutlook()
    Dim objMeeting As Outlook.AppointmentItem
    Dim objWordDocument As Word.Document
    Dim strMeetingLocation As String
    Dim strURL As String
    Dim objExplorer As Explorer
    Dim objWebBrowser As Object
 
    On Error Resume Next
    Select Case TypeName(Outlook.Application.ActiveWindow)
           Case "Inspector"
                Set objMeeting = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objMeeting = ActiveExplorer.Selection.Item(1)
    End Select
 
    strMeetingLocation = objMeeting.Location
 
    If strMeetingLocation <> "" Then
       strMeetingLocation = Replace(strMeetingLocation, " ", "-")
       'Use Google Maps
       strURL = "http://maps.google.com/maps?q=" & strMeetingLocation
 
       'Open the map of the meeting location within Outlook
       Set objExplorer = Application.ActiveExplorer
       Set objWebBrowser = objExplorer.CommandBars.FindControl(, 1740)
       objWebBrowser.Text = strURL
       objWebBrowser.Execute
    Else
       MsgBox "Invalid Location", vbExclamation
    End If
End Sub

6. Después de eso, para una futura verificación conveniente, es mejor que agregue la nueva macro a la barra de herramientas de acceso rápido o cinta.
7. Más tarde, debe cambiar el nivel de seguridad de macros de Outlook a bajo.
8. Finalmente puedes intentarlo.

• En primer lugar, puede abrir una reunión para verla en su propia ventana o simplemente seleccionar una reunión para verla en el panel de lectura.
• Luego, puede presionar la macro recién agregada en la barra de herramientas de acceso rápido.
• A continuación, Outlook abrirá Google Maps en su ventana principal y mapeará la ubicación de la reunión, como en la siguiente captura de pantalla:

Incapaz de ser inmune a los errores

A pesar de contar con múltiples funciones, Outlook todavía no puede estar exento de errores. Por ejemplo, puede encontrar varios problemas durante el uso de Outlook. Por lo tanto, debe tomar las precauciones necesarias, como realizar copias de seguridad de los datos de Outlook de forma regular y preparar una Recuperación de Outlook herramienta, 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 recuperar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com