Blog

 Dim objShell: Define objShell означает CreateObject ("Shell.Application")Dim objFolder: установите objFolder непосредственно на objShell.BrowseForFolder (0, «Выбрать папку, содержащую файлы eml», 0)Слабый элементDim i: i = 0Если (НЕ было objFolder ничего не осталось) То  Определение WShell включает CreateObject ("WScript.Shell")  Установите objOutlook = CreateObject ("Outlook.Application")  Установить папку = objOutlook.Session.PickFolder Если НЕ каталог ничего, тогда    Для каждого отдельного элемента в objFolder.Items      Если Right (Item.Name, 4) означает .eml И Item.IsFolder = False, тогдаobjShell.ShellExecute Item.Path, "", "", "открыть", 1WScript Sleep 1000Определение MyInspector похоже на определение objOutlook.ActiveInspectorУстановите MyItem = objOutlook.ActiveInspector.CurrentItemПапка MyItem.Movei соответствует i + 1      Конец, если    Следующий    MsgBox «Импорт завершен». VbNewLine и VbNewLine & & & "Импортированные файлы eml:" & мы с мужем & _vbNewLine & "Импортировать интенсивно:" & Folder.FolderPath, 64, "Импортировать eml"   Определить папку = ничего  Другой    MsgBox «Импорт прерван.», Шестьдесят четыре, «Импорт EML»  Конец, еслиДругой  MsgBox «Импорт отменен.», 64, EML »Завершить импорт, еслиSet objFolder равно NothingУстановите objShell = Nothing 

Примечание.
В зависимости от скорости реакции вашего компьютера и, конечно, количества надстроек, которые вы прикрепили, и Outlook, вы можете уменьшить этот тайм-аут, чтобы ускорить процесс импорта, или любое значение, стоящее за WScript.Sleep , что может сделать его более надежным, давая Outlook больше времени для загрузки. Если концепт не удается вставить, основной сценарий завершится ошибкой.

Скрипт для импорта обратного выкупа (быстро)

<загрузка img означает "ленивый" src="/pictures/button-vbs-script.png"> Активировать Этот скрипт имеет тот же пользовательский интерфейс с помощью собственного скрипта, но это зависит от вашей надежной библиотеки погашения скриптов ( бесплатно), чтобы настроить импорт новостей о процессе качества. Библиотека сценариев выплат создана и поддерживается специалистом по Outlook, MVP Дмитрием Стреблченко, который создал ее, чтобы упростить ряд сценариев программирования Outlook.

Это означает, что на этом этапе вам не нужно только визуально открывать электронные письма, добавлять или выводить инструкции для перехода в спящий режим или оставлять весь компьютер в спящем режиме, чтобы предотвратить прерывание обнуленного vbulletin. Дополнительным преимуществом этого часто является то, что он немного (намного!) Быстрее и надежнее.

Единственным недостатком является то, что вам необходимо установить библиотеку сценариев redeem, что может быть проблемой на заблокированных (корпоративных) машинах. Если вы оказались в такой ситуации, прочтите примечание ниже, чтобы узнать о возможном обходном пути.

1. Вы загружаете файлы сценария; importemlfiles.zip
2. Разархивируйте файл.
3. Щелкните, чтобы перейти на веб-сайт Redemption, найти и добавить Redemption.
   1. Загрузите версию для разработчиков, которую вы можете использовать бесплатно.
   2. Разархивируйте текущий файл Redemption.zip или дважды щелкните Install.exe.

   3. Следуйте общим советам по установке Redemption. Вы можете принимать неплатежи.

4. Вернитесь в то место, где вы извлекли файл программного обеспечения на шаге 2, и дважды щелкните import-eml-rdo.vbs

5. Выберите папку, работая с файлами eml. импортировать.

   

6. <стиль iframe = "верхняя граница: 20 пикселей; нижняя граница: 20 пикселей; вешать: блок; поля: 0 автоматически;" width = "560" height = "315" src="https://www.youtube.com/embed/fTQZQgnlETg" frameborder = "0" allow = "акселерометр; автозапуск; encrypted-media; гироскоп; картинка в картинке "allowfullscreen>
   

   Выберите папку Outlook, в которую вы хотите импортировать надежные файлы eml.

   <загрузка img означает "ленивый" src="/pictures/import-eml-files-select-outlook-folder-rdo.png">

   • Примечание.
     Выбор каталога обсуждения Outlook можно загрузить в прошлом. В этом случае выберите Outlook на этой панели задач и, при необходимости, прокрутите большие окна Outlook, чтобы найти его. Обычно это их последнее, о чем вы думали.

7. Просто подождите в диалоговом окне «Импорт завершен».

   

 Dim objShell: specific objShell = CreateObject ("Shell.Application")Dim objFolder: set objFolder соответствует objShell.BrowseForFolder (0, «Выбрать папку с файлами EML», 0)Слабый элементНеясно, кем я являюсь, как утверждают эксперты: I = 0Если (НЕ objFolder будет ничем), то  Set WShell подразумевает CreateObject ("WScript.Shell")  Установите objOutlook = CreateObject ("Outlook.Application")  Установить папку = objOutlook.Session.PickFolder Если в папке NOT ничего нет, то    Для каждого элемента в objFolder.Items      Если Right (Item.Name, 4) включает ".eml" И Item.IsFolder False = Then        Set objPost равен Folder.Items.Add (6)        Определите objSafePost CreateObject ("Redemption = .SafePostItem")        objSafePost.Item обозначает objPost        objSafePost.Import Item.Path, 1024        objSafePost.MessageClass соответствует «IPM.Note»        'Убрать индикацию IPM.PostНабор утилит соответствует CreateObject («Redemption.MAPIUtils»)PrIconIndex = & H10800003        utils.HrSetOneProp objSafePost, PrIconIndex, 256, trueful 'Также регистрирует сообщениея имею в виду +1      Конец, если    Следующий    MsgBox «Импорт завершен». VbNewLine & VbNewLine & & "Импортированные файлы eml: rrn. & I & _vbNewLine & "Импортировано в:" & Folder.FolderPath, 64, "Импортировать Eml"   Укажите файл - ничего  Другой    MsgBox «Импорт прерван.», 64, «Импорт EML»  Конец, еслиДругой  MsgBox «Импорт прерван.», 64, «Импорт, когдаОпределить eml "end objFolder = НичегоОпределение objShell ничего не значит 

Ниже в предварительном просмотре, который чаще всего сочетается с надежным импортом EML, показаны инструменты, которые я сам оценил;

• Надежно импортируйте EML в Outlook
  Бесплатно для некоммерческого использования. Он не может работать на компьютерах, зарегистрированных в пространстве.
• ReliefJet Essentials, указанная здесь коммерческая версия инструмента, которая также работает в среде веб-сайта. Кроме того, он предлагает множество других ценных модификаций и функций Outlook.

Примечание.
Если вы не можете использовать Specialist для установки Redemption из-за того, что у вас нет достаточных административных расходов на вашем компьютере, вы можете запустить следующую команду в этой команде, в командном ветровом щитке, войти в окно PowerShell или адрес питьевой станции в отношении в файловый менеджер, чтобы сохранить те библиотеки повторной покупки;

• regsvr32.exe <полная программа в папку> Redemption.dll