Como configuro o Outlook para enviar uma resposta automática durante uma determinada hora do dia todos os dias?

Question

Eu gostaria de me proteger de demandas não razoáveis durante o meu dia de trabalho. Uma delas é dizer às pessoas que não vou responder a nenhum email antes das 15h.

Gostaria de configurar uma regra no Outlook que responda a todos os emails antes das 15:00 com uma mensagem específica. Eu gostaria que isso fosse feito todos os dias, não importa a data.

Como faço para configurar isso?

Eu vasculhei o Google o máximo que pude até agora, e acho que, com base em um fórum do Exchange, um script pode ser necessário para isso. Mas o que eu encontrei até agora foi apenas scripts do lado do servidor. Eu preciso de algo na minha própria máquina.

referências: link

link

    

Answer 1

Onde seu nome está na caixa Para.

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

Editar: cole o código no editor do VBA. O código será disponibilizado em "executar um script".

Veja também link