Outlook’ta e-postaları belirli bir e-posta adresi (etki alanı) üzerinden nasıl dışa aktarabilirim?

YazarXiaoyang Değiştirme Tarihi2025-04-17

Outlook’taki tüm kişileriniz arasından belirli bir etki alanına sahip e-posta adreslerini dışa aktarmak istiyorsanız, aşağıdaki ekran görüntüsünde gösterildiği gibi bu etki alanına ait tüm e-posta adreslerini bir metin dosyasına çıkartmanıza yardımcı olacak VBA kodunu içeren bu öğreticiyi lütfen okuyun.

doc-export-addresses-with-domain-1

Outlook'ta VBA koduyla belirli bir etki alanına göre E-posta Adresi dışa aktarma

Tüm kişileriniz arasından belirli bir etki alanına sahip tüm E-posta Adresi’leri çıkartmak için lütfen aşağıdaki adımları izleyin:

1. Yeni bir metin dosyası oluşturun ve istediğiniz adı verin; ekran görüntüsüne göz atın:

doc-export-addresses-with-domain-2

2. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT + F11" tuşlarına basın.

3. Ardından "Ekle (Insert)" > "Modül (Module)" seçeneğine tıklayıp aşağıdaki kodu Modül penceresine yapıştırın.

"VBA kodu: Belirli bir etki alanına göre E-posta Adresi dışa aktarma"

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

Not: Yukarıdaki kodda "C:\Users\skyyang\Desktop\E-posta Adresi with specific domain.txt" yolundaki Dosya Yolu kısmını kendi bilgisayarınız için uygun şekilde değiştirin.

doc-export-addresses-with-domain-4

4. Ardından bu kodu çalıştırmak için "F5" tuşuna basın. Bir uyarı kutusu açılacak; lütfen dışa aktarmak istediğiniz e-posta adreslerini temel alan e-posta alanını girin (ekran görüntüsüne bakın):

doc-export-addresses-with-domain-3

5. Ardından "Tamam (OK)" düğmesine tıklayın; belirtilen etki alanındaki tüm e-posta adresleri aynı anda metin dosyasına aktarılacaktır—ekran görüntüsüne bakın:

doc-export-addresses-with-domain-1

Outlook’ta Yapay Zeka Posta Asistanı: Daha Akıllı Yanıtlar, Net İletişim (tek tıkla sihir!)

Kutools for Outlook’un Yapay Zeka Posta Asistanı ile günlük Outlook görevlerinizi hızlandırın! Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesajlarınızı zahmetsizce taslak haline getirip iyileşmenize yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak özelleştirilmiş, net ve hemen kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metninizi netlik ve etki açısından otomatik olarak güçlendirin.
Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini çoklu Yazı Stili ile yapay zeka halletsin.
Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi daha da geliştirin.
Özetleme: Uzun e-postaların kısa ve öz özetlerini anında alın.
Küresel Erişim: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

Akıllı e-posta yanıtları
İyileştirilmiş içerik
Anahtar kelimeye dayalı taslaklar
Akıllı içerik uzantısı
E-posta özetleme
Çok dilli çeviri

Beklemeyin—Yapay Zeka Posta Asistanı’nı şimdi indirin ve keyfini çıkarın!

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ek Dosyalar Pro: Toplu Kaydet, Toplu Ayır, Toplu Sıkıştır, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing’e Karşı E-postalar / 🕘Gönderenin Mevcut Saati: Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıkla anında etkinleştirin! Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

✅Tek tıkla kullanım kolaylığı: Beş kurulum paketini tek seferde indirin.
🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al