Hur man kartlägger mötesplats direkt i Outlook

Ibland kanske du vill kontrollera mötesplatsen på en karta. Därför kommer vi i det här inlägget att visa dig en bit VBA-kod som låter dig kartlägga mötesplatsen direkt i Outlook.

Som vi alla vet har Outlook en inbyggd funktion för att kartlägga kontaktadressen. Det finns dock ingen funktion för att kartlägga mötesplatsen. Därför ser många användare fram emot en metod för att kartlägga mötesplatsen. I allmänhet kan du använda alla karttjänster i webbläsaren och sedan söka på mötesplatsen. Men utan tvekan är det lite besvärligt. Så här lär vi dig att mappa en mötesplats direkt i din Outlook. Läs nu för att få detaljerade steg och konkret VBA-kod.

Kartlägg mötesplats direkt i Outlook

1. Till att börja med, starta ditt Outlook-program.
2. När du har kommit in i huvudfönstret i Outlook trycker du på “Alt + F11” -tangenterna.
3. Därefter kommer du att få åtkomst till Outlook VBA-redigeringsfönstret.
4. Då borde du hitta och öppna en modul som inte används.
5. Därefter kan du kopiera och klistra in följande VBA-kod i den här modulen.

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. Efter det, för framtida bekväm kontroll, skulle du bättre lägga till det nya makrot i snabbåtkomstverktygsfältet eller menyfliksområdet.
7. Senare måste du ändra din säkerhetsnivå för makro i Outlook till låg.
8. Äntligen kan du prova.

• För det första kan du öppna ett möte för att visa det i sitt eget fönster eller bara välja ett möte för att visa det i läsfönstret.
• Sedan kan du trycka på det nyligen tillagda makrot i snabbåtkomstverktygsfältet.
• Nästa Outlook öppnar Google Maps i huvudfönstret och kartlägger mötesplatsen, som följande skärmdump:

Det går inte att vara immun mot fel

Trots att det finns flera funktioner kan Outlook fortfarande inte undantas från fel. Du kan till exempel stöta på olika problem när du använder Outlook. Därför bör du göra tillräckliga försiktighetsåtgärder, som att säkerhetskopiera Outlook-data regelbundet och förbereda en robust Outlook-återställning verktyg, såsom DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återställa mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com