Uneori, este posibil să doriți să verificați locația întâlnirii pe o hartă. Prin urmare, în această postare, vă vom expune un fragment de cod VBA, care vă va permite să mapați direct locația întâlnirii în Outlook.
După cum știm cu toții, Outlook are o funcție nativă pentru maparea adresei de contact. Cu toate acestea, nu există nicio funcție pentru maparea locației întâlnirii. Prin urmare, mulți utilizatori așteaptă cu nerăbdare o metodă de a mapa locația întâlnirii. În general, puteți apela la orice serviciu Map din browserul de internet și apoi căutați locația întâlnirii. Dar fără nicio îndoială, este puțin supărător. Astfel, aici vă vom învăța să mapați o locație de întâlnire direct în Outlook. Acum citiți mai departe pentru a obține pașii elaborați și codul VBA concret.
Hartă locația întâlnirii direct în Outlook
- Pentru început, lansați programul Outlook.
- După ce intrați în fereastra principală Outlook, apăsați butoanele tastei „Alt + F11”.
- Ulterior, veți putea accesa fereastra editorului Outlook VBA.
- Atunci ar trebui să găsiți și să deschideți un modul care nu este utilizat.
- Apoi, puteți copia și lipi următorul cod VBA în acest modul.
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
- După aceea, pentru o verificare convenabilă viitoare, ar fi bine să adăugați noua macrocomandă la Bara de instrumente Acces rapid sau la panglică.
- Mai târziu, trebuie să schimbați nivelul de securitate al macrocomenzii Outlook la scăzut.
- În sfârșit poți încerca.
- În primul rând, puteți deschide o întâlnire pentru a o vizualiza în propria fereastră sau doar selectați o întâlnire pentru a o vizualiza în panoul de citire.
- Apoi puteți apăsa macrocomandă nou adăugată în Bara de instrumente Acces rapid.
- Următorul Outlook va deschide Google Maps în fereastra sa principală și va mapa locația întâlnirii, ca în următoarea captură de ecran:
Nu pot fi imun la erori
În ciuda faptului că se lăuda cu mai multe funcții, Outlook încă nu poate fi scutit de erori. De exemplu, puteți întâlni diverse probleme în timpul utilizării Outlook. Prin urmare, ar trebui să luați suficiente măsuri de precauție, cum ar fi să faceți o copie de rezervă a datelor Outlook în mod regulat și să pregătiți o copie robustă Recuperare Outlook instrument, cum ar fi DataNumen Outlook Repair.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com