Ana içeriğe atla

Outlook'tan e-postaları otomatik olarak Excel'e nasıl aktarabilirim?

Normalde, e-postaları Outlook'tan Excel'e İçe / Dışa Aktar özelliğiyle dışa aktarabilirsiniz. Ancak, yeni mesajlar geldiğinde e-postaları Excel dosyasına otomatik olarak aktarmayı hiç denediniz mi? Bu yazımda yeni gelen mesajların bilgilerinin otomatik olarak Excel'e nasıl aktarılacağından bahsedeceğim.

E-posta bilgilerini Outlook'tan Excel'e VBA kodu ile otomatik olarak aktarın

Harika bir özellikle e-posta bilgilerini Outlook'tan Excel'e aktarın


E-posta bilgilerini Outlook'tan Excel'e VBA kodu ile otomatik olarak aktarın

Yeni gelen e-postaları otomatik olarak bir Excel çalışma kitabına aktarmak için lütfen aşağıdaki VBA kodunu uygulayın:

1. Öncelikle, aşağıda gösterilen ekran görüntüsü gibi aşağıdaki başlık bilgileriyle bir çalışma kitabı oluşturmalısınız, böylece mesajların bu bilgileri bu Excel dosyasına aktarılacaktır.

doc otomatik dışa aktarma e-postaları 1

2. Ardından Outlook'a gidin ve ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA kodu: Outlook'tan Excel dosyasına otomatik olarak e-posta bilgilerini dışa aktarı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
    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

not: Yukarıdaki kodda, C: \ Kullanıcılar \ DT168 \ Masaüstü \ belgeyi böl \ kto-data.xlsx dışa aktarılan bilgileri bulmak istediğiniz Excel dosya yolu ve Excel adıdır, lütfen ihtiyacınıza göre değiştirin.

doc otomatik dışa aktarma e-postaları 2

4. Hala içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Tools > Referanslar gitmek için Referanslar-Proje1 iletişim kutusu ve kontrol edin Microsoft Excel Nesne Kitaplığı seçeneği Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:

doc otomatik dışa aktarma e-postaları 3

5. Sonra tıklayın OK iletişim kutusunu kapatmak için düğmesine basın ve ardından kod penceresini kaydedip kapatın.

6. Şimdi, bu kodun etkili olması için Outlook'u yeniden başlatmalısınız. Şu andan itibaren, gelen yeni e-postalar varsa, bunlar otomatik olarak belirli çalışma kitabına aktarılacak, ekran görüntüsüne bakın:

doc otomatik dışa aktarma e-postaları 4


Harika bir özellikle e-posta bilgilerini Outlook'tan Excel'e aktarın

E-postaları Gelen Kutusu, Giden Kutusu veya diğer klasörlerden bir Excel dosyasına aktarmak istiyorsanız, Outlook için Kutools's Hızlı rapor İhtiyaç duyduğunuzda mevcut e-posta klasöründeki veya görev klasöründeki tüm öğelerin bilgilerini bildirmek için kolayca bir XML dosyası oluşturmanıza yardımcı olabilir.

Not:Bunu uygulamak için Hızlı raporöncelikle Outlook için Kutoolsve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Outlook için Kutoolslütfen şunu yapın:

1. Tüm mesaj bilgilerini dışa aktarmak istediğiniz bir klasör seçin ve ardından Kutools Artı > Hızlı rapor, ekran görüntüsüne bakın:

2. Sonra, dışarı çıkan Raporu Kaydet pencere, bir konum seçin ve dışa aktarılan bu dosya için bir ad belirtin, ekran görüntüsüne bakın:

3. Ve sonra tıklayın İndirim Bu dosyayı kaydetmek için düğmesine basın ve açılan kutuda Evet dosyayı açmak için ekran görüntüsüne bakın:

4. Şimdi, seçilen klasördeki e-postaların tüm bilgilerinin Excel dosyasına aktarıldığını görebilirsiniz, ekran görüntüsüne bakın:


Daha ilgili makaleler:

  • Outlook'ta E-posta Gövde Tablosunu Excel'e Aktar
  • Gövdede bazı tablolar içeren bir E-posta aldığınızda, bazen tüm tabloları ileti gövdesinden bir excel çalışma sayfasına aktarmanız gerekebilir. Normalde, tabloları çalışma sayfasına kopyalayıp yapıştırabilirsiniz, ancak burada, dışa aktarılması gereken birden fazla tablo olduğunda bu işi çözmek için yararlı bir yöntemden bahsedeceğim.
  • Kişilerin Bilgilerini Outlook'ta Fotoğraflarla Dışa Aktar
  • Kişileri Outlook'tan bir dosyaya aktardığınızda, yalnızca kişilerin metin bilgileri dışa aktarılabilir. Ancak bazen, kişilerin metin bilgilerinin yanı sıra dışa aktarılacak fotoğraflara da ihtiyaç duyarsınız, Outlook'ta bu görevi nasıl halledebilirsiniz?

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

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

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
This comment was minimized by the moderator on the site
I have followed above steps but have blanks in excel.
what should I do?
This comment was minimized by the moderator on the site
Same excel not getting updated? Any suggestions?
This comment was minimized by the moderator on the site
How to capture the Categories, Importance or the User-defined column on the same folder view?
This comment was minimized by the moderator on the site
Can you please let me know how to deal with sub-folders in above code.
This comment was minimized by the moderator on the site
how to deal with subfolders.
This comment was minimized by the moderator on the site
I need the help about exporting Email information sent (outgoing) emails
This comment was minimized by the moderator on the site
Hello, Jorge,
If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations