Paano Mapa ang Lokasyon ng Pagpupulong Direkta sa loob ng Outlook

Minsan, maaaring gusto mong tingnan ang lokasyon ng pulong sa isang mapa. Kaya, sa post na ito, ipapakita namin sa iyo ang isang piraso ng VBA code, na magbibigay-daan sa iyong direktang imapa ang lokasyon ng pulong nang direkta sa loob ng Outlook.

Tulad ng alam nating lahat, ang Outlook ay may katutubong tampok para sa pagmamapa ng contact address. Gayunpaman, walang pagpapaandar para sa pagmamapa sa lokasyon ng pagpupulong. Samakatuwid, maraming mga gumagamit ang naghihintay sa isang paraan upang mapa ang lokasyon ng pagpupulong. Sa pangkalahatan, maaari kang gumamit ng anumang mga serbisyo sa Mapa sa Internet browser at pagkatapos ay maghanap sa lokasyon ng pagpupulong. Ngunit nang walang anumang pagdududa, medyo mahirap ito. Sa gayon, dito ka namin tuturuan mag-mapa ng lokasyon ng pulong nang direkta sa iyong Outlook. Basahin ngayon upang makuha ang detalyadong mga hakbang at kongkretong VBA code.

Lokasyon ng Pagpupulong ng Mapa Direkta sa loob ng Outlook

1. Bilang panimula, ilunsad ang iyong programa sa Outlook.
2. Matapos makapunta sa pangunahing window ng Outlook, pindutin ang mga pindutan ng "Alt + F11".
3. Sa dakong huli, magagawa mong i-access ang window ng editor ng Outlook VBA.
4. Pagkatapos ay dapat mong hanapin at buksan ang isang module na hindi ginagamit.
5. Susunod maaari mong kopyahin at i-paste ang sumusunod na VBA code sa modyul na ito.

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. Pagkatapos nito, para sa maginhawang pagsusuri sa hinaharap, mas mahusay na idagdag ang bagong macro sa Quick Access Toolbar o laso.
7. Sa paglaon kailangan mong baguhin ang antas ng iyong seguridad sa Outlook sa mababang.
8. Sa wakas maaari kang magkaroon ng isang pagsubok.

• Una, maaari mong buksan ang isang pagpupulong upang matingnan ito sa sarili nitong window o pumili lamang ng pagpupulong upang matingnan ito sa pane ng pagbabasa.
• Pagkatapos ay maaari mong pindutin ang bagong idinagdag na macro sa Quick Access Toolbar.
• Susunod na Outlook ay bubuksan ang Google Maps sa pangunahing window nito at i-map ang lokasyon ng pulong, tulad ng sumusunod na screenshot:

Hindi Ma-Immune mula sa Mga Error

Sa kabila ng pagmamalaki ng maraming tampok, hindi pa rin maaaring maibukod ang Outlook mula sa mga error. Halimbawa, maaari kang magkaroon ng iba't ibang mga problema sa panahon ng paggamit ng Outlook. Kaya, dapat kang gumawa ng sapat na pag-iingat, tulad ng pag-back up ng data ng Outlook sa isang regular na batayan at paghahanda ng isang matatag Paggaling ng Outlook tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang bawiin mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa