İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Msg fayllarını fayl sistemindən Outlook qovluğuna necə ötürə bilərəm?

Normalda, msg fayllarını sürükleyip bırakarak fayl sistemindən Outlook qovluğuna idxal edə bilərsiniz. Bu yazıda, bir fayl sistemindəki bütün msgs fayllarını ətraflı bir Outlook qovluğuna ətraflı şəkildə daxil etmək üçün asan bir üsul göstərəcəyik.

Fayl sistemindən VBA kodu ilə Outlook qovluğuna msg faylları daxil edin


Seçilən e-poçtları Outlook-da müxtəlif format faylları kimi asanlıqla saxlaya bilərsiniz:

Outlook üçün Kutools olaraq Fayl Saxla proqramı ilə asanlıqla bir neçə seçilmiş e-məktubları fərdi HTML formatı faylını, TXT formatında faylını, Word sənədini, CSV faylını, eləcə də Outlook-da PDF faylını aşağıda göstərildiyi kimi saxlaya bilərsiniz.

Outlook üçün Kutools: 40 gündəki 45-dən çox lazımlı Outlook eklentisi ilə heç bir məhdudiyyətsiz cəhd edin. İndi indir və pulsuz sınaq!


Fayl sistemindən VBA kodu ilə Outlook qovluğuna msg faylları daxil edin

Xahiş edirik, msg fayllarını fayl sistemindən Outlook-da müəyyən bir qovluğa idxal etmək üçün aşağıdakıları yerinə yetirin.

1. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodu aşağıda Modul penceresine kopyalayın.

VBA kodu: fayl sistemindən Outlook qovluğuna msg faylları daxil edin

Alt ImportMessagesInFolder () Dim xFSO Scripting.FileSystemObject Dim xSourceFld kimi Scripting.Folder Dim xSourceFldPath kimi Dim xFileItem Scripting.File Dim xMSG Nesne Dim xMailItem kimi MailItem Dim xSaveFld kimi Outlook.Folder Xətdə Xəta Resume Sonrakı xFSO = Yeni Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application") BrowseForFolder (0, "Bir qovluğu seçin:", 0, 0) Not TypeName (xSelFolder) = "Nothing" Sonra xSourceFldPath = xSelFolder.self.Path + "\ XSourceFldPath = "XSourceFld" (xSourceFldPath) xSaveFld = GetObject ("", "Outlook.Application") GetNamespace ("MAPI"). XSourceFld.Files'te hər bir xFileItem üçün Exit Sub End əgər xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = Heç bir xMSG.Delete XMSG = Nothing Next xFileItem Set xFileItem = Nothing Set xSourceFld = Heç bir şey yoxdur xFSO = N othing End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Açılışda Qovluq üçün göz atın informasiya kutusunu seçin, qovluğa Outlook qovluğuna alacağınız msg faylları daxil edin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

4. İndi a Qovluq seçin informasiya qutusu açılır, bir seçin dünyagörüşü idxal msgs fayllarını saxlamaq üçün qovluq və basın OK düyməsini basın.

Sonra fayl sisteminizdə müəyyən bir qovluğa daxil olan bütün msg faylları dərhal müəyyən bir Outlook qovluğuna daxil edilir.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.