Outlook e-posta gövdesi metnini Excel elektronik tablosuna nasıl aktarabilirim?
Outlook'tan Excel elektronik tablosuna seçilen e-posta gövdesi metnini dışa aktarmak istiyorsanız, bu makaledeki yöntem size yardımcı olabilir.
Outlook e-posta gövdesi metnini VBA kodu ile Excel elektronik tablosuna aktarın
Outlook e-posta gövdesi metnini VBA kodu ile Excel elektronik tablosuna aktarın<
Bir Outlook e-postasının seçili gövde metnini Excel'e aktarmak için lütfen aşağıdaki VBA kodunu çalıştırın.
1. E-postayı açın, Excel elektronik tablosuna aktarmak istediğiniz e-posta gövdesini seçin ve ardından Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ve sonra VBA kodunu Kod penceresine kopyalayın.
VBA kodu: Outlook e-posta gövdesi metnini Excel elektronik tablosuna aktarın
Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
If xItem.Class <> olMail Then Exit Sub
Set xMailItem = xItem
Set xInspector = xMailItem.GetInspector
Set xDoc = xInspector.WordEditor
xDoc.Application.Selection.Range.Copy
xInspector.Close olDiscard
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
Set xWs = xWb.Sheets.item(1)
xExcel.Visible = False
xWs.Activate
xWs.Paste
xWs.SaveAs xFilePath & "Email body.xlsx"
xWb.Close True
xExcel.Quit
Set xWs = Nothing
Set xWb = Nothing
Set xExcel = Nothing
End Sub
not: Kodda, "E-posta body.xlsx", Seçilen e-posta gövdesi metniyle oluşturacağınız çalışma kitabı adıdır. İhtiyacınıza göre değiştirebilirsiniz.
3. tık Tools > Referanslar. Sonra ikisini de kontrol edin Microsoft Excel Nesne Kitaplığı ve Microsoft Word Nesne Kitaplığı kutuları Referanslar - Proje iletişim kutusu. Ekran görüntüsüne bakın:
4. Sonra a Klasöre Göz At iletişim kutusu açılır, lütfen çalışma kitabını kaydetmek için bir klasör seçin ve OK düğmesine basın.
Şimdi "E-posta gövdesi”Oluşturulur ve belirli bir klasöre kaydedilir. Çalışma kitabını açın, seçilen e-posta gövdesi metninin çalışma kitabının Sayfa1'e aktarıldığını görebilirsiniz.
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.