نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية نقل الاجتماعات المرسلة تلقائيًا إلى مجلد محدد في Outlook؟

عادة ، بعد إرسال رسائل البريد الإلكتروني أو الاجتماعات ، سيتم وضع كلاهما في مجلد العناصر المرسلة. لذا ، سيكون مجلد "العناصر المرسلة" فوضويًا ومرهقًا إلى حد كبير. في هذه المقالة ، سأقدم طريقة لنقل الاجتماعات المرسلة إلى مجلد آخر تلقائيًا بعد إرسال الاجتماع.

يمكنك نقل الاجتماعات المرسلة تلقائيًا إلى مجلد معين باستخدام رمز VBA


يمكنك نقل الاجتماعات المرسلة تلقائيًا إلى مجلد معين باستخدام رمز VBA

لنقل جميع دعوات الاجتماع المرسلة إلى مجلد آخر تلقائيًا ، يمكن أن تساعدك التعليمات البرمجية التالية على القيام بذلك:

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة، انقر نقرا مزدوجا ThisOutlookSession من Project1 (VbaProject.OTM) جزء لفتح الوضع ، ثم قم بنسخ ولصق التعليمة البرمجية التالية في الوحدة النمطية فارغة.

رمز VBA: نقل الاجتماعات المرسلة تلقائيًا إلى مجلد معين

Private WithEvents GExplorer باسم Outlook.Explorer Public WithEvents GSentFolder باسم Outlook.Folder Public WithEvents GSentItems باسم Outlook.Items Private Sub Application_Startup () تعيين GExplorer = Outlook.Application.ActiveExplorer End Sub Private GExplorer_SelectionChange () Dim xFolder As Folder، xRootFolder As Folder Dim xRootFldName كـ سلسلة DimP xPos كـ Integer عند خطأ استئناف التالي Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder xPos = VBA.InStr (3، xFolder.FolderPath، "\") إذا xPos> 0 ثم xRootFldName = VBA.Mid (xFolder. FolderPath، 3، xPos - 3) Else xRootFldName = VBA.Mid (xFolder.FolderPath، 3، Len (xFolder.FolderPath) - 2) End If Set xRootFolder = Outlook.Application.Session.Folders (xRootFldName) Set GSentFolder = xRootFolder. المجلدات ("العناصر المرسلة") تعيين GSentItems = GSentFolder.Items End Sub Private Sub GSentItems_ItemAdd (ByVal Item As Object) Dim xMeetingItem As Outlook.MeetingItem Dim xTargetFolder As Outlook.Folder On Error Resume Next If Ite m.Class <> olMeetingRequest ثم قم بإنهاء المجموعة الفرعية xMeetingItem = تعيين العنصر xTargetFolder = GSentFolder.Folders ("الاجتماعات") إذا كان xTargetFolder هو شيء ثم قم بتعيين xTargetFolder = GSentFolder.Folders.Add ("Meetings") End If xMeetingItem.Move xTargetFolder End Sub

أرسلت دوك الخطوة اجتماع 1

3. ثم ، قم بحفظ وإغلاق إطار التعليمات البرمجية. الآن ، عند إرسال بريد إلكتروني للاجتماع ، سيتم الانتقال إلى مجلد جديد باسم اجتماعات تحت المواد المرسلة المجلد تلقائيًا ، راجع لقطة الشاشة:

أرسلت دوك الخطوة اجتماع 2


Kutools for Outlook - يجلب ميزات 100 المتقدمة إلى Outlook ، وجعل العمل أسهل بكثير!

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.