So ordnen Sie den Besprechungsort direkt in Outlook zu

Manchmal möchten Sie den Besprechungsort auf einer Karte überprüfen. Daher stellen wir Ihnen in diesem Beitrag einen VBA-Code vor, mit dem Sie den Besprechungsort direkt in Outlook anzeigen können.

Wie wir alle wissen, verfügt Outlook über eine native Funktion zum Zuordnen der Kontaktadresse. Es gibt jedoch keine Funktion zum Zuordnen des Besprechungsorts. Daher freuen sich viele Benutzer auf eine Methode zum Zuordnen des Besprechungsorts. Im Allgemeinen können Sie im Internetbrowser auf beliebige Kartendienste zurückgreifen und dann den Besprechungsort durchsuchen. Aber ohne Zweifel ist es ein bisschen mühsam. Daher lernen Sie hier, einen Besprechungsort direkt in Ihrem Outlook zuzuordnen. Lesen Sie nun weiter, um die ausführlichen Schritte und den konkreten VBA-Code zu erhalten.

Zuordnungsort direkt in Outlook zuordnen

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Drücken Sie nach dem Aufrufen des Outlook-Hauptfensters die Tasten „Alt + F11“.
3. Anschließend können Sie auf das Outlook VBA-Editorfenster zugreifen.
4. Dann sollten Sie ein Modul finden und öffnen, das nicht verwendet wird.
5. Als nächstes können Sie den folgenden VBA-Code kopieren und in dieses Modul einfügen.

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. Danach sollten Sie das neue Makro zur späteren bequemen Überprüfung besser zur Symbolleiste oder zum Menüband für den Schnellzugriff hinzufügen.
7. Später müssen Sie die Sicherheitsstufe Ihres Outlook-Makros auf niedrig ändern.
8. Endlich können Sie es versuchen.

• Zunächst können Sie eine Besprechung öffnen, um sie in einem eigenen Fenster anzuzeigen, oder einfach eine Besprechung auswählen, um sie im Lesebereich anzuzeigen.
• Anschließend können Sie das neu hinzugefügte Makro in der Symbolleiste für den Schnellzugriff drücken.
• Next Outlook öffnet Google Maps im Hauptfenster und ordnet den Besprechungsort wie im folgenden Screenshot zu:

Kann nicht gegen Fehler immun sein

Trotz mehrerer Funktionen kann Outlook immer noch nicht von Fehlern befreit werden. Beispielsweise können bei der Verwendung von Outlook verschiedene Probleme auftreten. Daher sollten Sie ausreichende Vorsichtsmaßnahmen treffen, z. B. das regelmäßige Sichern von Outlook-Daten und das Vorbereiten einer robusten Version Outlook-Wiederherstellung Werkzeug, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX