Birden çok seçili e-postayı Outlook'ta toplu olarak MSG dosyaları olarak nasıl kaydedebilirim?
Bir e-postayı Outlook'ta MSG dosyası olarak kaydetmek kolaydır. Birden çok seçili e-postayı Outlook'ta toplu olarak tek tek MSG dosyaları olarak nasıl kaydedebilirsiniz? Bu makale size bunu başarmanın bir yolunu gösterecek.
Birden fazla seçili e-postayı VBA kodu ile MSG dosyaları olarak kaydedin
Birden fazla seçili e-postayı VBA kodu ile MSG dosyaları olarak kaydedin
Aşağıdaki VBA kodu, birden çok seçili e-postayı Outlook'ta toplu olarak ayrı MSG dosyaları olarak kaydetmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. MSG dosyası olarak kaydetmek istediğiniz e-postaları seçin. Ardından, Uygulamalar için Microsoft Visual Basic penceresini açmak için Alt + F11 tuşlarına aynı anda basın.
2. Uygulamalar için Microsoft Visual Basic penceresinde, Ekle> Modül'e tıklayın ve ardından VBA kodunun altındaki Modül penceresine kopyalayın.
VBA kodu: Birden fazla seçili e-postayı Outlook'ta ayrı MSG dosyaları olarak kaydedin
Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
If xObjItem.Class = olMail Then
Set xMail = xObjItem
xName = xMail.Subject
xDtDate = xMail.ReceivedTime
xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(xDtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
xPath = xFileName + xName
xMail.SaveAs xPath, olMSG
End If
Next
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın.
4. Klasöre Gözat iletişim kutusunda, lütfen MSG dosyalarını kaydetmek için bir klasör belirtin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Şimdi, seçilen tüm e-postalar aşağıda gösterilen ekran görüntüsü gibi ayrı MSG dosyaları olarak kaydedilir.
Outlook'ta seçili e-postaları farklı biçim dosyaları olarak kolayca kaydedin:
İle Toplu Kaydet yarar Outlook için Kutools, birden fazla seçilen e-postayı tek tek HTML format dosyası, TXT format dosyası, Word belgesi, CSV dosyası ve Outlook'ta PDF dosyası olarak kolayca kaydedebilirsiniz. Şimdi indirin ve deneyin! (60 günlük ücretsiz iz)
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.