Skip to main content

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

Author: Siluvia Last Modified: 2025-08-07

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

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!

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


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!

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

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

Kutools for Outlook'un tüm özelliklerini tek tıkla hemen açın. Beklemeyin, şimdi indirip verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2