Outlook'ta birden fazla seçili e-postayı toplu olarak MSG dosyaları olarak nasıl kaydedebilirim?
Outlook'ta bir e-postayı MSG dosyası olarak kaydetmek kolaydır. Peki Outlook'ta birden fazla seçili e-postayı bireysel MSG dosyaları olarak toplu şekilde nasıl kaydedebilirsiniz? Bu makale, bunu başarmak için bir yöntem 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, Outlook'ta birden fazla seçili e-postayı bireysel MSG dosyaları olarak toplu şekilde kaydetmenize yardımcı olabilir. Lütfen şu adımları izleyin.
1. MSG dosyaları olarak kaydetmek istediğiniz e-postaları seçin. Ardından Microsoft Visual Basic for Applications penceresini açmak için "Alt" + "F11" tuşlarına aynı anda basın.
2. Microsoft Visual Basic for Applications penceresinde, "Ekle" > "Modül"'e tıklayın ve ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA Kodu: Outlook'ta birden fazla seçili e-postayı bireysel 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ör Seç" 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 tüm seçili e-postalar aşağıdaki ekran görüntüsünde gösterildiği gibi bireysel MSG dosyaları olarak kaydedilmiştir.

Outlook'ta seçili e-postaları farklı formatlarda kolayca kaydedin:
"Kutools for Outlook"un "Toplu Kaydetme" özelliği ile, birden fazla seçili e-postayı bireysel HTML formatlı dosya, TXT formatlı dosya, Word belgesi, CSV dosyası ve PDF dosyası olarak kolayca kaydedebilirsiniz. Aşağıdaki ekran görüntüsünde gösterildiği gibi. Kutools for Outlook'un ücretsiz sürümünü şimdi indirin!
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!

