KutoolsforOffice — Tek çözüm, beş güçlü araç.Daha az çabayla daha fazlasını başarmak.

Outlook'un çok erken veya çok geç hatırlatmasını nasıl önleyebilirsiniz?

YazarKelly Değiştirme Tarihi

Örneğin, her gün sabah 9:00 ile akşam 6:00 arasında çalışıyorsunuz; ancak şu anda saat 10:00 için bir randevu oluşturuyor ve Outlook’a bunun için 2 saat önceden hatırlatma ekliyorsunuz. Bu durumda, hatırlatma çalışma saatlerinizin başlangıcından önce, yani sabah 8:00’de devreye girer. Hatta bazı özel durumlarda hatırlatma gece yarısı bile çalabilir! Bu oldukça rahatsız edici olabilir ve birçok Outlook kullanıcısı, hatırlatmaların çok erken ya da çok geç gelmesini önlemek ister. Bu sorunu çözmek için size Outlook’ta kullanabileceğiniz basit bir VBA makrosu tanıtacağım.

Office Tab - Microsoft Office'te Sekmeli Düzenlemeyi ve Göz Atmayı Etkinleştirin, İşinizi Kolaylaştırın
Hemen Kutools for Outlook’u açın ve sınırsız erişimle sonsuza kadar 100’den fazla özelliğin keyfini çıkarın
Bu gelişmiş özellikleri kullanarak Outlook 2024 - 2010 veya Outlook 365 deneyiminizi yükseltin. 100+ güçlü özelliği keşfedin ve e-posta deneyiminizi bir üst seviyeye taşıyın!

Outlook’un çok erken veya çok geç hatırlatmasını önlemek için aşağıdaki adımları izleyebilirsiniz:

Adım 1: Microsoft Visual Basic for Applications penceresini açmak için aynı anda Alt + F11 tuşlarına basın.

Adım 2: Sol bölmedeki Microsoft Outlook Nesneleri öğesini genişletin ve aşağıdaki VBA makrosunu ThisOutlookSession bölümüne yapıştırın.

VBA: Outlook'ta çok erken veya çok geç hatırlatmayı önleme

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Not: Çalışma döneminizi yukarıdaki VBA kodundaki aşağıdaki parametreleri değiştirerek belirleyebilirsiniz:
reminderMaxHour = 20
reminderMinHour = 9

Adım 3: Bu VBA kodunu kaydedin ve Microsoft Outlook’u yeniden başlatın.

Artık belirlediğiniz çalışma döneminden Kaydet ve Kapat düğmesine tıkladıktan sonra, Hatırlatma Zamanı dışında bir randevu oluşturursanız, bir iletişim kutusu açılacak ve sizi uyaracaktır.

Outlook'un çok erken veya çok geç hatırlatmasını önleme adımıyla ilgili ekran görüntüsü

Hatırlatma Zamanı, belirlenen reminderMinHour değerinden daha erken bir zamansa, iletişim kutusunda Evet seçeneğine tıklayarak Hatırlatma Zamanı’nı güncelleyebilir ve hatırlatmanın belirlenen reminderMinHour saatinde çalmasını sağlayabilirsiniz.

Hatırlatma Zamanı, belirlenen reminderMaxHour değerinden daha geç bir zamansa, iletişim kutusunda Evet seçeneğine tıklayarak Hatırlatma Zamanı’nı güncelleyebilir ve hatırlatmanın belirlenen reminderMaxHour saatinde çalmasını sağlayabilirsiniz.

Not: Bu VBA kodu Outlook 2013 ile sorunsuz çalışır; ancak Outlook 2010 ve 2007 ile çalışmaz.

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir), E-postaları Zamanlayarak Gönderme, E-posta Gönderirken Kurallara Göre Otomatik CC/BCC, Otomatik Yönlendirme (Gelişmiş Kurallar), Otomatik Selam Eklemesi, Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi:E-postayı Geri Çağırma/Konu Başlıklarına ve Diğer Özelliklere Göre Dolandırıcı E-postaları Engelleme/Yinelenen E-postaları Silme/Gelişmiş Arama/Klasörleri Düzenleme…

📁Ekler Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıklamayla Harikalar:Tümüne Eklerle Yanıtla/Phishing’e Karşı E-postalar/🕘Gönderenin Mevcut Saati – Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’un kilidini tek tıkla hemen açın! Beklemeyin, şimdi indirin ve verimliliğinizi artırın!

kutools for outlook features1kutools for outlook features2

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

  • ✅Tek tıklama kolaylığı: Tüm beş kurulum paketini tek seferde indirin.
  • 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
  • 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint