როგორ გავაფორმოთ შეხვედრის ადგილი პირდაპირ Outlook-ში

ზოგჯერ, შეიძლება დაგჭირდეთ შეხვედრის ადგილმდებარეობის რუკაზე შემოწმება. ამ პოსტში ჩვენ წარმოგიდგენთ VBA კოდის ნაწილს, რომელიც საშუალებას მოგცემთ პირდაპირ Outlook-ში დააფიქსიროთ შეხვედრის ადგილმდებარეობა.

როგორც ყველამ ვიცით, Outlook-ს აქვს მშობლიური ფუნქცია საკონტაქტო მისამართის რუკებისთვის. თუმცა, არ არსებობს შეხვედრის ადგილის რუკების ფუნქცია. ამიტომ, ბევრი მომხმარებელი მოუთმენლად ელის შეხვედრის ადგილმდებარეობის რუკის მეთოდს. ზოგადად, შეგიძლიათ მიმართოთ რუქის ნებისმიერ სერვისს ინტერნეტ ბრაუზერში და შემდეგ მოძებნოთ შეხვედრის ადგილი. მაგრამ ყოველგვარი ეჭვის გარეშე, ეს ცოტა პრობლემურია. ამრიგად, აქ ჩვენ გასწავლით შეხვედრის ადგილმდებარეობის რუკას პირდაპირ თქვენს Outlook-ში. ახლა წაიკითხეთ დახვეწილი ნაბიჯების და კონკრეტული VBA კოდის მისაღებად.

შეხვედრის ადგილი რუკაზე პირდაპირ 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

6. ამის შემდეგ, მომავალი მოსახერხებელი შემოწმებისთვის, უმჯობესია დაამატოთ ახალი მაკრო სწრაფი წვდომის ხელსაწყოთა ზოლში ან ლენტში.
7. მოგვიანებით თქვენ უნდა შეცვალოთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
8. საბოლოოდ შეგიძლიათ სცადოთ.

• უპირველეს ყოვლისა, შეგიძლიათ გახსნათ შეხვედრა, რომ ნახოთ იგი საკუთარ ფანჯარაში, ან უბრალოდ აირჩიოთ შეხვედრა კითხვის პანელში სანახავად.
• შემდეგ შეგიძლიათ დააჭიროთ ახლად დამატებულ მაკროს სწრაფი წვდომის ხელსაწყოთა ზოლში.
• შემდეგი Outlook გახსნის Google Maps-ს თავის მთავარ ფანჯარაში და შეხვედრის ადგილის რუკას, როგორც შემდეგი ეკრანის სურათი:

შეცდომებისგან დაცვა შეუძლებელია

მრავალი ფუნქციით ტრაბახის მიუხედავად, Outlook მაინც ვერ გათავისუფლდება შეცდომებისგან. მაგალითად, Outlook-ის გამოყენებისას შეიძლება შეგხვდეთ სხვადასხვა პრობლემა. ამრიგად, თქვენ უნდა მიიღოთ საკმარისი სიფრთხილის ზომები, როგორიცაა Outlook მონაცემების რეგულარულად სარეზერვო ასლის შექმნა და ძლიერი Outlook აღდგენა ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად