Кездесудің орналасқан жерін тікелей Outlook бағдарламасында қалай бейнелеуге болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Кейде кездесу орнын картадан тексергіңіз келуі мүмкін. Осылайша, осы жазбада біз сізге VBA кодының бір бөлігін көрсетеміз, ол сізге кездесу орнын Outlook бағдарламасында тікелей картаға түсіруге мүмкіндік береді.

Барлығымыз білетіндей, Outlook-те байланыс мекен-жайын салыстырудың өзіндік мүмкіндігі бар. Алайда, кездесу орнын бейнелейтін функция жоқ. Сондықтан, көптеген пайдаланушылар кездесу өтетін орынды картадан іздеу әдісін асыға күтеді. Жалпы, сіз кез-келген Интернет-браузерде Map қызметтеріне жүгіне аласыз, содан кейін жиналыс өтетін жерден іздей аласыз. Бірақ ешқандай күмән жоқ, бұл аздап мазалайды. Осылайша, біз мұнда кездесу Outlook бағдарламасында карта жасауды үйретеміз. Енді күрделі қадамдар мен нақты VBA кодын алу үшін оқыңыз.

Кездесу орны картасын тікелей Outlook бағдарламасында ашыңыз

Кездесу орнын тікелей Outlook бағдарламасында картаға салыңыз

  1. Бастау үшін Outlook бағдарламаңызды іске қосыңыз.
  2. Негізгі Outlook терезесіне кіргеннен кейін «Alt + F11» батырмаларын басыңыз.
  3. Кейіннен сіз Outlook VBA редакторының терезесіне кіре аласыз.
  4. Содан кейін сіз қолданылмаған модульді тауып, ашыңыз.
  5. Осыдан кейін сіз келесі 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

VBA коды - Жиналыс өтетін жердің картасын ашыңыз

  1. Осыдан кейін, келешекте ыңғайлы тексеру үшін жаңа макросты жылдам қол жетімді құралдар тақтасына немесе таспаға қосқан жөн.
  2. Кейінірек Outlook макроқауіпсіздік деңгейін төмен деңгейге өзгерту керек.
  3. Соңында сіз көріңіз.
  • Біріншіден, сіз оны өз терезесінде көру үшін жиналысты аша аласыз немесе оны тек оқу тақтасында көру үшін жиналысты таңдай аласыз.
  • Содан кейін жылдам қол жеткізу тақтасында жаңадан қосылған макросты басуға болады.Макросты іске қосыңыз
  • Келесі Outlook негізгі картасында Google карталарын ашады және келесі скриншот сияқты кездесу өтетін орынды бейнелейді:Кездесу өтетін жердің картасы

Қателерден иммунитетке ие болмау

Көптеген мүмкіндіктерімен мақтанғанымен, Outlook әлі де қателіктерден арыла алмайды. Мысалы, сіз Outlook бағдарламасын пайдалану кезінде әртүрлі мәселелерге тап болуыңыз мүмкін. Осылайша, сіз Outlook деректерінің сақтық көшірмесін жасау және сенімді дайындық сияқты жеткілікті сақтық шараларын қолданғаныңыз жөн Outlook қалпына келтіру сияқты құрал DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.