Koosoleku asukoha kaardistamine otse Outlookis

Mõnikord võib tekkida soov kohtumispaiga kaardil kontrollida. Seega selles postituses paljastame teile VBA-koodi, mis võimaldab teil kohtumispaiga otse Outlookis kaardistada.

Nagu me kõik teame, on Outlookil kontaktaadressi kaardistamiseks natiivne funktsioon. Samas puudub funktsioon koosoleku asukoha kaardistamiseks. Seetõttu ootavad paljud kasutajad kohtumise asukoha kaardistamise meetodit. Üldiselt saate Interneti-brauseris kasutada mis tahes kaarditeenuseid ja seejärel otsida koosoleku asukohta. Kuid ilma igasuguse kahtluseta on see pisut tülikas. Seega õpetame siin teid koosoleku asukoha kaardistama otse Outlookis. Nüüd lugege edasi, et saada üksikasjalikud sammud ja konkreetne VBA-kood.

Koosoleku asukoha kaardistamine otse Outlookis

1. Alustuseks käivitage oma Outlooki programm.
2. Pärast Outlooki peaaknasse sisenemist vajutage klahvikombinatsiooni Alt + F11.
3. Seejärel pääsete juurde Outlooki VBA redaktori aknale.
4. Seejärel peaksite leidma ja avama mooduli, mida ei kasutata.
5. Järgmisena saate sellesse moodulisse kopeerida ja kleepida järgmise VBA koodi.

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. Pärast seda peaksite edaspidiseks mugavaks kontrollimiseks lisama uue makro kiirpääsu tööriistaribale või lindile.
7. Hiljem peate muutma oma Outlooki makro turvataseme madalaks.
8. Lõpuks saate proovida.

• Esiteks saate avada koosoleku, et seda oma aknas vaadata, või lihtsalt valida koosoleku, et seda lugemispaanil vaadata.
• Seejärel saate kiirpääsu tööriistaribal vajutada äsja lisatud makrot.
• Järgmisena avab Outlook oma peaaknas Google Mapsi ja kaardistab koosoleku asukoha, nagu järgmine ekraanipilt:

Ei saa olla vigade eest immuunne

Vaatamata paljudele funktsioonidele ei saa Outlook siiski vigadest vabastada. Näiteks võite Outlooki kasutamise ajal kokku puutuda mitmesuguste probleemidega. Seetõttu peaksite võtma piisavaid ettevaatusabinõusid, nagu näiteks Outlooki andmete regulaarne varundamine ja tugevate andmete ettevalmistamine Outlooki taastamine tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom