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


8

Eu gostaria de me proteger de demandas irracionais durante meu dia de trabalho. Uma delas é dizer às pessoas que não responderei a nenhum e-mail antes das 15h.

Gostaria de configurar uma regra no Outlook que responda a todos os emails antes das 15h com uma mensagem específica. Eu gostaria que isso fosse feito todos os dias, independentemente da data.

Como faço para configurar isso?

Eu procurei o Google da melhor maneira possível até agora e acho que, com base em um fórum do Exchange, pode ser necessário um script para isso. Mas o que encontrei até agora foram apenas scripts do lado do servidor. Eu preciso de algo na minha própria máquina.

referências: http://www.telnetport25.com/2012/01/exchange-2010-out-of-office-fun-with-set-mailboxautoreplyconfiguration/

http://social.technet.microsoft.com/Forums/en-US/exchangesvrclientslegacy/thread/08a033ce-ea79-4dec-bd7c-4d617cc52e02/


11
Qual versão do MS office você possui?
avirk

o mais tardar, 2010
Avik 13/12/12


@avirk "intervalo de tempo" nesse artigo refere-se a uma data e hora, não uma hora por dia. Eu vasculhei o Google da melhor maneira possível até agora, acho que um script pode ser necessário para isso.
Avik

Acabei de receber o "distintivo de pergunta popular" Mas nem um único
voto positivo

Respostas:


8

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 estará disponível em "executar um script".

Consulte também http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/


11
Você pode explicar um pouco como isso vai funcionar?
avirk

Obrigado, vou marcar a resposta correta quando eu confirmar que funciona :) #
1616 da Avik
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.