How do I set up Outlook to send a auto reply during a certain hour of the day every day?
Where your name is in the To box.
Public Sub Check_ReceivedTime(newMail As Outlook.MailItem)
Dim obj As Object
Dim ReceivedHour As Integer
Dim newReply As MailItem
Dim msg As String
ReceivedHour = Hour(newMail.ReceivedTime)
If ReceivedHour < 15 Then
Set newReply = newMail.reply
msg = "I will respond some time after 3 pm."
CreateMail newReply.To, msg
Else
Debug.Print "After 3. Do not sent the automated reply."
End If
Set newReply = Nothing
End Sub
Private Sub CreateMail(ReplyAddress As String, msg As String)
Dim objMail As Outlook.MailItem
Set objMail = CreateItem(olMailItem)
With objMail
.To = ReplyAddress
.Body = msg
.Display
' or
' .Send
End With
End Sub
Edit: Paste the code into the VBA editor. The code will be availabel in "run a script".
See also http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/