मैं हर दिन दिन के एक निश्चित घंटे के दौरान ऑटो उत्तर भेजने के लिए आउटलुक कैसे सेट करता हूं?

मैं अपने कार्य दिवस के दौरान खुद को अनुचित मांगों से बचाना चाहूंगा। उनमें से एक लोगों को बता रहा है कि मैं दोपहर 3 बजे से पहले किसी भी ईमेल का जवाब नहीं दूंगा।

मैं आउटलुक में एक नियम स्थापित करना चाहता हूं जो किसी विशिष्ट संदेश के साथ दोपहर 3 बजे से पहले सभी ईमेल का जवाब दे। मैं चाहूंगा कि यह हर दिन हो, कोई फर्क नहीं पड़ता।

मैं इसे कैसे सेट करूँ?

मैंने Google को अब तक का सबसे अच्छा स्कोर दिया है, और मुझे लगता है कि, मैं एक्सचेंज फोरम पर आधारित हूं, इसके लिए एक स्क्रिप्ट की आवश्यकता हो सकती है। लेकिन मुझे अब तक जो भी मिला वह केवल सर्वर साइड स्क्रिप्ट था। मुझे अपनी मशीन पर कुछ चाहिए।

संदर्भ: 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-outlook microsoft-outlook-2010 auto-reply

— अवीक
स्रोत

आपके पास MS ऑफिस का कौन सा संस्करण है?

— १०:१२ बजे

नवीनतम, 2010

— अविक

इस लेख को देखें। it.ellell.edu/services/outlook/howto/email/out-of-office.cfm

— avirk

उस लेख में @avirk "समय सीमा" एक तिथि और समय का उल्लेख है, हर दिन के लिए प्रति समय नहीं। मैंने Google को अब तक का सबसे अच्छा स्कोर दिया है, मुझे लगता है कि इसके लिए एक स्क्रिप्ट की आवश्यकता हो सकती है।

— अविक

बस "लोकप्रिय प्रश्न बैज" मिला, लेकिन एक भी अपवित्र नहीं :(

— अविक

जहां आपका नाम To बॉक्स में है।

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/

— नाइटन
स्रोत

क्या आप थोड़ा सा समझा सकते हैं कि इसे कैसे काम मिलेगा?

— एविर्क

धन्यवाद, मैं सही उत्तर दूंगा जब मैं पुष्टि करता हूं कि यह काम करता है :)

— Avik