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.
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.
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:
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:
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.
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.
- Outlook'ta Görev Listesini Excel'e Çıkarın veya Dışa Aktarın
- Outlook kullanırken, diğer kullanımlar için görev listesini Excel'e çıkarabilirsiniz. Outlook'taki güçlü Dışa Aktar özelliğiyle, görev listenizi Excel'e kolayca aktarabilirsiniz. Lütfen aşağıdaki eğitim şovlarını yapın.
- 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?
- Klasör Yapısını Outlook'tan Excel'e Aktar
- Bu makale, bir hesabın klasör yapısının Outlook'tan Excel dosyasına nasıl aktarılacağını tanıtacağım. Lütfen bu makalenin ayrıntılarıyla başarın.
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 Pro: Toplu 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.