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

or

كيفية تصدير رسائل البريد الإلكتروني من Outlook إلى Excel تلقائيا؟

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

تصدير معلومات البريد الإلكتروني التلقائي من Outlook إلى Excel باستخدام رمز VBA


تصدير emials بسرعة من علبة الوارد / العناصر المرسلة / المسودات ... إلى ملف Excel:

مع كوتولس ل أوتلوك's تقرير سريع ميزة ، يمكنك بسهولة إنشاء ملف XML للإبلاغ عن جميع المعلومات في مجلد البريد الإلكتروني الحالي أو مجلد المهام

دوك تصدير السيارات رسائل البريد الإلكتروني لتتفوق 5

كوتولس ل أوتلوك: مع أكثر من 40 + الوظائف الإضافية الإضافية في متناول يدك ، ومجانية في محاولة بلا قيود في أيام 60. تنزيل وتجربة الإصدار التجريبي المجاني الآن!

تصدير معلومات البريد الإلكتروني التلقائي من Outlook إلى Excel باستخدام رمز VBA

لتصدير رسائل البريد الإلكتروني الجديدة إلى مصنف Excel تلقائيًا ، يرجى تطبيق رمز VBA التالي:

1. أولاً ، يجب إنشاء مصنف يحتوي على معلومات رأسية أدناه كما هو موضح أدناه لقطة شاشة ، بحيث يتم تصدير هذه المعلومات من الرسائل إلى ملف Excel هذا.

دوك تصدير السيارات رسائل البريد الإلكتروني لتتفوق 1

2. ثم انتقل إلى Outlook واستمر في الضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

رمز VBA: تصدير معلومات البريد الإلكتروني تلقائيًا من Outlook إلى ملف Excel:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

ملاحظة:: في التعليمات البرمجية أعلاه، C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx هو مسار ملف Excel واسم Excel الذي تريد تحديد موقع المعلومات المصدرة ، يرجى تغييره حسب حاجتك.

دوك تصدير السيارات رسائل البريد الإلكتروني لتتفوق 2

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

دوك تصدير السيارات رسائل البريد الإلكتروني لتتفوق 3

5. ثم اضغط OK انقر فوق زر لإغلاق مربع الحوار ، ثم قم بحفظ وإغلاق إطار التعليمات البرمجية.

6. الآن ، يجب إعادة تشغيل Outlook لجعل هذه التعليمات البرمجية سارية المفعول. من الآن فصاعدًا ، إذا كانت هناك رسائل إلكترونية جديدة تصل ، فسيتم تصديرها إلى المصنف المحدد تلقائيًا ، راجع لقطة الشاشة:

دوك تصدير السيارات رسائل البريد الإلكتروني لتتفوق 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.
  • To post as a guest, your comment is unpublished.
    Sailu G · 1 months ago
    I have followed above steps but have blanks in excel.
    what should I do?
  • To post as a guest, your comment is unpublished.
    Marduk20 · 5 months ago
    How to capture the Categories, Importance or the User-defined column on the same folder view?
  • To post as a guest, your comment is unpublished.
    sagar khomane · 7 months ago
    Can you please let me know how to deal with sub-folders in above code.
  • To post as a guest, your comment is unpublished.
    Sagar · 7 months ago
    how to deal with subfolders.
  • To post as a guest, your comment is unpublished.
    Jorge · 1 years ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.