Come mappare la posizione della riunione direttamente all'interno di Outlook

A volte, potrebbe essere utile visualizzare il luogo di una riunione su una mappa. In questo articolo, vi mostreremo un frammento di codice VBA che vi permetterà di visualizzare direttamente il luogo della riunione su una mappa in Outlook.

Come tutti sappiamo, Outlook ha una funzionalità nativa per la mappatura dell'indirizzo di contatto. Tuttavia, non esiste alcuna funzione per mappare il luogo della riunione. Pertanto, molti utenti non vedono l'ora di trovare un metodo per mappare il luogo della riunione. In generale, puoi ricorrere a qualsiasi servizio di mappe nel browser Internet e quindi cercare il luogo dell'incontro. Ma senza alcun dubbio, è un po' fastidioso. Pertanto, qui ti insegneremo a mappare un luogo di incontro direttamente nel tuo Outlook. Ora continua a leggere per ottenere i passaggi elaborati e il codice VBA concreto.

Mappa la posizione della riunione direttamente all'interno di Outlook

1. Innanzitutto, avvia il programma Outlook.
2. Dopo essere entrato nella finestra principale di Outlook, premi i pulsanti "Alt + F11".
3. Successivamente, sarai in grado di accedere alla finestra dell'editor VBA di Outlook.
4. Quindi dovresti trovare e aprire un modulo che non viene utilizzato.
5. Successivamente puoi copiare e incollare il seguente codice VBA in questo modulo.

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. Dopodiché, per un comodo controllo futuro, è meglio aggiungere la nuova macro alla barra degli strumenti o al nastro di accesso rapido.
7. Successivamente è necessario modificare il livello di sicurezza delle macro di Outlook in basso.
8. Finalmente puoi provare.

• Innanzitutto, puoi aprire una riunione per visualizzarla nella sua finestra o semplicemente selezionare una riunione per visualizzarla nel riquadro di lettura.
• Quindi puoi premere la macro appena aggiunta nella barra di accesso rapido.
• Il prossimo Outlook aprirà Google Maps nella sua finestra principale e mapperà il luogo della riunione, come nella seguente schermata:

Impossibile essere immuni dagli errori

Nonostante vanti molteplici funzionalità, Outlook non può ancora essere esente da errori. Ad esempio, potresti riscontrare vari problemi durante l'utilizzo di Outlook. Pertanto, dovresti prendere precauzioni sufficienti, come eseguire regolarmente il backup dei dati di Outlook e preparare un file robusto Recupero di Outlook strumento, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com