Cara Memetakan Lokasi Rapat Langsung di dalam Outlook

Terkadang, Anda mungkin ingin memeriksa lokasi rapat di peta. Oleh karena itu, dalam postingan ini, kami akan memaparkan kode VBA yang memungkinkan Anda untuk langsung memetakan lokasi rapat di dalam Outlook.

Seperti yang kita semua tahu, Outlook memiliki fitur asli untuk memetakan alamat kontak. Namun, tidak ada fungsi untuk memetakan lokasi pertemuan. Oleh karena itu, banyak pengguna yang menantikan metode untuk memetakan lokasi pertemuan. Secara umum, Anda dapat menggunakan layanan Peta apa pun di browser Internet dan kemudian mencari lokasi pertemuan. Tapi tanpa keraguan, itu agak merepotkan. Karenanya, di sini kami akan mengajari Anda untuk memetakan lokasi rapat langsung di Outlook Anda. Sekarang baca terus untuk mendapatkan langkah-langkah rumit dan kode VBA yang konkret.

Petakan Lokasi Rapat Langsung di dalam Outlook

1. Sebagai langkah awal, buka program Outlook Anda.
2. Setelah masuk ke jendela utama Outlook, tekan tombol "Alt + F11".
3. Selanjutnya, Anda akan dapat mengakses jendela editor Outlook VBA.
4. Maka Anda harus menemukan dan membuka modul yang tidak digunakan.
5. Selanjutnya Anda dapat menyalin dan menempelkan kode VBA berikut ke dalam modul ini.

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. Setelah itu, untuk pemeriksaan yang nyaman di masa mendatang, Anda sebaiknya menambahkan makro baru ke Bilah Alat Akses Cepat atau pita.
7. Nanti Anda perlu mengubah tingkat keamanan makro Outlook Anda ke rendah.
8. Akhirnya Anda bisa mencobanya.

• Pertama, Anda dapat membuka rapat untuk melihatnya di jendelanya sendiri atau cukup memilih rapat untuk melihatnya di panel baca.
• Kemudian Anda dapat menekan makro yang baru ditambahkan di Bilah Alat Akses Cepat.
• Selanjutnya Outlook akan membuka Google Maps di jendela utamanya dan memetakan lokasi pertemuan, seperti tangkapan layar berikut:

Tidak Dapat Kebal dari Kesalahan

Meskipun memiliki banyak fitur, Outlook masih tidak dapat dibebaskan dari kesalahan. Misalnya, Anda mungkin menemukan berbagai masalah selama menggunakan Outlook. Karena itu, Anda harus melakukan tindakan pencegahan yang memadai, seperti mencadangkan data Outlook secara teratur dan menyiapkan file yang kuat Pemulihan Outlook alat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com