Toplantı Konumunu Doğrudan Outlook İçinden Nasıl Eşleştirirsiniz?

Bazen toplantı yerini haritada kontrol etmek isteyebilirsiniz. Bu nedenle, bu yazımızda, toplantı yerini doğrudan Outlook içinde haritada işaretlemenizi sağlayacak bir VBA kodunu sizlerle paylaşacağız.

Hepimizin bildiği gibi, Outlook'un kişi adresini eşlemek için yerel bir özelliği vardır. Ancak, toplantı yerini haritalamak için bir işlev yoktur. Bu nedenle, birçok kullanıcı toplantı yerini haritalamak için bir yöntem arıyor. Genel olarak, İnternet tarayıcısında herhangi bir Harita hizmetine başvurabilir ve ardından toplantı yerini arayabilirsiniz. Ama hiç şüphe yok ki, biraz zahmetli. Böylece, burada size bir toplantı yerini doğrudan Outlook'unuzda haritalamayı öğreteceğiz. Ayrıntılı adımları ve somut VBA kodunu öğrenmek için okumaya devam edin.

Toplantı Konumunu Doğrudan Outlook İçinden Eşleyin

1. Öncelikle Outlook programınızı başlatın.
2. Ana Outlook penceresine girdikten sonra “Alt + F11” tuşlarına basın.
3. Ardından, Outlook VBA düzenleyici penceresine erişebileceksiniz.
4. O zaman kullanılmayan bir modül bulup açmalısınız.
5. Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştırabilirsiniz.

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, gelecekteki uygun kontrol için, yeni makroyu Hızlı Erişim Araç Çubuğuna veya şeride ekleseniz iyi olur.
7. Daha sonra Outlook makro güvenlik düzeyinizi düşük olarak değiştirmeniz gerekir.
8. Sonunda bir deneyebilirsin.

• İlk olarak, bir toplantıyı kendi penceresinde görüntülemek için açabilir veya okuma bölmesinde görüntülemek için bir toplantı seçebilirsiniz.
• Ardından, Hızlı Erişim Araç Çubuğunda yeni eklenen makroya basabilirsiniz.
• Sonraki Outlook, Google Haritalar'ı ana penceresinde açacak ve aşağıdaki ekran görüntüsü gibi toplantı konumunu eşleyecektir:

Hatalardan Bağışık Olmak

Birden fazla özelliğin övünmesine rağmen, Outlook hala hatalardan muaf olamaz. Örneğin, Outlook'u kullanırken çeşitli sorunlarla karşılaşabilirsiniz. Bu nedenle, Outlook verilerini düzenli olarak yedeklemek ve sağlam bir veritabanı hazırlamak gibi yeterli önlemleri almalısınız. Outlook kurtarma araç, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com