매일 특정 시간대에 자동 응답을 보내도록 Outlook을 설정하려면 어떻게해야합니까?


8

나는 내 일 동안 부당한 요구로부터 자신을 보호하고 싶다. 그 중 하나는 내가 오후 3시 이전에 어떤 이메일에도 응답하지 않을 것이라고 사람들에게 말하고 있습니다.

3pm 전에 모든 이메일에 특정 메시지를 회신하는 Outlook의 규칙을 설정하고 싶습니다. 날짜에 관계없이 매일이 작업을 수행하고 싶습니다.

어떻게 설정합니까?

지금까지 할 수있는 최선의 방법은 Google을 샅샅이 뒤졌고 Exchange 포럼을 기반으로 스크립트가 필요하다고 생각합니다. 하지만 지금까지 서버 측 스크립트 만 발견했습니다. 내 컴퓨터에 뭔가가 필요해.

참고 문헌 : http://www.telnetport25.com/2012/01/exchange-2010-out-of-office-fun-with-set-mailboxautoreplyconfiguration/

http://social.technet.microsoft.com/ 포럼 / 페이지 /


1
어떤 MS Office 버전을 보유하고 있습니까?
avirk

최신 2010
Avik


그 문서에서 @avirk "시간 범위"는 매일을 가리키는 시간이 아니라 날짜와 시간을 나타냅니다. 나는 지금까지 할 수있는 최선의 구글을 샅샅이 조사했다. 나는 이것을 위해 스크립트가 필요할 것이라고 생각한다.
Avik

그냥 "인기있는 질문 배지"하지만 하나 upvote있어 : (
Avik

답변:


8

받는 사람 상자의 이름입니다.

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/


1
어떻게하면 효과가 있을지 조금 설명 할 수 있습니까?
avirk

고맙다. 나는 대답 할 때 정확한 답을 표시 할 것이다. :)
Avik
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.