Görüş yerini birbaşa Outlook daxilində necə xəritələndirmək olar

Bəzən görüş yerini xəritədə yoxlamaq istəyə bilərsiniz. Beləliklə, bu yazıda sizə görüş yerini birbaşa Outlook daxilində xəritələşdirməyə imkan verən VBA kodunun bir hissəsini təqdim edəcəyik.

Hamımızın bildiyimiz kimi, Outlook-da əlaqə ünvanının xəritələşdirilməsi üçün yerli xüsusiyyət var. Bununla belə, görüş yerini xəritələmək üçün heç bir funksiya yoxdur. Buna görə də, bir çox istifadəçi görüş yerini xəritələşdirmək üçün bir üsul gözləyir. Ümumiyyətlə, siz İnternet brauzerində istənilən Xəritə xidmətlərinə müraciət edə və sonra görüş yerini axtara bilərsiniz. Ancaq şübhəsiz ki, bir az əziyyətlidir. Beləliklə, burada biz sizə görüş yerini birbaşa Outlook-da göstərməyi öyrədəcəyik. İndi ətraflı addımlar və konkret VBA kodu əldə etmək üçün oxuyun.

Birbaşa Outlook daxilində Toplantı Yerini Xəritə

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Əsas Outlook pəncərəsinə daxil olduqdan sonra "Alt + F11" düymələrini basın.
3. Daha sonra Outlook VBA redaktoru pəncərəsinə daxil ola biləcəksiniz.
4. Sonra istifadə olunmayan modulu tapıb açmalısınız.
5. Sonra aşağıdakı VBA kodunu bu modula köçürə və yapışdıra bilərsiniz.

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. Bundan sonra, gələcək rahat yoxlama üçün, daha yaxşı olar ki, Tez Giriş Alətlər Panelinə və ya lentə yeni makro əlavə edəsiniz.
7. Daha sonra Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə dəyişdirməlisiniz.
8. Nəhayət, bir cəhd edə bilərsiniz.

• Birincisi, onu öz pəncərəsində görmək üçün görüş aça və ya sadəcə oxu panelində görmək üçün görüş seçə bilərsiniz.
• Sonra Tez Giriş Alətlər Panelində yeni əlavə edilmiş makronu basa bilərsiniz.
• Növbəti Outlook əsas pəncərəsində Google Xəritələri açacaq və aşağıdakı skrinşot kimi görüş yerini xəritələndirəcək:

Səhvlərdən İmmunitet Olmamaq

Çoxsaylı xüsusiyyətlərlə öyünməsinə baxmayaraq, Outlook hələ də səhvlərdən azad ola bilmir. Məsələn, Outlook istifadə edərkən müxtəlif problemlərlə qarşılaşa bilərsiniz. Beləliklə, siz mütəmadi olaraq Outlook məlumatlarının ehtiyat nüsxəsini çıxarmaq və etibarlı məlumat hazırlamaq kimi kifayət qədər ehtiyat tədbirləri görməlisiniz. Outlook bərpası kimi alət DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com