Outlook'tan Excel'e e-postaları otomatik olarak nasıl aktarabilirsiniz?
Normalde, Outlook'tan e-postaları İçe Aktar/Dışa Aktar özelliğini kullanarak Excel'e aktarabilirsiniz. Ancak, gelen e-postaların otomatik olarak bir Excel dosyasına aktarılmasını istiyorsanız, Outlook bunun için yerleşik bir çözüm sunmaz. Bu makale bu işlemi gerçekleştirmek için iki yöntemi ele alır:
Gelen Kutusundan Yeni Gelen E-postaları VBA Kullanarak Otomatik Olarak Excel'e Aktarma (Elle Yapılan & Zor İşlem)
Seçilen Klasörden Tüm E-postaları Kutools for Outlook ile Hızlıca Bir Excel Raporuna Aktarma 👍 (Hızlı & Kolay)
Gelen Kutusundan Yeni Gelen E-postaları VBA Kullanarak Otomatik Olarak Excel'e Aktarma
Yeni e-postaları otomatik olarak Excel'e aktarmak için aşağıdaki VBA kodunu kullanabilirsiniz. Bu yöntem Gelen Kutusu klasörünü izler ve yeni e-posta ayrıntılarını aldıkları anda bir Excel dosyasına aktarır.
Adım 1: Excel Dosyasını Hazırlayın
VBA kodunu çalıştırmadan önce, dışa aktarılan e-posta verilerini saklamak için bir Excel çalışma kitabı ayarlayın. İlk satırda aşağıdaki sütun başlıklarını ekleyin: Sıra, Gönderen Adı, Gönderen E-posta Adresi, Konu ve Alma Zamanı.
Adım 2: Outlook'ta VBA Düzenleyicisini Açın
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Project1 (VbaProject.OTM) bölmesinde, Microsoft Outlook Nesnelerini genişletin ve ThisOutlookSession öğesine çift tıklayın.
Adım 3: VBA Kodunu Ekleyin
Aşağıdaki VBA kodunu modüle kopyalayıp yapıştırın:
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
' Update this path with your actual Excel file path
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
Adım 4: Microsoft Excel Nesne Kitaplığını Etkinleştirin
1. Microsoft Visual Basic for Applications penceresinde Araçlar > Referanslar'a tıklayın.
2. Referanslar - Project1 iletişim kutusunda aşağı kaydırın ve Microsoft Excel Nesne Kitaplığı seçeneğini işaretleyin.
3. Değişiklikleri uygulamak için Tamam'ı tıklayın.
Adım 5: Kaydet ve Outlook'u Yeniden Başlat
1. VBA kodunu kaydedin ve düzenleyiciyi kapatın.
2. Değişikliklerin etkili olması için Outlook'u yeniden başlatın.
Sonuç:
Şimdi itibaren, Gelen Kutusuna gelen her yeni e-posta otomatik olarak belirtilen Excel çalışma kitabına aktarılacaktır.
VBA Yönteminin Sınırlamaları:
- ❌ Tek Bir Gelen Kutusu İçin Çalışır: Bu yöntem yalnızca varsayılan Gelen Kutusundaki yeni e-postaları takip eder. Birden fazla hesabınız varsa, diğer hesaplardan gelen e-postaları yakalamaz.
- ❌ Makro Etkinli Outlook Gerektirir: VBA makrolarının çalışması için etkinleştirilmesi gerekmektedir, bu da güvenlik endişelerine neden olabilir.
- ❌ Dosya Yolu Bağımlılığı: Excel dosyası taşınırsa veya silinirse, kod başarısız olur.
- ❌ Manuel Kurulum Gerektirir: Kullanıcılar, Excel dosya yolunu elle girmeli ve VBA ortamını kurmalıdır.
📊 Kutools ile Daha Akıllı E-posta İstatistikleri
Kutools for Outlook’un İstatistikler özelliğini kullanarak e-posta aktivitelerinizi kolayca takip edin ve analiz edin. Artık gelen e-postaları günlük, haftalık veya aylık olarak sayabilir ve sonuçları net, profesyonel grafiklerde görüntüleyebilirsiniz! E-posta yönetimini hızlandırın ve birkaç tıklamayla değerli bilgiler elde edin.
Kutools for Outlook ile Seçilen Klasörden Tüm E-postaları Bir Excel Raporuna Hızlıca Aktarma 👍
Eğer VBA kullanmadan herhangi bir klasörden (Gelen Kutusu, Gönderilen Öğeler, Özel Klasörler) e-postaları aktarmak için sorunsuz bir yöntem arıyorsanız, Kutools for Outlook'un Hızlı Rapor özelliği basit bir çözüm sunar.
Outlook verimsizliğine veda edin! Kutools for Outlook, toplu e-posta işleme işini kolaylaştırır - artık ücretsiz AI destekli özelliklerle! Kutools for Outlook'u Şimdi İndirin!!
Adım 1: Klasörü Seçin ve Hızlı Rapor Özelliğini Etkinleştirin
1. Outlook'u açın ve dışa aktarmak istediğiniz klasöre gidin (Gelen Kutusu, Giden Kutusu, Gönderilen Öğeler vb.).
2. Kutools Plus > Rapor > Hızlı Rapor'a tıklayın.
Adım 2: Kaydetme Konumunu Seçin
1. Raporu Kaydet penceresinde bir konum seçin ve dışa aktarma için bir dosya adı girin.
2. Kaydet'i tıklayın.
Adım 3: Dışa Aktarılmış Raporu Açın
Bir onay mesajı görünecektir. Dışa aktarılmış dosyayı açmak için Evet'i tıklayın.
Sonuç:
Seçilen klasördeki tüm e-postalar, gönderen, konu, alma zamanı ve daha fazlasını gösteren Excel uyumlu bir XML dosyasına aktarılacaktır.
Kutools for Outlook Yönteminin Avantajları:
- ✅ Herhangi Bir Klasörle Çalışır: Gelen Kutusu, Gönderilen Öğeler, Giden Kutusu veya özel klasörlerden e-postaları aktarın.
- ✅ VBA Gerekmez: Makroları etkinleştirmeye veya kod düzenlemeye gerek yoktur.
- ✅ Çoklu Hesap Desteği: Birden fazla e-posta hesabından e-postaları kolayca aktarın.
- ✅ Zaman Tasarrufu Sağlar: Birkaç tıklama anında rapor oluşturur.
- ✅ Özelleştirilebilir Veri Aktarımı: Hangi ayrıntıların (konu, gönderen, tarih vb.) dahil edileceğini seçin.
Hangi Yöntemi Kullanmalısınız?
İhtiyaçlarınızı en iyi şekilde karşılayacak yöntemi seçmenize yardımcı olmak için iki yöntemi karşılaştıralım:
| Yöntem | En İyi Şunun İçin Uygun | Kullanım Kolaylığı | Verimlilik |
|---|---|---|---|
| VBA Kodu Kullanarak (Otomatik ancak Karmaşık) | Gelen Kutusundan yeni e-postaları otomatik olarak aktarma | ⭐⭐ | ⭐⭐⭐⭐ |
| Kutools for Outlook Kullanarak (Basit ve Esnek) | Seçilen klasörden tüm e-postaları hızlıca aktarma | ⭐⭐⭐⭐⭐ | ⭐⭐⭐⭐⭐ |
Doğru yöntemi seçerek, iş akışınızın ihtiyaçlarına göre Outlook e-postalarını Excel'e verimli bir şekilde aktarabilirsiniz!
İlgili Makaleler
- Outlook'ta E-posta İçeriği Tablosunu Excel'e Aktarma
- Gövdesinde bazı tablolar içeren bir e-posta aldığınızda, bazen mesaj gövdesinden tüm tabloları bir Excel çalışma sayfasına aktarmanız gerekebilir. Normalde, tabloları çalışma sayfasına kopyalayıp yapıştırabilirsiniz, ancak burada birden fazla tabloyu aktarmak gerektiğinde bu işi çözmek için faydalı bir yöntemden bahsedeceğim.
- Outlook'tan Görev Listesini Excel'e Dışa Aktarın veya Çıkarın
- Outlook'u kullanırken, görev listesini Excel'e çıkarabilirsiniz. Outlook'un güçlü Dışa Aktar özelliği sayesinde, görev listenizi kolayca Excel'e aktarabilirsiniz. Aşağıdaki öğreticiye uyun.
- Outlook'tan Kişiler Bilgilerini Fotoğraflarla Birlikte Dışa Aktarın
- Outlook'tan kişileri bir dosyaya aktarırken sadece kişilerin metin bilgileri aktarılır. Ancak, bazen fotoğrafların da kişilerin metin bilgileriyle birlikte aktarılmasını isteyebilirsiniz, bu görevi Outlook'ta nasıl halledebilirsiniz?
- Outlook'tan Excel'e Klasör Yapısı Dışa Aktar
- Bu makalede, Outlook'tan bir Excel dosyasına bir hesabın klasör yapısını nasıl dışa aktaracağınızı anlatacağım. Lütfen bu makalenin detaylarıyla tamamlayın.
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!
Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları 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 Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen 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 başka dili destekler!
🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin
Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)
Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!
- ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
- 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
- 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint