Dosya sisteminden MSG dosyalarını Outlook klasörüne nasıl içe aktarabilirim?
Genellikle MSG dosyalarını, dosya sisteminden Outlook klasörüne sürükle-bırak yöntemiyle içe aktarabilirsiniz. Bu makalede ise tüm MSG dosyalarını, belirtilen bir Outlook klasörüne dosya sisteminden aktarmanın basit ve adım adım anlatılmış yöntemini sizinle paylaşacağız.
MSG dosyalarını dosya sisteminden Outlook klasörüne VBA koduyla içe aktarma
MSG dosyalarını dosya sisteminden Outlook klasörüne VBA koduyla içe aktarma
MSG dosyalarını dosya sisteminden belirtilen bir Outlook klasörüne içe aktarmak için lütfen aşağıdaki adımları uygulayın.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA kodu: MSG dosyalarını dosya sisteminden Outlook klasörüne 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 Sub3. Kodu çalıştırmak için F5 tuşuna basın. Açılan Klasör Seç iletişim kutusunda, Outlook klasörüne içe aktaracağınız MSG dosyalarının bulunduğu 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ç iletişim kutusu açılır; içe aktarılan MSG dosyalarını kaydetmek için bir Outlook klasörü seçin ve Tamam düğmesine tıklayın.
Böylece dosya sisteminizde belirli bir klasörde bulunan tüm MSG dosyaları, hemen belirttiğiniz Outlook klasörüne içe aktarılır.
Seçili e-postaları Outlook'ta farklı biçimli dosyalar olarak kolayca kaydedin:
Toplu Kaydet yardımcısıyla Kutools for Outlook, seçili birden fazla e-postayı ayrı ayrı HTML, TXT, Word belgesi, CSV ve PDF dosyaları olarak aşağıdaki örnekte gösterildiği gibi kolayca Outlook’ta kaydedebilirsiniz.
Kutools for Outlook'nin ücretsiz sürümünü hemen indirin! /a>
İlgili makaleler:
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşamadığınız bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro’yu da içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı bir verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin