Как да съпоставим местоположението на срещата директно в 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. Накрая можете да опитате.

• Първо, можете да отворите среща, за да я видите в собствения си прозорец, или просто да изберете среща, за да я видите в панела за четене.
• След това можете да натиснете новодобавения макрос в лентата с инструменти за бърз достъп.
• Следващият Outlook ще отвори Google Maps в основния си прозорец и ще картографира мястото на срещата, като следната екранна снимка:

Не може да бъде имунизиран от грешки

Въпреки че може да се похвали с множество функции, Outlook все още не може да бъде освободен от грешки. Например може да срещнете различни проблеми по време на използване на Outlook. По този начин трябва да вземете достатъчно предпазни мерки, като например архивиране на данни на Outlook редовно и изготвяне на надеждна Възстановяване на Outlook инструмент, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com