Đôi khi, bạn có thể muốn kiểm tra địa điểm cuộc họp trên bản đồ. Vì vậy, trong bài viết này, chúng tôi sẽ giới thiệu cho bạn một đoạn mã VBA cho phép bạn trực tiếp hiển thị vị trí cuộc họp trên bản đồ ngay trong Outlook.
Như chúng ta đã biết, Outlook có một tính năng riêng để ánh xạ địa chỉ liên hệ. Tuy nhiên, không có chức năng lập bản đồ vị trí cuộc họp. Do đó, nhiều người dùng đang mong chờ một phương pháp lập bản đồ vị trí cuộc họp. Nói chung, bạn có thể sử dụng bất kỳ dịch vụ Bản đồ nào trong trình duyệt Internet và sau đó tìm kiếm địa điểm cuộc họp. Nhưng không nghi ngờ gì nữa, nó hơi rắc rối. Vì vậy, ở đây chúng tôi sẽ hướng dẫn bạn lập bản đồ vị trí cuộc họp trực tiếp trong Outlook của bạn. Bây giờ hãy đọc tiếp để biết các bước phức tạp và mã VBA cụ thể.
Lập bản đồ vị trí cuộc họp trực tiếp trong Outlook
- Trước tiên, hãy mở chương trình Outlook của bạn.
- Sau khi vào cửa sổ chính của Outlook, hãy nhấn các nút phím “Alt + F11”.
- Sau đó, bạn sẽ có thể truy cập vào cửa sổ soạn thảo Outlook VBA.
- Sau đó, bạn nên tìm và mở một mô-đun không được sử dụng.
- Tiếp theo, bạn có thể sao chép và dán mã VBA sau vào mô-đun này.
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
- Sau đó, để kiểm tra thuận tiện trong tương lai, bạn nên thêm macro mới vào Thanh công cụ Truy nhập Nhanh hoặc ruy-băng.
- Sau đó, bạn cần thay đổi cấp độ bảo mật macro Outlook của mình thành thấp.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, bạn có thể mở một cuộc họp để xem nó trong cửa sổ riêng của nó hoặc chỉ cần chọn một cuộc họp để xem nó trong ngăn đọc.
- Sau đó, bạn có thể nhấn macro mới được thêm vào trong Thanh công cụ truy cập nhanh.
- Tiếp theo Outlook sẽ mở Google Maps trong cửa sổ chính của nó và lập bản đồ vị trí cuộc họp, giống như ảnh chụp màn hình sau:
Không thể miễn nhiễm với lỗi
Mặc dù tự hào về nhiều tính năng, Outlook vẫn không tránh khỏi các lỗi. Chẳng hạn, bạn có thể gặp nhiều sự cố khác nhau trong quá trình sử dụng Outlook. Vì vậy, bạn nên thực hiện đầy đủ các biện pháp phòng ngừa, chẳng hạn như sao lưu dữ liệu Outlook thường xuyên và chuẩn bị một hệ thống mạnh mẽ. Phục hồi Outlook công cụ, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm