Outlook’ta seçili birden fazla e-postayı toplu olarak MSG dosyası olarak nasıl kaydederim?

Outlook’ta tek bir e-postayı MSG dosyası olarak kaydetmek oldukça kolaydır. Peki, seçili birden fazla e-postayı ayrı ayrı MSG dosyaları olarak toplu şekilde nasıl kaydedebilirsiniz? Bu makale, bu işlemi gerçekleştirmeniz için size etkili bir yöntem sunacaktır.

VBA koduyla seçili birden fazla e-postayı MSG dosyası olarak kaydedin

---

VBA koduyla seçili birden fazla e-postayı MSG dosyası olarak kaydedin

Aşağıdaki VBA kodu, Outlook’ta seçili birden fazla e-postayı ayrı ayrı MSG dosyası olarak topluca kaydetmenize olanak tanır. Lütfen aşağıdaki adımları izleyin.

1. MSG dosyası olarak kaydetmek istediğiniz e-postaları seçin. Ardından Microsoft Visual Basic for Applications penceresini açmak için aynı anda "Alt" + "F11" tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, “Ekle” > “Modül” seçeneğine tıklayıp aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Outlook'ta seçili birden fazla e-postayı ayrı ayrı MSG dosyası olarak kaydetme

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, MSG dosyalarını kaydetmek istediğiniz klasörü belirleyin ve "Tamam" düğmesine tıklayın. Ekran görüntüsüne göz atın:

Şimdi tüm seçili e-postalar, aşağıdaki ekran görüntüsünde gösterildiği gibi ayrı ayrı MSG dosyası olarak kaydedildi.

---