Outlook'ta birden fazla seçili e-postayı toplu olarak MSG dosyaları olarak nasıl kaydedebilirim?

Author Siluvia Last modified 2025-08-26

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:

the screenshot of step 1 about saving selected emails as msg files using vba in outlook

Ş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.

the screenshot of step 2 about saving selected emails as msg files using vba in outlook

"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!

ad about saving emails as multiple file formats in outlook with kutools for outlook

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı kolayca yönetir; yanıtlama, özetleme, optimize etme, uzatma, çeviri ve e-posta oluşturma işlemlerini zahmetsizce gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları 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 Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen 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 başka dili destekler!

Tek tıkla Kutools for Outlook'u anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Al'a Git

🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al