Outlook'ta belirli bir etki alanına göre e-posta adreslerini nasıl dışa aktarabilirsiniz?
Outlook'unuzda bulunan tüm kişilerden belirli bir etki alanına sahip e-posta adreslerini dışa aktarmak istiyorsanız, lütfen bu öğreticiyi okuyun. Bu öğretici, belirli bir etki alanındaki tüm e-posta adreslerini aşağıdaki ekran görüntüsünde gösterildiği gibi bir metin dosyasına aktarmak için size bir VBA kodu uygulamanıza yardımcı olacaktır.
VBA kodu ile Outlook'ta belirli bir etki alanına göre e-posta adreslerini dışa aktarma
Tüm kişilerden belirli bir etki alanına sahip tüm e-posta adreslerini çıkarmak için lütfen aşağıdaki adımları izleyin:
1. Yeni bir metin dosyası oluşturun ve buna bir isim verin, ekran görüntüsüne bakın:
2. "Microsoft Visual Basic for Applications" penceresini açmak için "ALT + F11" tuşlarını basılı tutun.
3. Ardından, "Ekle" > "Modül"'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
"VBA kodu: Belirli bir etki alanına göre e-posta adreslerini 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
4. Ardından, bu kodu çalıştırmak için "F5" tuşuna basın. Bir uyarı kutusu açılacak, lütfen e-posta adreslerini aktarmak istediğiniz e-posta alanını yazın, ekran görüntüsüne bakın:
5. Sonra "Tamam" düğmesine tıklayın ve belirli etki alanındaki tüm e-posta adresleri anında metin dosyasına çıkarılır, ekran görüntüsüne bakın:
Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ
Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.
Bu özellik şunları destekler:
- Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
- Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
- Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
- Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
- Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
- Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.
Bu özellik şunları destekler:
- Akıllı e-posta yanıtları
- Optimize edilmiş içerik
- Anahtar kelimeye dayalı taslaklar
- Akıllı içerik genişletme
- E-posta özetleme
- Çok dilli çeviri
En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın
En İyi Ofis Verimlilik Araçları
Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!
Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için Mevcut) / E-postaları Zamanla Gönder / Gönderirken Kural ile Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Birden Fazla Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl ...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Sahtekarlık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle ...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Sihri: 😊Daha Fazla Şık ve Güzel Emoji / Önemli e-postalar geldiğinde seni uyarır / Outlook’u Kapatmak Yerine Küçült ...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı (Phishing) E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçili E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır ...
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40’tan fazla dil desteği!
