Hoe u een vergaderlocatie rechtstreeks in Outlook in kaart kunt brengen

Soms wil je de locatie van een vergadering op een kaart bekijken. In dit artikel laten we je daarom een ​​stukje VBA-code zien waarmee je de vergaderlocatie direct in Outlook kunt weergeven.

Zoals we allemaal weten, heeft Outlook een native functie voor het in kaart brengen van het contactadres. Er is echter geen functie om de vergaderlocatie in kaart te brengen. Daarom kijken veel gebruikers uit naar een methode om de vergaderlocatie in kaart te brengen. Over het algemeen kunt u een beroep doen op alle kaartservices in de internetbrowser en vervolgens de vergaderlocatie doorzoeken. Maar zonder enige twijfel is het een beetje lastig. Daarom leren we u hier om een ​​vergaderlocatie rechtstreeks in uw Outlook in kaart te brengen. Lees nu verder om de uitgebreide stappen en concrete VBA-code te krijgen.

Breng vergaderlocatie rechtstreeks in kaart in Outlook

1. Start om te beginnen uw Outlook-programma.
2. Nadat u in het hoofdvenster van Outlook bent gekomen, drukt u op de toetsen "Alt + F11".
3. Vervolgens hebt u toegang tot het Outlook VBA-editorvenster.
4. Dan moet u een module zoeken en openen die niet wordt gebruikt.
5. Vervolgens kunt u de volgende VBA-code kopiëren en in deze module plakken.

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. Daarna kunt u, voor toekomstige gemakkelijke controle, de nieuwe macro beter toevoegen aan de werkbalk Snelle toegang of het lint.
7. Later moet u het macrobeveiligingsniveau van Outlook op laag zetten.
8. Eindelijk kun je het proberen.

• Ten eerste kunt u een vergadering openen om deze in een eigen venster te bekijken of gewoon een vergadering selecteren om deze in het leesvenster te bekijken.
• Vervolgens kunt u op de nieuw toegevoegde macro in de werkbalk Snelle toegang drukken.
• Vervolgens opent Outlook de Google Maps in het hoofdvenster en brengt de vergaderlocatie in kaart, zoals in de volgende schermafbeelding:

Kan niet immuun zijn voor fouten

Ondanks dat het over meerdere functies beschikt, kan Outlook nog steeds niet worden vrijgesteld van fouten. U kunt bijvoorbeeld verschillende problemen tegenkomen tijdens het gebruik van Outlook. Daarom moet u voldoende voorzorgsmaatregelen nemen, zoals regelmatig een back-up maken van Outlook-gegevens en een robuust Outlook-herstel tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com