Ba'zan siz uchrashuv joyini xaritada tekshirishingiz mumkin. Shunday qilib, ushbu postda biz sizga VBA kodining bir qismini taqdim etamiz, bu sizga uchrashuv joyini to'g'ridan-to'g'ri Outlook ichida xaritalash imkonini beradi.
Hammamizga ma'lumki, Outlook-da kontakt manzilini xaritalash uchun mahalliy xususiyat mavjud. Biroq, yig'ilish joyini xaritalash funktsiyasi mavjud emas. Shuning uchun, ko'p foydalanuvchilar uchrashuv joyini xaritalash usulini intiqlik bilan kutmoqdalar. Umuman olganda, siz Internet-brauzerda istalgan Xarita xizmatlariga murojaat qilishingiz va keyin uchrashuv joyini qidirishingiz mumkin. Lekin hech qanday shubhasiz, bu biroz muammoli. Shunday qilib, bu erda biz to'g'ridan-to'g'ri Outlook-da uchrashuv joyini xaritada ko'rsatishni o'rgatamiz. Endi batafsil qadamlar va aniq VBA kodini olish uchun o'qing.
Uchrashuv joyini to'g'ridan-to'g'ri Outlook ichida xaritasi
- Boshlash uchun Outlook dasturingizni ishga tushiring.
- Asosiy Outlook oynasiga kirganingizdan so'ng, "Alt + F11" tugmachalarini bosing.
- Keyinchalik, siz Outlook VBA muharriri oynasiga kirishingiz mumkin bo'ladi.
- Keyin ishlatilmaydigan modulni topishingiz va ochishingiz kerak.
- Keyinchalik, ushbu modulga quyidagi VBA kodini nusxalashingiz va joylashtirishingiz mumkin.
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
- Shundan so'ng, kelajakda qulay tekshirish uchun siz tez kirish asboblar paneli yoki lentaga yangi makrosni qo'shsangiz yaxshi bo'lardi.
- Keyinchalik Outlook makro xavfsizlik darajasini past darajaga o'zgartirishingiz kerak.
- Nihoyat, siz sinab ko'rishingiz mumkin.
- Birinchidan, siz yig'ilishni o'z oynasida ko'rish uchun ochishingiz yoki uni o'qish panelida ko'rish uchun faqat uchrashuvni tanlashingiz mumkin.
- Keyin Tez kirish asboblar panelida yangi qo'shilgan makrosni bosishingiz mumkin.
- Keyingi Outlook o'zining asosiy oynasida Google Xaritalarni ochadi va quyidagi skrinshot kabi uchrashuv joyini xaritada ko'rsatadi:
Xatolardan himoyalanmaslik
Ko'p xususiyatlar bilan maqtansa ham, Outlook hali ham xatolardan ozod bo'lolmaydi. Masalan, Outlook-dan foydalanish paytida siz turli xil muammolarga duch kelishingiz mumkin. Shunday qilib, Outlook ma'lumotlarini muntazam ravishda zaxiralash va ishonchli ma'lumotlarni tayyorlash kabi etarli choralarni ko'rishingiz kerak. Outlookni tiklash kabi vosita DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com