Kako preslikati lokacijo sestanka neposredno v programu Outlook

Včasih boste morda želeli preveriti lokacijo srečanja na zemljevidu. Zato vam bomo v tej objavi predstavili delček kode VBA, ki vam bo omogočil neposredno preslikavo lokacije srečanja v Outlooku.

Kot vsi vemo, ima Outlook izvorno funkcijo za preslikavo naslova stika. Vendar pa ni funkcije za preslikavo lokacije sestanka. Zato se mnogi uporabniki veselijo metode za preslikavo lokacije sestanka. Na splošno se lahko v internetnem brskalniku zatečete k kateri koli storitvi Map in nato poiščete lokacijo sestanka. A brez dvoma je nekoliko težavno. Tako vas bomo tukaj naučili preslikati mesto sestanka neposredno v Outlooku. Zdaj preberite podrobne korake in konkretno kodo VBA.

Zemljevid lokacije srečanja neposredno v programu Outlook

1. Za začetek zaženite program Outlook.
2. Ko vstopite v glavno Outlookovo okno, pritisnite tipke “Alt + F11”.
3. Nato boste lahko dostopali do okna urejevalnika Outlook VBA.
4. Potem bi morali najti in odpreti modul, ki se ne uporablja.
5. Nato lahko v ta modul kopirate in prilepite naslednjo kodo 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. Po tem je za prihodnje priročno preverjanje bolje dodati nov makro v orodno vrstico ali trak za hitri dostop.
7. Pozneje morate spremeniti raven varnosti makra v Outlooku na nizko.
8. Končno lahko poskusite.

• Najprej lahko sestanek odprete, da si ga ogledate v svojem oknu, ali preprosto izberete sestanek, da si ga ogledate v podoknu za branje.
• Nato lahko v orodni vrstici za hitri dostop pritisnete na novo dodani makro.
• Naslednji Outlook bo v glavnem oknu odprl Google Zemljevide in preslikal mesto sestanka, kot je naslednja slika zaslona:

Ne morem biti imun zaradi napak

Kljub številnim funkcijam se Outlook še vedno ne more izvzeti iz napak. Na primer, med uporabo Outlooka lahko naletite na različne težave. Zato morate sprejeti zadostne previdnostne ukrepe, kot so redno varnostno kopiranje podatkov v Outlooku in priprava zanesljivega Obnovitev programa Outlook orodje, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjati mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com