有时，您可能需要在地图上查看会议地点。因此，在本文中，我们将向您展示一段 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
- 之后，为了以后检查方便，最好将新宏添加到快速访问工具栏或功能区。
- 稍后您需要将 Outlook 宏安全级别更改为低。
- 最后你可以试试看。
- 首先，您可以打开会议以在其自己的窗口中查看它，或者只需选择一个会议以在阅读窗格中查看它。
- 然后您可以在快速访问工具栏中按新添加的宏。
- 接下来 Outlook 将在其主窗口中打开 Google 地图并绘制会议地点地图，如下图所示：
无法免于错误
尽管拥有多项功能，但 Outlook 仍然无法避免错误。 例如，您在使用 Outlook 时可能会遇到各种问题。 因此，您应该采取足够的预防措施，例如定期备份 Outlook 数据并准备一个强大的 展望恢复 工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 恢复 mdf 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com