Outlook скопировать структуру папок
Чтобы просмотреть некоторые файлы резервных копий для Outlook, необходимо отобразить скрытые системные папки и расширения имен файлов. Сведения о том, как это сделать, см. в разделе Отображение скрытых папок и расширений имен файлов.
Эти параметры доступны в одном из указанных ниже мест.
Windows 10:\Users\\AppData\Roaming\Microsoft\Outlook\profile name.xml
Более старые версии Windows:\Documents and Параметры\user\Application Data\Microsoft\Outlook\profile name.xml
Файл Outlprnt можно найти в одном из указанных ниже мест.
Более старые версии Windows:\Documents and Параметры\user\Application Data\Microsoft\Outlook\Outlprnt
Файлы, из которых создаются подписи Outlook, можно найти в указанных ниже местах.
Более старые версии Windows:\Documents and Параметры\user\Application Data\Microsoft\Signatures
В 32- и 64-разрядной версиях Outlook бланки хранятся в разных местах. Файлы, из которых создаются бланки Outlook, можно найти в указанных ниже местах.
Все версии Windows:\Program Files\Common Files\Microsoft Shared\Stationery
Все версии Windows:\Program Files (x86)\Common Files\ Microsoft Shared\Stationery
Файлы, из которых создаются настраиваемые формы Outlook, можно найти в указанных ниже местах.
Более старые версии Windows:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Forms
Файлы настраиваемого словаря хранятся в указанных ниже местах.
Предыдущие версии Windows : диск:\Documents and Settings\\Application Data\Microsoft\UProof
Все Outlook шаблоны, которые вы создали, хранятся в одном из двух мест. Шаблоны будут иметь расширение OFT.
Windows 10 : диск:\Users\\AppData\Roaming\Microsoft\Templates
Предыдущие версии Windows : диск:\Documents and Settings\\Application Data\Microsoft\Templates
Параметры отправки и получения включают учетные записи, которые проверяются с какой частотой. Файл параметров отправки и получения можно найти в одном из следующих мест: Файл будет иметь расширение SRS.
Windows 10 : диск:\Users\\AppData\Roaming\Microsoft\Outlook
Предыдущие версии Windows : диск:\Documents and Settings\\Application Data\Microsoft\Outlook
Электронная почта, календарь, контакты и задачи для учетных записей POP и IMAP
Если у вас учетная запись POP или IMAP, все ваши данные уже сохранены в файле личных папок (PST). Его можно перенести на другой компьютер с сохранением данных. При перемещении PST-файла с одного компьютера на другой параметры учетной записи электронной почты не переносятся. Если вам нужно настроить Outlook на новом компьютере, скопируйте PST-файл со старого компьютера и настройте на новом учетную запись электронной почты. Затем откройте PST-файл на новом компьютере.
Расположение PST-файла зависит от версий Outlook и Windows, а также от способа настройки учетной записи или создания PST-файла. PST-файл можно найти в указанных ниже местах.
Более старые версии Windows:\Documents and Параметры\\Local Параметры\Application Data\Microsoft\Outlook
Совет: Если размер Файл данных Outlook (PST), это может замедлить синхронизацию OneDrive и показать "Обработка изменений" или "Файл используется". Узнайте, как удалить PST-Outlook изOneDrive.
Важно: Office 2010 больше не поддерживается. Перейдите на Microsoft 365, чтобы работать удаленно с любого устройства и продолжать получать поддержку.
Примечание: Ваша конфигурация может включать не все эти файлы, поскольку некоторые из них создаются только при настройке функций Outlook.
Не удается найти папки?
Некоторые папки могут быть скрытыми. Чтобы отобразить в Windows скрытые папки, выполните следующее:
Откройте Параметры папки.
Чтобы найти Параметры папки, вверху окна в поле поиска введите Параметры папки. В панели управления для Windows XP в поле Адрес введите Параметры папки.
На вкладке Вид в разделе Дополнительные параметры в категории Файлы и папки в разделе Скрытые файлы и папки установите флажок Показывать скрытые файлы и папки.
Файл данных Outlook (PST)
Когда вы архивируете данные Outlook, они сохраняются в PST-файлах.
Учетные данные Microsoft Exchange Server сохраняют данные на почтовом сервере. Чтобы можно было использовать режим кэширования Exchange или работать автономно, копии элементов сохраняются как автономный файл данных Outlook (OST). Дополнительные сведения см. в разделе "Файл данных Outlook (OST)". В некоторых организациях разрешается также экспорт или архивирование элементов в PST-файл.
Перемещение PST-файла в сетевую папку не поддерживается. Чтобы получить дополнительные сведения, щелкните номер следующей статьи, чтобы просмотреть статью в базе знаний Майкрософт: 297019 файлы личных папок неподдержаты по локальной сети или по ссылке по локальной
сети.
Как определить имя и расположение файла личных папок
Microsoft Outlook 2010
В Outlook 2010 щелкните вкладку Файл на ленте, а затем выберите вкладку Сведения в меню.
Щелкните Файлыданных.
Заметьте путь к PST-файлу и его имя. Например, C:\Exchange\Mailbox.pst указывает на то, что PST-файл с именем Mailbox.pst находится в папке Exchange на диске C.
Файлы данных Outlook (PST), созданные в Outlook 2010, сохраняются на компьютере в папке Documents\Файлы Outlook. В Windows XP эти файлы создаются в папке Мои документы\Файлы Outlook.
Совет: Если размер Файл данных Outlook (PST), это может замедлить синхронизацию OneDrive и показать "Обработка изменений" или "Файл используется". Узнайте, как удалить PST-Outlook изOneDrive.
После обновления до Outlook 2010 на компьютере, на котором уже были файлы данных, созданные в более ранних версиях Outlook, эти файлы сохраняются в другом расположении в скрытой папке.
Windows 7 и Windows Vista диск:\Users\user\AppData\Local\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Outlook
Совет: Сведения о скрытых папках Windows см. в центре справки и поддержки Windows.
Microsoft Office Outlook 2007
В меню Сервис выберите команду Параметры.
На вкладке Настройка почты нажмите кнопку Файлы данных.
Заметьте путь к PST-файлу и его имя. Например, C:\Exchange\Mailbox.pst указывает на PST-файл с именем Mailbox.pst, расположенный в папке Exchange на диске C.
Копирование файла личных папок
В меню Пуск выберите пункт Программы, а затем щелкните Windows проводнике.
Перейдите к папке PST-файла.
Скопируйте PST-файл в нужное место.
Дополнительные сведения о копировании файлов и папок можно найти в указанных здесь действиях.
Перейдите на вкладку Поиск и введите копировать.
В окне Выбор темы для отображения нажмите кнопку Копировать или переместитьфайл или папку .
Как навести указатель Outlook на новый файл личных папок
Microsoft Outlook 2010
Откройте Outlook 2010.
На ленте перейдите на вкладку Файл и выберите в меню вкладку Сведения.
Перейдите на вкладку Параметры учетные записи и снова нажмите кнопку Учетная запись Параметры учетной записи.
На вкладке Файлы данных нажмите кнопку Добавить.
В области Тип файлавыберите Outlook файл данных (*.pst).
Найдите новое расположение для PST-файла и нажмите кнопку ОК.
Выберите PST-файл и нажмите кнопку По умолчанию.
10. Щелкните PST-файл, который был определен в разделе "Определение имени и расположения файла личной папки", и нажмите кнопку Удалить, чтобы удалить локальный PST-файл из профиля.
12. В меню Файл выберите пункт Выход.
13. Перезапустите Outlook.
Теперь ваш профиль указывает на PST-файл в новом расположении. Outlook откроется новый PST-файл, и вы сможете удалить его из старого расположения.
Microsoft Office Outlook 2007
В меню Сервис выберите команду Параметры.
На вкладке Настройка почты нажмите кнопку Учетные записи электронной почты, даже если учетная запись электронной почты не указана.
На вкладке Файлы данных нажмите кнопку Добавить.
Щелкните пункт Файл личных папок Office Outlook (PST) и нажмите кнопку ОК.
Найдите новое расположение для PST-файла и нажмите кнопку ОК два раза.
10. Щелкните PST-файл, который был определен в разделе "Как определить имя и расположение файла личной папки", и нажмите кнопку Удалить, чтобы удалить локальный PST-файл из профиля.
12. В меню Файл выберите пункт Выход.
13. Перезапустите Outlook.
Теперь ваш профиль указывает на PST-файл в новом расположении. Outlook откроется новый PST-файл, и вы сможете удалить его из старого расположения.
Файл (OST)
OST-файл синхронизируется с элементами на сервере Exchange. Поскольку данные остаются на сервере Exchange, вы можете повторно создать этот OST-файл на новом компьютере, не выполняя резервное копирование OST-файла.
Windows 7 и Windows Vista диск:\Users\user\AppData\Local\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Outlook
Личная адресная книга (PAB)
Windows 7 и Windows Vista диск:\Users\user\AppData\Local\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Outlook
Примечание: Личные адресные книги (PAB) не поддерживаются в Outlook 2010. При обновлении до Outlook 2010 вам будет предложено импортировать PAB-файл в папку Контакты. Если вы решили не импортировать PAB-файл при первом Outlook 2010, вы можете импортировать его позже с помощью команды Импорт в Представление Microsoft Office Backstage.
Автономная адресная книга (OAB)
Автономная адресная книга (OAB) используется учетными записями сервера Microsoft Exchange Server. Она содержит такие сведения, как имена, адреса электронной почты, названия и сведения о расположении офиса, из глобального списка адресов на сервере, на котором запущен Exchange.
Вам не нужно создавать резервную копию или восстанавливать этот файл. Он создается и обновляется автоматически.
Windows 7 и Windows Vista диск:\Users\user\AppData\Local\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Outlook
Файл настройки области навигации (XML)
В этом файле хранятся сведения о содержимом области навигации.
Windows 7 и Windows Vista диск:\Users\user\AppData\Roaming\Outlook\profile name.xml
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\Outlook\profile name.xml
Windows 7 и Windows Vista диск:\Users\user\AppData\Local\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Outlook
Список автозавершения для контактов Outlook
В Outlook 2007 файл списка автозавершения (NK2) хранится в следующих папках:
Windows Vista : диск:\Users\\AppData\Roaming\Microsoft\Outlook
Windows XP : диск:\Documents and Settings\\Application Data\Microsoft\Outlook
В Outlook 2010 файл списка завершения (NK2) уже не используется. Элементы списка автозавершения теперь сохраняются в вашем почтовом ящике Microsoft Exchange Server или в файле данных Outlook (PST) вашей учетной записи.
Учетные записи Exchange Server
Если вы используете учетную запись Exchange Server, ваш список автозавершения сохраняется в почтовом ящике на сервере Exchange. Благодаря этому вы можете использовать список автозавершения на любом компьютере, где вы работаете в Outlook со своей учетной записью Exchange.
Как определить наличие учетной записи Microsoft Exchange Server?
Учетные записи POP3
Список автозавершения сохраняется в файле данных Outlook (PST). Сведения о расположении см. в разделе Outlook и перенос файлов данных с одного компьютера на другой.
Правила (RWZ)
Windows 7 и Windows Vista диск:\Users\user\AppData\Roaming\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\Outlook
Примечание: Если вы обновили Outlook 2010 до версии Outlook более ранней, чем Microsoft Outlook 2002, на жестком диске компьютера может быть RWZ-файл. RWZ-файл больше не нужен, а сведения о правилах теперь хранятся на сервере с Microsoft Exchange и в файле данных Outlook (PST) для учетных записей протокол POP3 и IMAP. Вы можете удалить файл.
Если вы используете функцию импорта и экспорта правил, по умолчанию RWZ-файлы находятся в папке Documents.
Стили печати (файл Outlprnt без расширения)
Windows Vista диск:\Users\user\AppData\Roaming\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\Outlook
Подписи (RTF, TXT, HTM)
Windows 7 и Windows Vista диск:\Users\user\AppData\Roaming\Microsoft\Signatures
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\Signatures
Бланки (HTM)
Windows 7 и Windows Vista диск:\Program Files\Common Files\Microsoft Shared\Stationery
Windows 7 и Windows 64- Outlook 2010 с 32- Outlook 2010 Vista диск:\Program Files (x86)\Common Files\Microsoft Shared\Stationery
Windows XP диск:\Program Files\Common Files\Microsoft Shared\Stationery
Настраиваемые формы
Windows 7 и Windows Vista диск:\Users\user\AppData\Local\Microsoft\Forms
Windows XP диск:\Documents and Параметры\user\Local Параметры\Application Data\Microsoft\Forms
Словарь (DIC)
Windows 7 и Windows Vista диск:\Users\user\AppData\Roaming\Microsoft\UProof
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\UProof
Шаблоны (OFT)
Windows 7 и Windows Vista диск:\Users\user\AppData\Roaming\Microsoft\Templates
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\Templates
Параметры отправки и получения (SRS)
Windows 7 и Windows Vista диск:\Users\user\AppData\Roaming\Microsoft\Outlook
Windows XP диск:\Documents and Параметры\user\Application Data\Microsoft\Outlook
Windows 7 и Windows Vista диск:\Users\user\Documents
Windows XP диск:\Documents and Параметры\user\My Documents
Отображение скрытых папок и расширений имен файлов
Некоторые папки могут быть скрыты, и в Windows могут не показываться расширения имен файлов (такие как PST, OST, PAB). Чтобы показать скрытые папки и расширения имен файлов, сделайте следующее:
Откройте панель управления.
В Windows 10 нажмите кнопку Пуск и выберите пункт Панель управления.
В Windows 8 нажмите клавиши Windows + X, затем щелкните Панель управления.
В Windows 7 нажмите кнопку Пуск и выберите Панель управления.
В списке Просмотр выберите Крупные значки или Мелкие значки, чтобы увидеть все значки панели управления.
Щелкните Свойства папки.
Перейдите на вкладку Вид.
В поле Дополнительные параметры:
В разделе Скрытые файлы и папки нажмите Показывать скрытые файлы, папки и диски.
Иногда при работе с Outlook необходимо создать новый (пустой) файл данных Outlook PST, но сохранить текущую структуру папок Outlook из старого файла данных Outlook PST. Это полезно, особенно если текущий файл Outlook слишком велик по размеру и у вас возникают проблемы при работе или управлении им, и вы хотите создать новый файл PST с существующей (текущей) структурой папок.
В этом руководстве я покажу вам, как скопировать только структуру папок Outlook (без электронных писем) в новый файл данных Outlook PST. В конце процесса вы сможете использовать новый файл данных Outlook в качестве расположения хранилища по умолчанию для ваших электронных писем, календаря и контактов.
Как перенести структуру папок Outlook в новый файл данных Outlook.
Шаг 1. Создайте новый файл Outlook PST с помощью команды Архив.
Чтобы скопировать существующую структуру папок из текущего файла Outlook PST в новый (пустой) файл данных Outlook, необходимо создать новый файл Outlook PST с помощью функции «Архивировать» в Outlook. Для этого:
1. Откройте Outlook и перейдите к:
2. В Варианты архива, примените следующие настройки:
1. Выберите для Архивировать эту папку и все подпапки.
2. Выбрать Личные папки.
3. Укажите дату, далекую от прошлого чтобы убедиться, что никакие письма не перемещаются в новый файл PST. (например, 01.01.1950)
4. Затем нажмите Просматривать кнопка.
5. Введите узнаваемое имя для нового файла данных Outlook (например, «OutlookNew.pst») и нажмите хорошо.*
* Примечание: в конце процесса этот файл будет местом хранения по умолчанию для Outlook.
6. щелчок хорошо еще раз, чтобы начать процесс архивирования.
7. Когда процесс архивирования завершится, вы увидите в группе «Архивные папки» тот же список папок, что у вас уже есть в группе «Личные папки». *
* «Архивные папки» — это недавно созданный файл PST (например, «OutlookNew.pst» в этом примере), а «Личные папки» — это старый (существующий) файл PST (например, «Outlook.pst» в этом примере)
8. Закрыть Outlook и перейдите к следующему шагу.
Шаг 2. Установите новый файл PST в качестве хранилища по умолчанию для Outlook.
1. Перейдите к панели управления Windows и установите Просмотр по: в Маленькие иконки.
2. открыто Почта (32-битная).
3. щелчок Дата файлы…
4. Двойной клик на Личные папки.
5. Переименуйте «Личные папки» в «Личные папки СТАРЫЙ«и нажмите хорошо.
6. Теперь дважды щелкните «Архивные папки».
7. Rename «Архивные папки» на «Личные папки«и нажмите хорошо.
8. Выделите «Личные папки» и нажмите Установить по умолчанию.
9. Нажмите близко дважды, чтобы закрыть все окна.
10. Запустите Outlook.
11. Вы сделали! С этого момента все ваши новые письма, контакты, календарь и задачи будут храниться в группе «Личные папки», которая представляет собой новый пустой файл PST (например, «OutlookNew.pst») и вашу существующую информацию в Outlook (письма, контакты, календарь, задачи) можно найти в группе «Личные папки», которая является старым PST-файлом (например, «Outlook.pst»).
Это оно! Дайте мне знать, если это руководство помогло вам, оставив свой комментарий о вашем опыте. Пожалуйста, любите и делитесь этим руководством, чтобы помочь другим.
Как скопировать структуру папок в новый файл данных pst в Outlook?
Некоторые пользователи Outlook обычно используют особую структуру папок для повседневной работы с файлом данных pst. Но долгое время использования старого файла данных он станет громоздким в вашем Outlook. Фактически, вы можете начать с нового файла данных pst с той же структурой папок, что и старый файл данных pst в Outlook. В Outlook вы можете скопировать структуру папок в новый файл данных pst с помощью функции архивирования. Пожалуйста, просмотрите приведенное ниже руководство для получения более подробной информации.
Вкладка Office - включите редактирование и просмотр с вкладками в Office и сделайте работу намного проще .
Скопируйте структуру папок в новый файл данных pst в OutlookM
В Outlook вы можете использовать функцию архивации, чтобы создать новый файл даты pst с той же структурой папок, что и старый. Пожалуйста, сделайте следующее.
1. Откройте архив диалоговое окно.
1). В Outlook 2010 и 2013 нажмите Файл > Инфо > Инструменты очистки > архив. Смотрите скриншот:
2). В Outlook 2007 щелкните Файл > архив.
2. в архив диалоговое окно, сделайте следующее.
1). Выбрать Заархивируйте эту папку и все подпапки вариант;
2). Выберите корень папок, в который вы хотите скопировать структуру папок на его основе;
3). в Архив статей старше, чем В поле укажите дату в прошлом, когда электронные письма не будут перемещены. Например, если самое старое электронное письмо в вашей почтовой папке хранилось на 02, вы можете установить элементы архива старше, чем ящик, как 01;
4). Щелкните значок Приложения кнопка. Смотрите скриншот:
3. Затем Открыть файлы данных Outlook всплывает диалоговое окно. Щелкните значок OK кнопку.
4. Нажмите OK кнопку, когда он вернется в архив диалоговое окно.
5. Затем Outlook начнет архивирование.
6. После архивации новый архив Файл данных pst отображается в области навигации с той же структурой папок, что и указанная выше.
7. Теперь вам нужно попасть в Настройки учетной записи диалоговое окно для переименования этого файла данных.
1). В Outlook 2010 и 2013 щелкните Файл > Инфо > Настройки учетной записи > Настройки учетной записи.
2). В Outlook 2007 щелкните Инструменты > Настройки учетной записи.
8. в Настройки учетной записи диалогового окна, нажмите файлы данных Вкладка, выберите архив файл данных, который вы только что создали в поле, и щелкните Настройки кнопка. Смотрите скриншот:
9. в Файл данных Outlook диалоговом окне переименуйте файл данных в Имя и фамилия поле, затем щелкните OK кнопку.
Dim xFSO As Scripting.FileSystemObject
Sub CopyOutlookFldStructureToWinExplorer()
ExportAction "Copy"
End Sub
Sub ExportAction(xAction As String)
Dim xFolder As Outlook.Folder
Dim xFldPath As String
xFldPath = SelectAFolder()
If xFldPath = "" Then
MsgBox "You did not select a folder. Export cancelled.", vbInformation + vbOKOnly, "Kutools for Outlook"
Else
Set xFSO = New Scripting.FileSystemObject
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
ExportOutlookFolder xFolder, xFldPath
End If
Set xFolder = Nothing
Set xFSO = Nothing
End Sub
Sub ExportOutlookFolder(ByVal OutlookFolder As Outlook.Folder, xFldPath As String)
Dim xSubFld As Outlook.Folder
Dim xItem As Object
Dim xPath As String
Dim xFilePath As String
Dim xSubject As String
Dim xCount As Integer
Dim xFilename As String
On Error Resume Next
xPath = xFldPath & "\" & OutlookFolder.Name
'.
If Dir(xPath, 16) = Empty Then MkDir xPath
xCount = 0 ' Pasted line
xSubject = ReplaceInvalidCharacters(xItem.Subject)
xFilename = xSubject & ".msg"
' Deleted line xCount = 0
xFilePath = xPath & "\" & xFilename
If xFSO.FileExists(xFilePath) Then
xCount = xCount + 1
xFilename = xSubject & " (" & xCount & ").msg"
xFilePath = xPath & "\" & xFilename
Else ' New line
Next
For Each xSubFld In OutlookFolder.Folders
ExportOutlookFolder xSubFld, xPath
Next
Set OutlookFolder = Nothing
Set xItem = Nothing
End Sub
Function SelectAFolder() As String
Dim xSelFolder As Object
Dim xShell As Object
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xSelFolder = xShell.BrowseForFolder(0, "Select a folder", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
SelectAFolder = xSelFolder.self.Path
End If
Set xSelFolder = Nothing
Set xShell = Nothing
End Function
Function ReplaceInvalidCharacters(Str As String) As String
Dim xRegEx
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
ReplaceInvalidCharacters = xRegEx.Replace(Str, "")
End Function
Dim xFSO As Scripting.FileSystemObject
Sub CopyOutlookFldStructureToWinExplorer()
ExportAction "Copy"
End Sub
Sub ExportAction(xAction As String)
Dim xFolder As Outlook.Folder
Dim xFldPath As String
xFldPath = SelectAFolder()
If xFldPath = "" Then
MsgBox "You did not select a folder. Export cancelled.", vbInformation + vbOKOnly, "Kutools for Outlook"
Else
Set xFSO = New Scripting.FileSystemObject
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
ExportOutlookFolder xFolder, xFldPath
End If
Set xFolder = Nothing
Set xFSO = Nothing
End Sub
Sub ExportOutlookFolder(ByVal OutlookFolder As Outlook.Folder, xFldPath As String)
Dim xSubFld As Outlook.Folder
Dim xItem As Object
Dim xPath As String
Dim xFilePath As String
Dim xSubject As String
Dim xCount As Integer
Dim xFilename As String
On Error Resume Next
xPath = xFldPath & "\" & OutlookFolder.Name
'.
If Dir(xPath, 16) = Empty Then MkDir xPath
xCount = 0 ' Pasted line
xSubject = ReplaceInvalidCharacters(xItem.Subject)
xFilename = xSubject & ".msg"
' Deleted line xCount = 0
xFilePath = xPath & "\" & xFilename
If xFSO.FileExists(xFilePath) Then
xCount = xCount + 1
xFilename = xSubject & " (" & xCount & ").msg"
xFilePath = xPath & "\" & xFilename
Else ' New line
Next
For Each xSubFld In OutlookFolder.Folders
ExportOutlookFolder xSubFld, xPath
Next
Set OutlookFolder = Nothing
Set xItem = Nothing
End Sub
Function SelectAFolder() As String
Dim xSelFolder As Object
Dim xShell As Object
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xSelFolder = xShell.BrowseForFolder(0, "Select a folder", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
SelectAFolder = xSelFolder.self.Path
End If
Set xSelFolder = Nothing
Set xShell = Nothing
End Function
Function ReplaceInvalidCharacters(Str As String) As String
Dim xRegEx
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
ReplaceInvalidCharacters = xRegEx.Replace(Str, "")
End Function
Читайте также: