Dosya sisteminden Outlook klasörüne msg dosyaları nasıl içe aktarılır?

Normalde, dosya sisteminden bir Outlook klasörüne msg dosyalarını sürükleyip bırakarak içe aktarabilirsiniz. Bu makalede, size dosya sisteminden tüm msg dosyalarını belirli bir Outlook klasörüne aktarmak için kolay bir yöntem göstereceğiz.

VBA kodu ile dosya sisteminden Outlook klasörüne msg dosyalarını içe aktarma

VBA kodu ile dosya sisteminden Outlook klasörüne msg dosyalarını içe aktarma

Lütfen dosya sisteminden belirli bir Outlook klasörüne msg dosyalarını içe aktarmak için aşağıdaki adımları izleyin.

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA Kodu: Dosya sisteminden Outlook klasörüne msg dosyalarını içe aktarma

Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
    xSourceFldPath = xSelFolder.self.Path + "\"
Else
    xSourceFldPath = ""
    Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
    Exit Sub
End If
For Each xFileItem In xSourceFld.Files
    Set xMSG = Session.OpenSharedItem(xFileItem.Path)
    Set xMailItem = xMSG.Copy
    xMailItem.Move xSaveFld
    Set xMailItem = Nothing
    xMSG.Delete
    Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Açılan Klasör Seçme iletişim kutusunda, Outlook klasörüne aktaracağınız msg dosyalarını içeren klasörü seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

4. Şimdi bir Klasör Seçin iletişim kutusu açılır, lütfen içe aktarılan msg dosyalarını kaydetmek için bir Outlook klasörü seçin ve Tamam düğmesine tıklayın.

Ardından, dosya sistemindeki belirli bir klasördeki tüm msg dosyaları hemen belirlenen Outlook klasörüne aktarılır.

İlgili makaleler:

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