Kako mapirati lokaciju sastanka direktno u programu Outlook

Ponekad ćete možda htjeti provjeriti lokaciju sastanka na mapi. Stoga ćemo vam u ovom postu predstaviti dio VBA koda koji će vam omogućiti da direktno mapirate lokaciju sastanka unutar Outlooka.

Kao što svi znamo, Outlook ima izvornu funkciju za mapiranje adrese kontakta. Međutim, ne postoji funkcija za mapiranje lokacije sastanka. Stoga se mnogi korisnici raduju metodi za mapiranje lokacije sastanka. Općenito, možete pribjeći bilo kojoj karti karti u internet pretraživaču, a zatim pretražiti lokaciju sastanka. Ali bez ikakve sumnje, malo je problematično. Dakle, ovdje ćemo vas naučiti da mapirate lokaciju sastanka direktno u vašem Outlooku. Sada čitajte dalje da biste dobili detaljne korake i konkretan VBA kod.

Mapirajte lokaciju sastanka direktno u programu Outlook

1. Za početak, pokrenite Outlook program.
2. Nakon što uđete u glavni Outlook prozor, pritisnite tipke “Alt + F11”.
3. Nakon toga, moći ćete da pristupite prozoru Outlook VBA editora.
4. Tada biste trebali pronaći i otvoriti modul koji se ne koristi.
5. Zatim možete kopirati i zalijepiti sljedeći VBA kod u ovaj modul.

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. Nakon toga, za buduću prikladnu provjeru, bolje je da dodate novi makro na alatnu traku ili traku za brzi pristup.
7. Kasnije ćete morati promijeniti nivo sigurnosti makroa Outlooka na niski.
8. Konačno možete probati.

• Prvo, možete otvoriti sastanak da biste ga vidjeli u vlastitom prozoru ili jednostavno odaberite sastanak da biste ga vidjeli u oknu za čitanje.
• Zatim možete pritisnuti novododati makro na traci s alatima za brzi pristup.
• Sljedeći Outlook će otvoriti Google Maps u svom glavnom prozoru i mapirati lokaciju sastanka, kao na sljedećem snimku ekrana:

Nije moguće biti imun na greške

Uprkos tome što se može pohvaliti višestrukim funkcijama, Outlook i dalje ne može biti izuzet od grešaka. Na primjer, možete naići na različite probleme tokom korištenja Outlooka. Stoga biste trebali poduzeti dovoljne mjere opreza, poput redovnog pravljenja sigurnosne kopije Outlookovih podataka i pripreme robusnog Outlook oporavak alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com