आउटलुक में मीटिंग आमंत्रण भेजने में देरी कैसे करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-11-30

आम तौर पर, आप अभी के बजाय किसी विशिष्ट समय पर संदेश भेजने के लिए विलंब वितरण सुविधा लागू कर सकते हैं। लेकिन, कभी-कभी, आप ईमेल जैसे मीटिंग आमंत्रण भेजने में देरी करना चाहते हैं। आप आउटलुक में अपनी आवश्यकता के अनुसार वांछित समय पर मीटिंग आमंत्रण कैसे भेज सकते हैं?

वीबीए कोड के साथ आउटलुक में मीटिंग आमंत्रण भेजने में देरी करें

वीबीए कोड के साथ आउटलुक में मीटिंग आमंत्रण भेजने में देरी करें

हो सकता है, आउटलुक में मीटिंग आमंत्रण में देरी करने का कोई सीधा तरीका न हो, लेकिन, नीचे दिया गया वीबीए कोड आपकी मदद कर सकता है, कृपया ऐसा करें:

1. सबसे पहले, आपको एक नया कार्य बनाना चाहिए. नए में कार्य खिड़की:

(1.) बैठक के लिए विषय, प्रारंभ तिथि, समाप्ति तिथि निर्दिष्ट करें;

(2.) जब आप मीटिंग आमंत्रण भेजना चाहते हैं तो एक अनुस्मारक तिथि और समय निर्धारित करें;

(3.) मीटिंग संदेश को आवश्यकतानुसार टाइप करें।

दस्तावेज़ भेजने में देरी मीटिंग 1

2. कार्य बनाने के बाद कृपया क्लिक करें सहेजे बंद करें इस विंडो को बंद करने का विकल्प।

3. फिर, दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

4. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह आउटलुक सत्र से प्रोजेक्ट1(VbaProject.OTM) मोड खोलने के लिए फलक, और फिर निम्न कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए कोड: मीटिंग आमंत्रण भेजने में देरी करें:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split(",,", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

दस्तावेज़ भेजने में देरी मीटिंग 2

नोट: उपरोक्त कोड में: बैठक परीक्षण यह वह विषय है जिसे आपने चरण 1 में मीटिंग के लिए बनाया था; और, आपको इसकी जानकारी बदलनी चाहिए प्राप्तकर्ता पते, बैठक का स्थान, समय शुरू और बैठक की अवधि अपने आप के लिए

5. कोड को सहेजें और बंद करें, फिर इस कोड को प्रभावी बनाने के लिए आउटलुक को पुनरारंभ करें।

6. अब से, जब कार्य आइटम अनुस्मारक आपके द्वारा निर्धारित विशिष्ट समय पर पॉप अप होगा, तो आउटलुक स्वचालित रूप से मीटिंग आमंत्रण भेज देगा।