Kuinka kartoittaa kokouspaikka suoraan Outlookissa

Joskus saatat haluta tarkistaa kokouspaikan kartalta. Tässä artikkelissa näytämme VBA-koodinpätkän, jonka avulla voit kartoittaa kokouspaikan suoraan Outlookissa.

Kuten me kaikki tiedämme, Outlookissa on natiivi ominaisuus yhteyshenkilön osoitteen kartoittamiseen. Kokouspaikan kartoitustoimintoa ei kuitenkaan ole. Siksi monet käyttäjät odottavat tapaamispaikan kartoittaa tapaa. Yleensä voit käyttää mitä tahansa karttapalvelua Internet-selaimessa ja etsiä sitten kokouspaikkaa. Mutta epäilemättä se on hieman hankalaa. Siten tässä opetamme sinua kartoittamaan kokouspaikan suoraan Outlookissasi. Lue nyt saadaksesi yksityiskohtaiset vaiheet ja konkreettinen VBA-koodi.

Kartoita kokouspaikka suoraan Outlookissa

1. Aloita käynnistämällä Outlook-ohjelmasi.
2. Kun olet päässyt Outlookin pääikkunaan, paina "Alt + F11" -näppäinpainikkeita.
3. Tämän jälkeen voit käyttää Outlook VBA -editori-ikkunaa.
4. Sitten sinun pitäisi löytää ja avata moduuli, joka ei ole käytössä.
5. Seuraavaksi voit kopioida ja liittää seuraavan VBA-koodin tähän moduuliin.

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. Tämän jälkeen sinun on parempi lisätä uusi makro pikatyökalupalkkiin tai nauhaan myöhempää kätevää tarkistusta varten.
7. Myöhemmin sinun on muutettava Outlookin makrotason suojaustaso matalaksi.
8. Lopuksi voit kokeilla.

• Ensinnäkin voit avata kokouksen nähdäksesi sen omassa ikkunassaan tai vain valita kokouksen nähdäksesi sen lukuruudussa.
• Sitten voit painaa äskettäin lisättyä makroa Quick Access Toolbarissa.
• Seuraavaksi Outlook avaa Google Mapsin pääikkunassaan ja kartoittaa kokouspaikan seuraavan kuvakaappauksen mukaisesti:

Ei voi olla immuuni virheiltä

Huolimatta useista ominaisuuksista, Outlook ei silti voi saada vapautusta virheistä. Saatat esimerkiksi kohdata erilaisia ​​ongelmia Outlookin käytön aikana. Siksi sinun tulee tehdä riittäviä varotoimia, kuten varmuuskopioida Outlook-tiedot säännöllisesti ja valmistella vankka Outlook-palautus työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauta mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com