Msg dosyalarını dosya sisteminden Outlook klasörüne nasıl aktarabilirim?
Normalde, msg dosyalarını dosya sisteminden bir Outlook klasörüne sürükleyip bırakarak içe aktarabilirsiniz. Bu yazıda, tüm msg dosyalarını bir dosya sisteminden belirli bir Outlook klasörüne ayrıntılı olarak içe aktarmak için kolay bir yöntem göstereceğiz.
Msg dosyalarını dosya sisteminden Outlook klasörüne VBA kodu ile aktarın
Msg dosyalarını dosya sisteminden Outlook klasörüne VBA kodu ile aktarın
Lütfen msg dosyalarını dosya sisteminden Outlook'ta belirtilen bir klasöre aktarmak için aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Modül penceresine kopyalayın.
VBA kodu: Msg dosyalarını dosya sisteminden Outlook klasörüne aktarın
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 Sub3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Açılışta Klasöre Göz At iletişim kutusunda, Outlook klasörüne alacağınız msg dosyalarını içeren klasörü seçin ve ardından OK buton. Ekran görüntüsüne bakın:
4. Şimdi a Klasör Seç iletişim kutusu açılır, lütfen bir Görünüm içe aktarılan msg dosyalarını kaydetmek için klasör ve OK düğmesine basın.
Ardından, dosya sisteminizdeki belirli bir klasörde bulunan tüm msg dosyaları hemen belirli bir Outlook klasörüne aktarılır.
Outlook'ta seçili e-postaları farklı biçim dosyaları olarak kolayca kaydedin:
İle Toplu Kaydet yarar Outlook için Kutools, birden fazla seçili e-postayı tek tek HTML format dosyası, TXT format dosyası, Word belgesi, CSV dosyası ve aşağıdaki demoda gösterildiği gibi Outlook'ta PDF dosyası olarak kolayca kaydedebilirsiniz.
Şimdi indirin ve deneyin! (60 günlük ücretsiz iz)
İlgili yazılar:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
