Як відобразити місце зустрічі безпосередньо в 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 у своєму головному вікні та відобразить місце зустрічі, як на зображенні нижче:

Неможливо бути застрахованим від помилок

Незважаючи на те, що Outlook може похвалитися багатьма функціями, Outlook все ще не може позбутися від помилок. Наприклад, ви можете зіткнутися з різними проблемами під час використання Outlook. Таким чином, вам слід вжити достатніх запобіжних заходів, наприклад, регулярно створювати резервні копії даних Outlook і готувати надійну Відновлення Outlook інструмент, такий як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити mdf - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com