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

Örneğin, her gün 9:00 - 6:00 saatleri arasında çalışıyorsunuz, ancak şimdi saat 10: 00'da randevu alıyorsunuz ve Outlook'ta bunun için 2 saatlik bir hatırlatıcı ekliyorsunuz. Bu, hatırlatıcının işiniz başlamadan önce sabah 8: 00'de çalışacağı anlamına gelir. Öte yandan, özel durumlarda hatırlatma gece yarısı çalabilir. Bu oldukça rahatsız edici ve bazı Outlook kullanıcıları Outlook'un çok erken veya çok geç hatırlatmasını engellemek isteyebilir. Burada, Outlook'ta çözmeniz için bir VBA makrosu tanıtacağım.

Office Sekmesi - Microsoft Office'te Sekmeli Düzenlemeyi ve Göz Atmayı Etkinleştirerek Çalışmayı Kolaylaştırın

Devamı ...Indirin ...

Kutools for Outlook - Üstün Verimlilik için Outlook'u 100'den Fazla Gelişmiş Özellikle Güçlendirin

E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...

Bu gelişmiş özelliklerle Outlook 2021 - 2010 veya Outlook 365'inizi güçlendirin. Kapsamlı 60 günlük ücretsiz deneme sürümünün keyfini çıkarın ve e-posta deneyiminizi geliştirin!

Devamı ...Indirin ...

Outlook'un çok erken veya çok geç hatırlatmasını önlemek için şunları yapabilirsiniz:

Adım 1: tuşuna basın. Ara Toplam + F11 Bu arada Microsoft Visual Basic for Applications penceresini açmak için tuşlarına basın.

2. Adım: Microsoft Outlook Nesneleri sol bölmede ve aşağıdaki VBA makrosunu Bu OutlookOturumu.

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

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: Yukarıdaki VBA kodunda aşağıdaki parametreleri değiştirerek çalışma sürenizi belirtebilirsiniz:
hatırlatıcıMaxSaat = 20
hatırlatmaDakikaSaat = 9

Adım 3: Bu VBA'yı kaydedin ve Microsoft Outlook'unuzu yeniden başlatın.

Şu andan itibaren, çalışma süresini belirlediğiniz anımsatıcı süresiyle bir randevu oluştururken, tıkladıktan sonra size hatırlatmak için bir iletişim kutusu açılacaktır. Kaydet kapat düğmesine basın.

Hatırlatma zamanı, belirtilen hatırlatıcının Dakika Saatinden önceyse, Evet iletişim kutusunda, hatırlatma zamanını değiştirecek ve belirtilen hatırlatıcı Dakikada Saatte hatırlatıcı sesini verecektir.

Hatırlatma zamanı, belirtilen anımsatıcı MaxSaat değerinden sonraysa, Evet iletişim kutusunda, hatırlatma zamanını değiştirecek ve belirtilen reminderMaxHour'da size hatırlatacaktır.

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