Jak mapovat místo schůzky přímo v aplikaci Outlook

Někdy si můžete chtít zkontrolovat místo schůzky na mapě. V tomto příspěvku vám proto ukážeme kousek kódu VBA, který vám umožní přímo namapovat místo schůzky v Outlooku.

Jak všichni víme, Outlook má nativní funkci pro mapování kontaktní adresy. Neexistuje však žádná funkce pro mapování místa schůzky. Mnoho uživatelů se proto těší na metodu mapování místa setkání. Obecně se můžete uchýlit k jakékoli Mapové službě v internetovém prohlížeči a poté vyhledat místo schůzky. Ale bez jakýchkoliv pochyb je to trochu problematické. Zde vás tedy naučíme mapovat místo schůzky přímo ve vašem Outlooku. Nyní čtěte dále, abyste získali propracované kroky a konkrétní kód VBA.

Mapa místa schůzky přímo v aplikaci Outlook

1. Pro začátek spusťte program Outlook.
2. Po přechodu do hlavního okna aplikace Outlook stiskněte klávesy „Alt + F11“.
3. Následně budete mít přístup do okna editoru Outlook VBA.
4. Pak byste měli najít a otevřít modul, který se nepoužívá.
5. Dále můžete zkopírovat a vložit následující kód VBA do tohoto modulu.

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. Poté, pro budoucí pohodlnou kontrolu, by bylo lepší přidat nové makro na panel nástrojů Rychlý přístup nebo pás karet.
7. Později budete muset změnit úroveň zabezpečení maker aplikace Outlook na nízkou.
8. Nakonec to můžete vyzkoušet.

• Za prvé, můžete otevřít schůzku a zobrazit ji ve vlastním okně nebo jen vybrat schůzku a zobrazit ji v podokně čtení.
• Poté můžete stisknout nově přidané makro na panelu nástrojů Rychlý přístup.
• Další Outlook otevře Mapy Google ve svém hlavním okně a zmapuje místo schůzky, jako je následující snímek obrazovky:

Nelze být imunní vůči chybám

Navzdory mnoha funkcím se Outlook stále nemůže zbavit chyb. Při používání aplikace Outlook můžete například narazit na různé problémy. Proto byste měli učinit dostatečná opatření, jako je pravidelné zálohování dat aplikace Outlook a příprava robustního Obnova aplikace Outlook nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com