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

or

كيفية تصدير أعداد رسائل Outlook إلى مصنف Excel؟

عادة ، يمكنك تصدير رسائل Outlook إلى ملف Excel باستخدام ميزة الاستيراد / التصدير بسرعة وسهولة. ولكن ، هل سبق لك أن حاولت حساب العناصر الموجودة في جميع مجلدات حساب البريد الإلكتروني الخاص بك وتصدير نتائج العد إلى مصنف Excel؟

تحسب رسالة توقعات التصدير إلى مصنف Excel باستخدام رمز VBA


تحسب رسالة توقعات التصدير إلى مصنف Excel باستخدام رمز VBA

يمكن أن يساعدك رمز VBA التالي على تصدير نتائج العد من جميع المجلدات في حساب بريد إلكتروني معين إلى مصنف Excel ، يرجى القيام بذلك على النحو التالي:

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز VBA: عدد عناصر Outlook للتصدير إلى مصنف Excel:

Sub Export_CountOfItems_InEachFolder_toExcel () Dim xSourceFolder باسم Outlook.Folder ، xSubFolder باسم Outlook.Folder Dim xFilePath باسم سلسلة Dim DimExExcelApp باسم Excel.Application Dim xWb باسم Excel.Workbook Dim xWs باسم Excel.Worksheet عند خطأ استئناف التالي Set xExcelApp = New Excel.Application Set xWb = xExcelApp.Workbooks.Add Set xWs = xWb.Sheets (1) xWs.Cells (1، 1) = "Folder" xWs.Cells (1، 2) = "Count Items" Set xSourceFolder = Outlook.Application.Session. إذا كان xSourceFolder = nill ثم xWb.Close False xExcelApp.Quit إنهاء Sub End If For كل xSubFolder في xSourceFolder.Folders Call ProcessFolders (xWs، xSubFolder) التالي xWs.Columns ("A: B"). AutoFit Set xShell = CreateObject (" Shell.Application ") تعيين xFolder = xShell.BrowseforFolder (0 ،" تحديد مجلد: "، 0 ، 0) إذا كان TypeName (xFolder) =" لا شيء "ثم xWb.Close False xExcelApp.Quit إنهاء Sub End If Set xFolderItem = xFolder .Self xFilePath = xFolderItem.Path & "\" xFilePath = xFilePath & xSourceFolder.Name & "(" "& For mat (الآن ، "yyyy-mm-dd hh-mm-ss") & ") .xlsx" xWb.Close True، xFilePath xExcelApp.Quit Set xShell = Nothing MsgBox "Complete!"، vbExclamation، "Kutools for Outlook" End Sub SubFoolers (ByVal Ws As Worksheet، ByVal xCurFolder As Outlook.Folder) Dim xSubFld باسم Folder Dim xItemCount As Long Dim xRow As Integer xItemCount = xCurFolder.Items.Count xRow = Ws.UsedRange.Rows.Count + 1 Ws.Cells ( xRow، 1) = xCurFolder.FolderPath Ws.Cells (xRow، 2) = xItemCount If xCurFolder.Folders.Count> 0 Then For each xSubFld In xCurFolder.Folders Call ProcessFolders (Ws، xSubFld) Next End If End Sub

3. ولا يزال في ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق الأدوات > المراجع للذهاب إلى مراجع Project1 مربع الحوار، وتحقق مكتبة كائنات Microsoft Excel الخيار من المراجع المتاحة قائمة مربع، انظر قطة:

بنود تصدير وثيقة العد 1

4. ثم اضغط OK، ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، أ حدد المجلد برمجية ، يرجى تحديد حساب بريد إلكتروني تريد تصدير عدد العناصر إليه ، راجع لقطة الشاشة:

بنود تصدير وثيقة العد 2

5. ثم اضغط OK، وآخر تصفح للحافظة ، يرجى اختيار مجلد لوضع ملف Excel ، راجع لقطة الشاشة:

بنود تصدير وثيقة العد 3

6. أخيرا، انقر فوق OK الزر ، وتم تصدير عدد العناصر في كل مجلد الحساب المحدد إلى مصنف Excel ، يمكنك فتح ملف Excel لعرض النتيجة ، راجع لقطة الشاشة:

بنود تصدير وثيقة العد 4


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.