Ինչպես քարտեզագրել հանդիպման վայրը անմիջապես Outlook-ում

Երբեմն կարող եք ցանկանալ ստուգել հանդիպման վայրը քարտեզի վրա։ Այսպիսով, այս գրառման մեջ մենք ձեզ կներկայացնենք VBA կոդի մի կտոր, որը թույլ կտա ձեզ ուղղակիորեն քարտեզագրել հանդիպման վայրը Outlook-ում։

Ինչպես բոլորս գիտենք, Outlook-ն ունի կոնտակտային հասցեն քարտեզագրելու բնիկ հատկություն: Այնուամենայնիվ, հանդիպման վայրը քարտեզագրելու գործառույթ չկա: Հետևաբար, շատ օգտատերեր սպասում են հանդիպման վայրը քարտեզագրելու մեթոդի: Ընդհանուր առմամբ, ինտերնետ բրաուզերում կարող եք դիմել քարտեզի ցանկացած ծառայության և որոնել հանդիպման վայրը: Բայց առանց կասկածի, դա մի քիչ անհանգիստ է։ Այսպիսով, այստեղ մենք կսովորեցնենք ձեզ քարտեզագրել հանդիպման վայրը անմիջապես ձեր Outlook-ում: Այժմ կարդացեք՝ մանրամասն քայլերը և կոնկրետ VBA կոդը ստանալու համար:

Քարտեզի հանդիպման վայրը անմիջապես Outlook-ում

1. Սկսելու համար գործարկեք ձեր Outlook ծրագիրը։
2. Outlook- ի հիմնական պատուհանը մտնելուց հետո սեղմեք «Alt + F11» ստեղնային կոճակները:
3. Այնուհետև դուք կկարողանաք մուտք գործել Outlook VBA խմբագրի պատուհան:
4. Այնուհետև դուք պետք է գտնեք և բացեք մի մոդուլ, որը չի օգտագործվում:
5. Այնուհետև կարող եք պատճենել և տեղադրել հետևյալ 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. Դրանից հետո, ապագա հարմար ստուգման համար, ավելի լավ է ավելացնել նոր մակրո Արագ մուտքի գործիքագոտում կամ ժապավենին:
7. Ավելի ուշ դուք պետք է փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
8. Վերջապես կարող եք փորձել:

• Նախ, դուք կարող եք բացել հանդիպում՝ այն սեփական պատուհանում դիտելու համար կամ պարզապես ընտրել հանդիպում՝ կարդալու վահանակում դիտելու համար:
• Այնուհետև կարող եք սեղմել նոր ավելացված մակրո Quick Access Toolbar-ում:
• Հաջորդ Outlook-ը կբացի Google Քարտեզներն իր հիմնական պատուհանում և կնշի հանդիպման վայրը, ինչպես հետևյալ սքրինշոթը.

Անհնար է պաշտպանված լինել սխալներից

Չնայած բազմաթիվ հնարավորություններով պարծենալուն, Outlook-ը դեռևս չի կարող ազատվել սխալներից: Օրինակ, Outlook-ի օգտագործման ընթացքում կարող եք հանդիպել տարբեր խնդիրների: Այսպիսով, դուք պետք է բավարար նախազգուշական միջոցներ ձեռնարկեք, օրինակ՝ Outlook-ի տվյալների կանոնավոր կրկնօրինակում և հզոր Outlook- ի վերականգնում գործիք, ինչպիսիք են DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com