आउटलुक में किसी मीटिंग के लिए अपॉइंटमेंट बदलें

आउटलुक में मीटिंग को अपॉइंटमेंट में बदलें

यह विधि आपको मीटिंग में उपस्थित लोगों को अपॉइंटमेंट के लिए आमंत्रित करने में मदद करेगी और अपॉइंटमेंट को आउटलुक में मीटिंग में बदल देगी।

1. कैलेंडर दृश्य पर जाएं, उस अपॉइंटमेंट पर राइट क्लिक करें जिसे आप कैलेंडर में मीटिंग में परिवर्तित करेंगे, और फिर चुनें उपस्थितियों को आमंत्रित करें राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:

2. अब चयनित अपॉइंटमेंट की सामग्री के साथ एक मीटिंग विंडो खुल रही है। कृपया क्लिक करें सेवा मेरे बटन। स्क्रीनशॉट देखें:

3. पॉप अप होने वाले सहभागी और संसाधन चुनें संवाद बॉक्स में, कृपया उन संपर्कों का चयन करें जिन्हें आप सहभागी के रूप में आमंत्रित करेंगे, क्लिक करें अपेक्षित/ऐच्छिक/उपयुक्त संसाधन चुनें अपनी आवश्यकतानुसार बटन दबाएं, और क्लिक करें OK बटन। ऊपर स्क्रीनशॉट देखें:

नोट: होल्डिंग को कंट्रोल कुंजी, आप प्रत्येक संपर्क पर क्लिक करके एकाधिक गैर-आसन्न संपर्कों का चयन कर सकते हैं; धारण करना पाली कुंजी, आप पहले संपर्क और अंतिम पर क्लिक करके एकाधिक आसन्न संपर्कों का चयन कर सकते हैं।

4. अब आप मीटिंग विंडो पर वापस जाएं, कृपया मीटिंग सामग्री को संपादित करें और क्लिक करें भेजें बटन.

अब तक हमने चयनित नियुक्ति को एक बैठक में बदल दिया है और निर्दिष्ट उपस्थित लोगों को पहले ही भेज दिया है।

यह विधि आउटलुक में चयनित बैठकों को नियुक्तियों में बदलने के लिए एक वीबीए पेश करेगी। कृपया इस प्रकार करें:

1. कैलेंडर दृश्य पर जाएँ, और उन मीटिंगों का चयन करने के लिए क्लिक करें जिन्हें आप कैलेंडर में अपॉइंटमेंट में परिवर्तित करेंगे।

2। दबाएँ ऑल्ट + F11 एप्लिकेशन विंडो के लिए Microsoft Visual Basic खोलने के लिए कुंजियाँ एक साथ।

3। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नई मॉड्यूल विंडो में नीचे VBA कोड पेस्ट करें।

वीबीए: आउटलुक में मीटिंग को अपॉइंटमेंट में बदलें

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4। दबाएं F5 कुंजी या क्लिक करें रन इस वीबीए को दोषमुक्त करने के लिए बटन।

और अब सभी चयनित मीटिंग्स को आउटलुक में नियुक्तियों में बदल दिया गया है।

आउटलुक में कैलेंडर से सभी नियुक्तियाँ छिपाएँ

आउटलुक में कैलेंडर में जन्मदिन की नियुक्तियाँ छिपाएँ