|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Автоархивация всех папок в Outlook через скрипт |
|
|
VBS/WSH/JS - Автоархивация всех папок в Outlook через скрипт
|
|
Пользователь Сообщения: 85 |
Добрый день!
Есть необходимость организовать архивирование сообщений в Outlook в локальные pst файлы. Шаблоны для организации этого через GPO применены, но вопрос остался в том, что по умолчанию автоархивируются только папки Отправленные и Удаленные. А необходимо архивировать все папки пользователя со всеми родительскими папками и подпапками (делается при помощи нажатия на кнопку "Применить настройки ко всем папкам"). Нашел подобную тему http://social.technet.microsoft.com/...814a12c4b/-gpo где есть ссылка вот на этот скрипт Save Auto-Archive Properties of a Folder in Solution Storage Код:
 Function ChangeAgingProperties(oFolder As Outlook.Folder, _
AgeFolder As Boolean, DeleteItems As Boolean, _
FileName As String, Granularity As Integer, _
Period As Integer, Default As Integer) As Boolean
'6 MAPI properties for aging items in a folder
Const PR_AGING_AGE_FOLDER = _
"http://schemas.microsoft.com/mapi/proptag/0x6857000B"
Const PR_AGING_DELETE_ITEMS = _
"http://schemas.microsoft.com/mapi/proptag/0x6855000B"
Const PR_AGING_FILE_NAME_AFTER9 = _
"http://schemas.microsoft.com/mapi/proptag/0x6859001E"
Const PR_AGING_GRANULARITY = _
"http://schemas.microsoft.com/mapi/proptag/0x36EE0003"
Const PR_AGING_PERIOD = _
"http://schemas.microsoft.com/mapi/proptag/0x36EC0003"
Const PR_AGING_DEFAULT = _
"http://schemas.microsoft.com/mapi/proptag/0x685E0003"
Dim oStorage As StorageItem
Dim oPA As PropertyAccessor
' Valid Period:
' 1-999
'
' Valid Granularity:
' 0=Months, 1=Weeks, 2=Days
'
' Valid Default:
' 0=All settings do not use a default setting
' 1=Only the file location is defaulted
' "Archive this folder using these settings" and
' "Move old items to default archive folder" are checked
' 3=All settings are defaulted
' "Archive items in this folder using default settings" is checked
If (oFolder Is Nothing) Or _
(Granularity < 0 Or Granularity > 2) Or _
(Period < 1 Or Period > 999) Or _
(Default < 0 Or Default = 2 Or Default > 3) _
Then
ChangeAgingProperties = False
End If
On Error GoTo Aging_ErrTrap
'Create or get solution storage in given folder by message class
Set oStorage = oFolder.GetStorage( _
"IPC.MS.Outlook.AgingProperties", olIdentifyByMessageClass)
Set oPA = oStorage.PropertyAccessor
If Not (AgeFolder) Then
oPA.SetProperty PR_AGING_AGE_FOLDER, False
Else
'Set the 6 aging properties in the solution storage
oPA.SetProperty PR_AGING_AGE_FOLDER, True
oPA.SetProperty PR_AGING_GRANULARITY, Granularity
oPA.SetProperty PR_AGING_DELETE_ITEMS, DeleteItems
oPA.SetProperty PR_AGING_PERIOD, Period
If FileName <> "" Then
oPA.SetProperty PR_AGING_FILE_NAME_AFTER9, FileName
End If
oPA.SetProperty (PR_AGING_DEFAULT), Default
End If
'Save changes as hidden messages to the associated portion of the folder
oStorage.Save
ChangeAgingProperties = True
Exit Function
Aging_ErrTrap:
Debug.Print Err.Number, Err.Description
ChangeAgingProperties = False
End Function
Sub TestAgingProps()
Dim oFolder As Outlook.Folder
Set oFolder = Application.ActiveExplorer.CurrentFolder
If ChangeAgingProperties(oFolder, True, False, "", 0, 6, 1) Then
Debug.Print "ChangeAgingProperties OK"
Else
Debug.Print "ChangeAgingProperties Failed"
End If
End Sub
2. Или ни чего не надо менять в нем, т.к он работает со стандартными объектами Outlook?! |
|
|
Отправлено: 11:14, 25-02-2015 |
|
Пользователь Сообщения: 85
|
Профиль | Отправить PM | Цитировать Хм, ни одного ответа ни на одном форуме! Не ужели ни кто не реализовывал данный метод?!
|
|
Отправлено: 19:21, 25-02-2015 | #2 |
|
Пользователь Сообщения: 85
|
Профиль | Отправить PM | Цитировать Гуру скриптов VBS/VBA, help me))))!!!
|
|
Отправлено: 19:04, 26-02-2015 | #3 |
|
Пользователь Сообщения: 85
|
Профиль | Отправить PM | Цитировать UP UP UP!!!!
|
|
Отправлено: 15:05, 02-03-2015 | #4 |
|
Пользователь Сообщения: 85
|
Профиль | Отправить PM | Цитировать К кому можно обратиться (даже не в рамках форума) за разъяснением работы данного скрипта. Много что не понятно в нем!
Спасибо! |
|
|
Отправлено: 19:33, 03-03-2015 | #5 |
|
Пользователь Сообщения: 85
|
Профиль | Отправить PM | Цитировать Командармы!!! Реально,к то-нибудь справился с данным методом реализации автоархивирования?!
Т.к нашел еще одну похожую тему, и там то же глухо http://www.cyberforum.ru/post4966127.html Цитата:
|
|
|
Отправлено: 20:31, 11-03-2015 | #6 |
|
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать выход тут - http://powershellblogger.com/2015/08...okautoarchive/
Раскидываете через GPO эмсиайки и наслаждайтесь Не за что  |
|
Отправлено: 11:49, 22-10-2020 | #7 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| 2010 - Автоархивация всех папок в Outlook через GPO | DJ Mogarych | Microsoft Office (Word, Excel, Outlook и т.д.) | 2 | 28-04-2017 16:14 | |
| 2010 - Автоархивация MS Outlook 2010 не работает. | vikinga | Microsoft Office (Word, Excel, Outlook и т.д.) | 3 | 08-07-2014 10:26 | |
| 2010 - Перенос всех писем и адресной книги из outlook 2007 в outlook 2010 | ath01 | Microsoft Office (Word, Excel, Outlook и т.д.) | 2 | 23-04-2014 09:37 | |
| 2007 - Outlook и выполнение $действия для всех папок | nick5 | Microsoft Office (Word, Excel, Outlook и т.д.) | 0 | 01-03-2013 14:41 | |
| CMD/BAT - [решено] Удаление всех папок с одним именем на всех дисках | volk1234 | Скриптовые языки администрирования Windows | 15 | 13-11-2009 02:13 | |
|
|
Время: 20:03. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. |
