A találkozó helyének feltérképezése közvetlenül az Outlookban

Előfordulhat, hogy a találkozó helyszínét egy térképen szeretnéd ellenőrizni. Ebben a bejegyzésben ezért bemutatunk egy VBA kódrészletet, amely lehetővé teszi, hogy közvetlenül az Outlookban térképen jelenítsd meg a találkozó helyszínét.

Mint mindannyian tudjuk, az Outlook rendelkezik egy natív funkcióval a kapcsolati cím leképezésére. Azonban nincs funkció a találkozó helyének feltérképezésére. Ezért sok felhasználó várja a találkozó helyének feltérképezésének módszerét. Általánosságban elmondható, hogy az internetböngészőben bármilyen Térképszolgáltatást igénybe vehet, majd megkeresheti a találkozó helyét. De minden kétség nélkül ez egy kicsit zavaró. Így itt megtanítjuk, hogy közvetlenül az Outlook programban térképezze fel az értekezlet helyét. Most olvassa el a részletes lépéseket és a konkrét VBA-kódot.

Térképezze fel a találkozó helyét közvetlenül az Outlookon belül

1. Kezdésként indítsa el az Outlook programot.
2. Miután belépett az Outlook főablakába, nyomja meg az „Alt + F11” billentyűket.
3. Ezt követően elérheti az Outlook VBA szerkesztő ablakát.
4. Ezután meg kell találnia és meg kell nyitnia egy olyan modult, amelyet nem használ.
5. Ezután másolja és illessze be a következő VBA-kódot ebbe a modulba.

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. Ezt követően a későbbi kényelmes ellenőrzés érdekében jobb, ha hozzáadja az új makrót a Gyorselérési eszköztárhoz vagy a szalaghoz.
7. Később az Outlook makró biztonsági szintjét alacsonyra kell módosítania.
8. Végre egy próbát tehetsz.

• Először is megnyithat egy értekezletet, hogy megtekinthesse a saját ablakában, vagy egyszerűen kiválaszthat egy értekezletet az olvasópanelen való megtekintéséhez.
• Ezután megnyomhatja az újonnan hozzáadott makrót a Gyorselérési eszköztárban.
• Következő Outlook megnyitja a Google Térképet a főablakában, és leképezi az értekezlet helyét, az alábbi képernyőképhez hasonlóan:

Nem lehet immunis a hibák ellen

Annak ellenére, hogy számos funkcióval büszkélkedhet, az Outlook továbbra sem mentesülhet a hibák alól. Például az Outlook használata során különféle problémákkal találkozhat. Ezért megfelelő óvintézkedéseket kell tennie, például rendszeresen készítsen biztonsági mentést az Outlook adatairól, és készítsen egy robusztus adatot Outlook helyreállítása eszköz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com