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

მეთოდი 1: დაყენება რეესტრის შეცვლით
- დასაწყებად, გადადით "დაწყების" მენიუში და მოძებნეთ "regedit".
- შემდეგ დააჭირეთ ნაპოვნი "regedit" პროგრამას.
- შემდეგი, გამოჩნდება "მომხმარებლის ანგარიშის კონტროლი" დიალოგური ფანჯარა, რომელშიც თქვენ უნდა დააჭიროთ "დიახ".
- "რეესტრის რედაქტორის" ფანჯარაში შესვლის შემდეგ, გადადით გზაზე - "HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Options\Calendar”
- მოგვიანებით, დააწკაპუნეთ მარჯვენა ღილაკით „კალენდარი“ და აირჩიეთ „ახალი“ > „DWORD (32-ბიტიანი) მნიშვნელობა“.
- შემდგომში, დაასახელეთ ეს ახალი მნიშვნელობა, როგორც "RecurrencesDefault".
- შემდეგი, ორჯერ დააწკაპუნეთ მნიშვნელობაზე.
- ამომხტარ ფანჯარაში „DWORD (32-ბიტიანი) მნიშვნელობის რედაქტირება“, შეიყვანეთ ნომერი „Value data“ ველში. ეს ეხება დღეების რაოდენობას დღეიდან. მაგალითად, თუ ეს არის „90“, Outlook დააყენებს განმეორების დასრულების თარიღს დღეიდან 90 დღეს.
- ამის შემდეგ დააჭირეთ "OK" და გამოდით რეესტრის რედაქტორის სწორად.
- საბოლოოდ, გადატვირთეთ Outlook და სცადეთ განმეორებადი შეხვედრის შექმნა. მისი დასრულების თარიღი დაყენდება „RecurrencesDefault“ მნიშვნელობის მიხედვით.
მეთოდი 2: დაყენება Outlook VBA-ით
- დასაწყებად, გახსენით Outlook VBA რედაქტორი „Alt + F11“-ის გამოყენებით.
- შემდეგ ჩადეთ შემდეგი VBA კოდი „ThisOutlookSession“ პროექტში.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is AppointmentItem Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
Private Sub objAppointment_PropertyChange(ByVal Name As String)
Dim objRecurrencePattern As Outlook.RecurrencePattern
'Change enable "Recurrence"
If Name = "IsRecurring" Then
If objAppointment.IsRecurring = True Then
Set objRecurrencePattern = objAppointment.GetRecurrencePattern
'Change the end date to 30 days from the start date
'Alter "30" as per your needs
objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
End If
End If
End Sub
- და ბოლოს, დააწკაპუნეთ „Application_Startup“ მაკროზე და დააჭირეთ „F5“.
- ამჟამად, თქვენ შეგიძლიათ შექმნათ ახალი შეხვედრა.
- შემდეგ დააწკაპუნეთ ღილაკზე „განმეორება“, შეცვალეთ განმეორების პარამეტრები „დასრულების თარიღის გარეშე“ დაჭერით და დააჭირეთ „OK“.
- მოგვიანებით, შეგიძლიათ ხელახლა დააწკაპუნოთ "განმეორება" შესამოწმებლად. თქვენ ნახავთ, რომ დასრულების თარიღი შეიცვალა თქვენი VBA კოდის მიხედვით.
შეასწორეთ მიუწვდომელი Outlook PST ფაილი
ოდესმე მიგიღიათ რაიმე შეცდომის შესახებ შეტყობინებები "მიუწვდომელი PST ფაილი" თქვენს Outlook-ში? თუ გაქვთ, როგორ გაუმკლავდით მათ? შესაძლოა Scanpst თავიდანვე გაგახსენდათ. თუმცა როცა სცადე Outlook-ის შესწორება, ისიც ვერ მოხერხდა. ამ სცენარში, თქვენი უკანასკნელი საშუალებაა მონაცემთა აღდგენის გამოცდილი პროგრამული უზრუნველყოფა, როგორიცაა DataNumen Outlook Repair ან სპეციალიზებული აღდგენის სერვისი.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად





