Outlook’tan e-postaları Excel’e otomatik olarak nasıl dışa aktarabilirim?

Normalde, Outlook’tan e-postaları İçe/Dışa Aktarma özelliğini kullanarak Excel’e aktarabilirsiniz. Ancak gelen e-postaları geldikleri anda otomatik olarak bir Excel dosyasına aktarmak istiyorsanız, Outlook’un yerleşik bir çözümü bulunmamaktadır. Bu makalede, bu işlemi gerçekleştirmek için iki yöntem sunulmaktadır:

Gelen Kutusu’ndan Yeni Gelen E-postaları VBA Kullanarak Otomatik Olarak Excel’e Aktarma(Manuel ve Yorucu)

Seçili Bir Klasördeki Tüm E-postaları Kutools for Outlook ile Excel Raporuna Hızlıca Aktarma 👍(Hızlı ve Kolay)

Gelen Kutusu’ndan Yeni Gelen E-postaları VBA Kullanarak Otomatik Olarak Excel’e Aktarma

Yeni e-postaları Excel’e otomatik olarak aktarmak istiyorsanız aşağıdaki VBA kodunu kullanabilirsiniz. Bu yöntem, Gelen Kutusu klasörünü izler ve yeni e-posta ayrıntılarını geldikleri 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 üzere bir Excel çalışma kitabı hazırlayın. İlk satıra şu sütun başlıklarını ekleyin: No., Gönderen Adı, Gönderen E-posta, 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 Nesneleri’ni 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 > Başvurular’a tıklayın.

2. Başvurular – Project1 iletişim kutusunda aşağı kaydırın ve Microsoft Excel Nesne Kitaplığı’nı seçin.

3. Değişiklikleri uygulamak için **Tamam**’a tıklayın.

Adım 5: Kaydedin ve Outlook’u Yeniden Başlatın

1. VBA kodunu kaydedin ve düzenleyiciyi kapatın.

2. Değişikliklerin etkili olması için Outlook’u yeniden başlatın.

Sonuç:

Artık Gelen Kutusu’na gelen her yeni e-posta, belirtilen Excel çalışma kitabı dosyasına otomatik olarak aktarılacak.

---

📊 Daha Akıllı E-posta İstatistikleri Kutools ile

E-posta etkinliğinizi kolayca takip edin ve analiz edin—Kutools for Outlook’un İstatistikleri özelliğiyle! Artık gelen e-postalarınızı güne, haftaya veya aya göre sayabilir, sonuçları ise net ve profesyonel grafiklerle görüntüleyebilirsiniz. E-posta yönetiminizi kolaylaştırın ve sadece birkaç tıklamayla değerli içgörülere ulaşın.

Şimdi Kutools for Outlook İndirin

Seçili Bir Klasördeki Tüm E-postaları Kutools for Outlook ile Excel Raporuna Hızlıca Aktarma 👍

VBA kullanmadan Gelen Kutusu, Gönderilen Öğeler veya Özel Klasörler gibi herhangi bir klasördeki e-postaları zahmetsizce dışa aktarmak istiyorsanız, Kutools for Outlook’un Hızlı Rapor özelliği size basit ve etkili bir çözüm sunar.

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 (Gelen Kutusu, Giden Kutusu, Gönderilen Öğeler vb.) gidin.

2. KUTOOLS PLUS > Rapor > Hızlı Rapor seçeneğine tıklayın.

Adım 2: Kayıt Konumunu Seçin

1. Raporu Kaydet penceresinden bir konum seçin ve dışa aktarma işlemi için bir dosya adı girin.

2. Kaydet’e tıklayın.

Adım 3: Raporu Dışa Aktar Dosyasını Açın

Bir onay mesajı görünecektir. Dışa aktarılan dosyayı açmak için **Evet**’e tıklayın.

Sonuç:

Seçili klasördeki tüm e-postalar, gönderen, konu, alma zamanı ve daha fazlasını içeren Excel uyumlu bir XML dosyasına aktarılır.

Not:Kutools for Outlook’in Hızlı Rapor özelliğini kullanmak için öncelikle Kutools for Outlookindirip yüklemeniz gerekir.

---

Hangi yöntemi tercih etmelisiniz?

İhtiyaçlarınıza en uygun yöntemi seçmenize yardımcı olmak için iki yöntemin karşılaştırması aşağıdadır:

Yöntem	En İyi Kullanım Amacı	Kolaylık	Verimlilik
VBA Kodu Kullanarak (Otomatik ancak Karmaşık)	Gelen Kutusu'ndan Yeni Email otomatik olarak dışa aktarma	⭐⭐	⭐⭐⭐⭐
Kutools for Outlook Kullanarak (Basit ve Esnek)	Seçili bir klasördeki tüm e-postaları hızlıca dışa aktarma	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐

Doğru yöntemi seçerek, iş akışınızın gereksinimlerine uygun şekilde Outlook e-postalarını verimli bir şekilde Excel’e aktarabilirsiniz!

---

İlgili Makaleler

• Outlook'ta E-posta Gövdesindeki Tabloyu Excel'e Aktarma
• Gövdesinde tablolar içeren bir e-posta aldığınızda, bu tabloların tamamını bazen Excel çalışma sayfanıza aktarmanız gerekebilir. Tabloları tek tek kopyalayıp yapıştırabilirsiniz; ancak birden fazla tabloyu dışa aktarmanız gerekiyorsa işinizi kolaylaştıracak kullanışlı bir yöntemden bahsedeceğiz.

• Outlook’ta Görev Listesini Excel’e Çıkarma veya Aktarma
• Outlook kullanırken görev listesini başka amaçlarla değerlendirmek üzere Excel’e aktarabilirsiniz. Outlook’un güçlü dışa aktarma özelliğini kullanarak görev listenizi kolayca Excel’e taşıyabilirsiniz. Aşağıdaki adımları uygulayın.

• Outlook’ta Fotoğraflarıyla Birlikte Kişilerin Bilgilerini Dışa Aktarma
• Outlook’tan kişileri bir dosyaya aktardığınızda yalnızca metin bilgileri dışa aktarılır. Peki ya kişi fotoğraflarını da birlikte dışa aktarmak isterseniz? Outlook’ta bu işlemi nasıl gerçekleştirebilirsiniz?

• Outlook’tan Excel’e Klasör Yapısı Dışa Aktarma
• Bu makalede, bir hesabın klasör yapısının Outlook’tan Excel dosyasına nasıl aktarılacağını adım adım anlatacağım. Lütfen bu işlemi gerçekleştirmek için makaledeki talimatları dikkatle uygulayı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 yazma 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ğer Özelliklere 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 Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, 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ıklamayla Harikalar: Tümüne Eklerle Yanıtla / E-postalarda Phishing’e Karşı Koruma / 🕘 Gönderenin Mevcut Saati Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubu’nu 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 dili destekler!

Kutools for Outlook’u tek bir tıklamayla hemen açın! Beklemeyin, şimdi 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ıklamayla kolaylık: Beş kurulum paketini tek bir işlemle 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