Outlook'ta e-posta içeriğindeki tabloyu Excel'e nasıl aktarılır?
İçerisinde bazı tablolar bulunan bir E-posta aldığınızda, bazen mesaj içeriğindeki tüm tabloları bir Excel çalışma sayfasına aktarmanız gerekebilir. Normalde, bu tabloları çalışma sayfasına kopyalayıp yapıştırabilirsiniz, ancak burada birden fazla tablo aktarılması gerektiğinde bu işi çözmek için kullanışlı bir yöntemden bahsedeceğim.
VBA kodu ile Outlook mesaj içeriğindeki tüm tabloları Excel çalışma sayfasına aktarma
VBA kodu ile Outlook mesaj içeriğindeki tüm tabloları Excel çalışma sayfasına aktarma
Lütfen aşağıdaki VBA kodunu uygulayarak bir mesaj içeriğindeki tüm tabloları Excel çalışma sayfasına aktarın.
1. Tabloları aktarmak istediğiniz mesajı açın ve ardından "ALT" + "F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.
2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki kodu "Modül" penceresine yapıştırın.
VBA kodu: Mesaj içeriğindeki tüm tabloları Excel çalışma sayfasına aktarma
Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
Set xDoc = xMailItem.GetInspector.WordEditor
For I = 1 To xDoc.Tables.Count
Set xTable = xDoc.Tables(I)
xTable.Range.Copy
xWs.Paste
xRow = xRow + xTable.Rows.Count + 1
xWs.Range("A" & CStr(xRow)).Select
Next
Next
End Sub
3. Yukarıdaki kodu yapıştırdıktan sonra hala "Microsoft Visual Basic for Applications" penceresindeyken, "Araçlar" > "Referanslar" seçeneğine tıklayarak "Referanslar-Proje1" iletişim kutusuna gidin ve "Kullanılabilir Referanslar" listesinden "Microsoft Word Nesne Kitaplığı" ve "Microsoft Excel Nesne Kitaplığı" seçeneklerini işaretleyin, aşağıdaki ekran görüntüsüne bakın:
4. Ardından iletişim kutusundan çıkmak için "Tamam" düğmesine tıklayın ve şimdi lütfen kodu çalıştırmak için "F5" tuşuna basın, mesaj içeriğindeki tüm tablolar aşağıdaki ekran görüntüsünde gösterildiği gibi yeni bir çalışma kitabına aktarılacaktır:
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!
