如何直接在 Outlook 中映射會議位置

Outlook解決方案 2025 年 9 月 29 日

有時，您可能需要在地圖上查看會議地點。因此，在本文中，我們將向您展示一段 VBA 程式碼，它可以讓您直接在 Outlook 中對應會議地點。

眾所周知，Outlook 本身就有映射聯繫人地址的功能。但是，沒有映射會議地點的功能。因此，很多用戶都在期待一種能夠繪製會議地點的方法。一般來說，您可以利用互聯網瀏覽器中的任何地圖服務，然後搜索集合地點。但毫無疑問，這有點麻煩。因此，在這裡我們將教您直接在 Outlook 中映射會議位置。現在繼續閱讀以獲取詳細的步驟和具體的 VBA 代碼。

直接在 Outlook 中繪製會議地點地圖

首先，啟動 Outlook 程式。
進入Outlook主窗口後，按“ Alt + F11”鍵按鈕。
隨後，您將能夠訪問 Outlook VBA 編輯器窗口。
然後你應該找到並打開一個未使用的模塊。
接下來，您可以將以下 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