'Delay sending emails at weekend & between 1730 - 0700 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim dayname As String Dim SendAt As String MsgBox "Today is " & WeekdayName(Weekday(Now(), vbUseSystemDayOfWeek)) 'Override all Send delays If Item.Categories = "SEND-OVERRIDE" Then Item.Categories = "" Exit Sub 'We'll test the date of all messages ElseIf WeekdayName(Weekday(Now(), vbUseSystemDayOfWeek)) = "Saturday" Then SendAt = DateSerial(Year(Now), Month(Now), Day(Now) + 2) + #7:00:00 AM# ElseIf WeekdayName(Weekday(Now(), vbUseSystemDayOfWeek)) = "Sunday" Then SendAt = DateSerial(Year(Now), Month(Now), Day(Now) + 1) + #7:00:00 AM# ElseIf WeekdayName(Weekday(Now(), vbUseSystemDayOfWeek)) = "Friday" And Now() > DateSerial(Year(Now), Month(Now), Day(Now)) + #5:59:00 PM# Then SendAt = DateSerial(Year(Now), Month(Now), Day(Now) + 4) + #7:00:00 AM# 'If after 17:30 sends 07:00 ElseIf Now() > DateSerial(Year(Now), Month(Now), Day(Now)) + #5:30:00 PM# Then SendAt = DateSerial(Year(Now), Month(Now), Day(Now) + 1) + #7:00:00 AM# Debug.Print Now(), dayname, SendAt Item.DeferredDeliveryTime = SendAt End If End Sub