الكوكيز تساعدنا تقديم خدماتنا. باستخدام خدماتنا، فإنك توافق على استخدامنا لملفات تعريف الارتباط.
نصيحة: اللغات الأخرى مترجمة من قبل 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



كوتولس ل أوتلوك

أكثر من 100 Advanced Functions لـ Outlook 2010 و 2013 و 2016 و 2019 و 365

لقطة شاشة kutools للنظرة صغيرة لراية 201812

المزيد من الميزات | تحميل مجانا | فقط شنومكس $ لمئات من الوظائف

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.
    Jorge · 4 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months 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.