Ako mapovať miesto schôdzky priamo v programe Outlook

Niekedy možno budete chcieť skontrolovať miesto stretnutia na mape. Preto vám v tomto príspevku predstavíme kúsok kódu VBA, ktorý vám umožní priamo namapovať miesto stretnutia v programe Outlook.

Ako všetci vieme, Outlook má natívnu funkciu na mapovanie kontaktnej adresy. Nie je však k dispozícii žiadna funkcia na mapovanie miesta schôdzky. Mnoho používateľov sa preto teší na metódu mapovania miesta schôdzky. Spravidla sa môžete uchýliť k akejkoľvek mapovej službe v internetovom prehliadači a potom vyhľadať miesto schôdzky. Ale bez akýchkoľvek pochybností je to trochu nepríjemné. Tu vás teda naučíme mapovať miesto stretnutia priamo vo vašom Outlooku. Teraz čítajte ďalej a získate zložité kroky a konkrétny kód VBA.

Mapujte miesto stretnutia priamo v Outlooku

1. Na začiatok spustite program Outlook.
2. Po vstupe do hlavného okna programu Outlook stlačte klávesové skratky „Alt + F11“.
3. Následne budete mať prístup do okna editora Outlook VBA.
4. Potom by ste mali nájsť a otvoriť modul, ktorý sa práve nepoužíva.
5. Ďalej môžete do tohto modulu skopírovať a vložiť nasledujúci kód VBA.

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. Potom by ste pre budúcu pohodlnú kontrolu mali lepšie pridať nové makro na panel nástrojov alebo na pásku s nástrojmi Rýchly prístup.
7. Neskôr budete musieť zmeniť úroveň zabezpečenia makra programu Outlook na nízku.
8. Nakoniec to môžete vyskúšať.

• Najskôr môžete otvoriť schôdzu a zobraziť ju vo svojom vlastnom okne alebo iba vybrať schôdzu a zobraziť ju na table na čítanie.
• Potom môžete stlačiť novo pridané makro na paneli s nástrojmi Rýchly prístup.
• Ďalej program Outlook otvorí Mapy Google v hlavnom okne a namapuje miesto schôdzky, napríklad na nasledujúcom obrázku:

Nemožno byť imunný voči chybám

Napriek tomu, že sa program Outlook môže pochváliť viacerými funkciami, stále sa nemôže vyňať z chýb. Napríklad počas používania Outlooku sa môžete stretnúť s rôznymi problémami. Mali by ste teda urobiť dostatočné preventívne opatrenia, napríklad pravidelne zálohovať údaje Outlooku a pripraviť dôkladné Obnova programu Outlook nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S