Outlook VBA yordamida bir nechta uchrashuvlarni eslatish vaqtini qanday qilib ommaviy ravishda o'zgartirish mumkin

Hozir ulashing:

Agar siz tez-tez bir nechta uchrashuvlarni eslatish vaqtini o'zgartirishga muhtoj bo'lsangiz, ushbu maqola siz uchun juda foydali bo'ladi. Bu yerdagi usul sizni eslatma vaqtini birma-bir qo'lda o'zgartirishdan samarali qutqaradi.

Oldingi maqola - "To'plamdagi kalendar elementlari uchun eslatmalarni yaratish va o'zgartirish uchun 3 qadam” koʻplab uchrashuvlarning eslatish vaqtini ommaviy ravishda oʻzgartirish usuli bilan oʻrtoqlashdi. Shunga qaramay, u sizdan avval ko'rish sozlamalarini o'zgartirishingizni va keyin bitta uchrashuv eslatmasini qo'lda o'zgartirishingizni talab qiladi. Shuning uchun, bu erda biz sizni yanada samaraliroq usul bilan tanishtiramiz. Bu erda biz batafsil qadamlar va aniq VBA kodini ko'rsatamiz. Shunday qilib, siz VBA haqida hech qanday ma'lumotga ega emasligingiz haqida tashvishlanishingiz shart emas. Faqat davom eting.

To'plam Bir nechta uchrashuvlarni eslatish vaqtini o'zgartiring

  1. Eng boshida, Outlook dasturini ishga tushiring.
  2. Keyin VBA muharririga "" havolasi bilan kiring.Outlook-da VBA kodini qanday ishlatish kerak".
  3. Keyinchalik, foydalanilmagan modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.
Sub BatchChangeRemindersMultipleAppointments()
 Dim lReminderMinBeforeStart As Long
 Dim objSelection As Outlook.Selection
 Dim i As Long
 Dim objAppointment As Outlook.AppointmentItem
 
 'Enter the number of minutes the reminder should occur prior to the start of the appointment
 lReminderMinBeforeStart = InputBox("Enter the reminder minutes before start:", , "45")
 
 Set objSelection = Outlook.ActiveExplorer.Selection
 
 For i = objSelection.Count To 1 Step -1
 If TypeOf objSelection.Item(i) Is AppointmentItem Then
 Set objAppointment = objSelection.Item(i)
 
 'Enable the reminder
 If objAppointment.ReminderSet = False Then
 With objAppointment
 .ReminderSet = True
 .Save
 End With
 End If
 
 With objAppointment
 .ReminderMinutesBeforeStart = lReminderMinBeforeStart
 .Save
 End With
 End If
 Next
 
 'Prompt you of "Complete"
 MsgBox "Complete!", vbInformation + vbOKOnly
End Sub

VBA kodi - bir nechta uchrashuvlarni eslatish vaqtini o'zgartirish

  1. Shundan so'ng, ushbu makrosni lentaga yoki Tez kirish asboblar paneliga qo'shing.
  2. Nihoyat, siz sinab ko'rishingiz mumkin.
  • Boshlash uchun kerakli uchrashuvlarni tanlang.
  • Keyin makro tugmasini bosing.Tanlangan uchrashuvlarda makrosni ishga tushiring
  • Keyin, ochilgan muloqot oynasida uchrashuv boshlanishidan oldin eslatma daqiqalari sonini kiriting.Element boshlanishidan bir necha daqiqa oldin eslatmani kiriting
  • Endi siz o'zingizning xohishingizga ko'ra o'zgartirilgan tanlangan uchrashuvlarning eslatish vaqtini tekshirishingiz mumkin.Eslatma vaqti o'zgartirildi

Outlook xatolarini yo'q qilish

Agar siz Outlook-da tez-tez turli xil xatolarga duch kelsangiz, ba'zi qat'iy choralar ko'rishingiz kerak. Masalan, siz bir vaqtning o'zida Outlook PST faylining zaxira nusxasini yaratishingiz, faylni viruslarga tekshirishingiz va ularni o'ldirishingiz, Scanpst-dan qanday qilib samarali foydalanishni o'rganishingiz kerak. PST ni tuzatish kabi tashqi tuzatish vositasini qo'lga kiriting DataNumen Outlook Repair. Kirish qutisini ta'mirlash vositasi bilan hal qila olmaydigan muammoli muammolarga duch kelganingizda, bu sizga yordam beradi.

Muallif Kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com

Hozir ulashing:

Comments are closed.