Bagaimana cara mengatur Outlook untuk mengirim balasan otomatis selama jam tertentu setiap hari?

Saya ingin melindungi diri saya dari tuntutan yang tidak masuk akal selama hari kerja saya. Salah satunya memberitahu orang-orang bahwa saya tidak akan menanggapi email apa pun sebelum jam 3 sore.

Saya ingin menetapkan aturan dalam pandangan yang membalas semua email sebelum jam 3 sore dengan pesan tertentu. Saya ingin ini dilakukan setiap hari, apa pun tanggalnya.

Bagaimana cara mengatur ini?

Saya telah menjelajahi Google sebaik mungkin sejauh ini, dan saya pikir, berdasarkan forum Exchange, mungkin diperlukan skrip untuk ini. Tapi yang saya temukan sejauh ini hanya skrip sisi server. Saya butuh sesuatu di mesin saya sendiri.

referensi: 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/

Di mana nama Anda berada di kotak Kepada.

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

Sunting: Tempel kode ke editor VBA. Kode akan tersedia dalam "menjalankan skrip".

Lihat juga http://www.slipstick.com/outlook/rules/outlooks-rules-and-alerts-run-a-script/