Cara Memetakan Lokasi Mesyuarat Secara Langsung dalam Outlook

Kadangkala, anda mungkin mahu menyemak lokasi mesyuarat dalam peta. Oleh itu, dalam catatan ini, kami akan mendedahkan kepada anda sekeping kod VBA, yang akan membolehkan anda memetakan lokasi mesyuarat secara langsung dalam Outlook.

Seperti yang kita semua ketahui, Outlook mempunyai fitur asli untuk memetakan alamat kontak. Namun, tidak ada fungsi untuk memetakan lokasi pertemuan. Oleh itu, banyak pengguna menantikan kaedah untuk memetakan lokasi pertemuan. Secara umum, anda boleh menggunakan mana-mana perkhidmatan Peta di penyemak imbas Internet dan kemudian mencari lokasi pertemuan. Tetapi tanpa keraguan, agak menyusahkan. Oleh itu, di sini kami akan mengajar anda untuk memetakan lokasi pertemuan secara langsung di Outlook anda. Sekarang baca untuk mendapatkan langkah terperinci dan kod VBA konkrit.

Peta Lokasi Mesyuarat Secara Langsung dalam Outlook

1. Sebagai permulaan, lancarkan program Outlook anda.
2. Setelah masuk ke tetingkap Outlook utama, tekan butang "Alt + F11".
3. Selepas itu, anda akan dapat mengakses tetingkap editor Outlook VBA.
4. Maka anda harus mencari dan membuka modul yang tidak digunakan.
5. Seterusnya anda boleh menyalin dan menampal kod 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. Selepas itu, untuk pemeriksaan mudah di masa hadapan, anda lebih baik menambahkan makro baru ke Papan Alat Akses Pantas atau pita.
7. Kemudian anda perlu mengubah tahap keselamatan makro Outlook anda menjadi rendah.
8. Akhirnya anda boleh mencuba.

• Pertama, anda boleh membuka mesyuarat untuk melihatnya di tetingkapnya sendiri atau hanya memilih mesyuarat untuk melihatnya dalam panel baca.
• Kemudian anda boleh menekan makro yang baru ditambahkan di Bar Alat Akses Pantas.
• Outlook seterusnya akan membuka Peta Google di tetingkap utamanya dan memetakan lokasi pertemuan, seperti tangkapan skrin berikut:

Tidak Dapat Kebal Dari Kesalahan

Meskipun memiliki banyak fitur, Outlook tetap tidak dapat dikecualikan dari kesalahan. Sebagai contoh, anda mungkin menghadapi pelbagai masalah semasa menggunakan Outlook. Oleh itu, anda harus membuat langkah berjaga-jaga yang mencukupi, seperti menyandarkan data Outlook secara berkala dan menyiapkan yang kuat Pemulihan Outlook alat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com