كيفية تصدير عناوين البريد الإلكتروني بناءً على نطاق معين في Outlook؟

Author: Xiaoyang Last Modified: 2025-05-30

إذا كنت ترغب في تصدير عناوين البريد الإلكتروني ذات النطاق المحدد من جميع جهات الاتصال في Outlook الخاص بك، يرجى قراءة هذا البرنامج التعليمي الذي سيساعدك على تطبيق كود VBA لاستخراج جميع عناوين البريد الإلكتروني في نطاق محدد إلى ملف نصي كما هو موضح في لقطة الشاشة أدناه.

doc-export-addresses-with-domain-1

تصدير عناوين البريد الإلكتروني بناءً على نطاق معين في Outlook باستخدام كود VBA

لاستخراج جميع عناوين البريد الإلكتروني ذات النطاق المحدد من جميع جهات الاتصال، يرجى اتباع الخطوات التالية:

1. إنشاء ملف نصي جديد وإعطائه اسمًا، انظر لقطة الشاشة:

doc-export-addresses-with-domain-2

2. اضغط مع الاستمرار على مفتاحي "ALT + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

"كود VBA: تصدير عناوين البريد الإلكتروني بناءً على نطاق معين"

Dim GDomain As String
Dim GFileSystem As Object
Dim GFilePath As String
Dim GFileObj As Object
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, _
  ByVal ipOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Sub ExportListOfEmailAddressesInSpecificDomain()
'Updateby ExtendOffice
Dim xStore As Store
Dim xFolder As Folder
On Error Resume Next
GDomain = InputBox("Enter domain(@***.com):", "Kutools for Outlook")
If Len(GDomain) <> 0 Then
  GFilePath = "C:\Users\skyyang\Desktop\Email Addresses with specific domain.txt" 'Specify the file path
  Set GFileSystem = CreateObject("Scripting.FileSystemObject")
  Set GFileObj = GFileSystem.CreateTextFile(GFilePath, True)
  For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
      If xFolder.DefaultItemType = olContactItem Then
        Call ProcessFolders(xFolder)
      End If
    Next
  Next
  GFileObj.Close
  ShellExecute 0&, vbNullString, GFilePath, vbNullString, vbNullString, 1
End If
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim xContactItems As Items
Dim I As Long
Dim xContact As ContactItem
Dim xSubFolder As Folder
On Error Resume Next
Set xContactItems = Fld.Items
For I = xContactItems.Count To 1 Step -1
  If xContactItems(I).Class = olContact Then
    Set xContact = xContactItems(I)
    If InStr(xContact.Email1Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email1Address & vbCrLf)
    ElseIf InStr(xContact.Email2Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email2Address & vbCrLf)
    ElseIf InStr(xContact.Email3Address, GDomain) > 0 Then
      GFileObj.WriteLine (xContact.Email3Address & vbCrLf)
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    If xSubFolder.DefaultItemType = olContactItem Then
      Call ProcessFolders(xSubFolder)
    End If
  Next
End If
End Sub

ملاحظة: في الكود أعلاه، قم بتغيير مسار الملف "C:\Users\skyyang\Desktop\Email Addresses with specific domain.txt" إلى مسار خاص بك.

doc-export-addresses-with-domain-4

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

doc-export-addresses-with-domain-3

5. ثم انقر فوق زر "موافق"، وسيتم استخراج جميع عناوين البريد الإلكتروني في النطاق المحدد إلى الملف النصي دفعة واحدة، انظر لقطة الشاشة:

doc-export-addresses-with-domain-1

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

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

هذه الميزة تدعم: