web-dev-qa-db-ja.com

毎日、特定の時間に自動返信を送信するようにOutlookを設定するにはどうすればよいですか。

仕事中の無理な要求から身を守りたいです。そのうちの1つは、午後3時までにメールに返信しないことを人々に伝えています。

Outlookで、午後3時より前にすべての電子メールに特定のメッセージで返信するルールを設定したいと思います。これは、日付に関係なく、毎日行って欲しいです。

どうすれば設定できますか？

私はこれまでできる限りGoogleを精査してきましたが、Exchangeフォーラムに基づいて、これにはスクリプトが必要になる可能性があると思います。しかし、これまでに見つけたのはサーバー側のスクリプトだけでした。自分のマシンに何かが必要です。

参照： 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/

microsoft-outlookmicrosoft-outlook-2010auto-reply
8
Avik

名前が[宛先]ボックスのどこにあるか。

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

編集：コードをVBAエディターに貼り付けます。コードは「スクリプトの実行」で使用可能になります。

参照 http://www.slipstick.com/Outlook/rules/outlooks-rules-and-alerts-run-a-script/

8
niton