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

Author: Siluvia Last Modified: 2025-06-10

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