Μερικές φορές, ίσως θελήσετε να ελέγξετε την τοποθεσία της συνάντησης σε έναν χάρτη. Έτσι, σε αυτήν την ανάρτηση, θα σας παρουσιάσουμε ένα κομμάτι κώδικα VBA, το οποίο θα σας επιτρέψει να χαρτογραφήσετε απευθείας την τοποθεσία της συνάντησης μέσα στο Outlook.
Όπως όλοι γνωρίζουμε, το Outlook διαθέτει μια εγγενή δυνατότητα για την αντιστοίχιση της διεύθυνσης επαφής. Ωστόσο, δεν υπάρχει λειτουργία για την αντιστοίχιση της τοποθεσίας της συνάντησης. Ως εκ τούτου, πολλοί χρήστες αναμένουν με ανυπομονησία μια μέθοδο για τη χαρτογράφηση της τοποθεσίας συνάντησης. Γενικά, μπορείτε να καταφύγετε σε οποιεσδήποτε υπηρεσίες Χάρτη στο πρόγραμμα περιήγησης Διαδικτύου και στη συνέχεια να αναζητήσετε την τοποθεσία της συνάντησης. Αλλά χωρίς καμία αμφιβολία, είναι λίγο ενοχλητικό. Έτσι, εδώ θα σας μάθουμε να αντιστοιχίσετε μια τοποθεσία συνάντησης απευθείας στο Outlook σας. Τώρα διαβάστε για να λάβετε τα περίπλοκα βήματα και τον συγκεκριμένο κώδικα VBA.
Χάρτης Τοποθεσία συνάντησης απευθείας στο Outlook
- Για αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Αφού μπείτε στο κύριο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια, θα μπορείτε να αποκτήσετε πρόσβαση στο παράθυρο επεξεργασίας του Outlook VBA.
- Στη συνέχεια, θα πρέπει να βρείτε και να ανοίξετε μια ενότητα που δεν χρησιμοποιείται.
- Στη συνέχεια, μπορείτε να αντιγράψετε και να επικολλήσετε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.
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
- Μετά από αυτό, για μελλοντικό βολικό έλεγχο, καλύτερα να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης ή στην κορδέλα.
- Αργότερα πρέπει να αλλάξετε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
- Τέλος, μπορείτε να δοκιμάσετε.
- Αρχικά, μπορείτε να ανοίξετε μια σύσκεψη για να την προβάλετε στο δικό της παράθυρο ή απλώς να επιλέξετε μια σύσκεψη για να την προβάλετε στο παράθυρο ανάγνωσης.
- Στη συνέχεια, μπορείτε να πατήσετε τη μακροεντολή που προστέθηκε πρόσφατα στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Το επόμενο Outlook θα ανοίξει τους Χάρτες Google στο κύριο παράθυρο και θα αντιστοιχίσει την τοποθεσία της συνάντησης, όπως το ακόλουθο στιγμιότυπο οθόνης:
Δεν μπορώ να είμαι απρόσβλητος από λάθη
Παρά το γεγονός ότι διαθέτει πολλαπλές δυνατότητες, το Outlook εξακολουθεί να μην μπορεί να εξαιρεθεί από σφάλματα. Για παράδειγμα, ενδέχεται να αντιμετωπίσετε διάφορα προβλήματα κατά τη χρήση του Outlook. Επομένως, θα πρέπει να λαμβάνετε επαρκείς προφυλάξεις, όπως τη δημιουργία αντιγράφων ασφαλείας των δεδομένων του Outlook σε τακτική βάση και την προετοιμασία ενός ισχυρού Ανάκτηση του Outlook εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com