Серый форум — MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (Saikhan) — Sat, 20 Aug 2016 12:20:09 +0000

Ой, а можете помочь тоже, хотя я пишу старое сообщение, но всё же, хоть-нибудь увидит и может даже поможет! Спасибо!

Ситуация такая, хочется по фио отправителя создать папку в аутлуке и туда отправлять все письма с этого адресата, то есть:

Пришло письмо от Иванова Ивана Ивановича с п\я ivanov@test.com, скрипт создал папку с названием Иванов Иван Иванович по п\я ivanov@test.com и в дальнейшем будет все письма от него складывать в эту папку, папка может быть в подпапке Входящие.

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (JSmаn) — Sat, 10 Dec 2011 13:32:59 +0000

alexii, спасибо большое за примеры и приведенные ссылки. Я как раз на этой неделе голову ломал, как мне разобраться с входящей почтой (более 7000 писем, которые нужно рассортировать и привести в нормальный вид для печати).

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (alexii) — Thu, 08 Dec 2011 10:30:30 +0000

Обзорно — здесь: 13. Программирование в Outlook.

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (Дмитрий) — Thu, 08 Dec 2011 07:47:51 +0000

Спасибо большое alexii, помогло!

Кроме http://msdn.microsoft.com/en-us/library/default.aspx. Есть еще какие-то ссылки для того чтобы хорошо понять как работать VBS с Outlook ?

Спасибо.

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (alexii) — Thu, 08 Dec 2011 07:36:57 +0000

В предположении, что потребная папка у нас будет первая (и единственная в корне), попробуйте использовать такой подход:

Set objMAPIFolder_Private = objNamespace.Folders.GetFirst()

вместо:

Set objMAPIFolder_Private = objNamespace.Folders.Item("Личные папки")

В целом (и немного поправил очистку):

Option Explicit

' Enum OlDefaultFolders
'
' NB: The constants olFolderDeletedItems, olFolderOutbox, olFolderJunk, 
' olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, 
' olFolderSyncIssues, and olFolderSentMail cannot be use in «….Add()» method.
'
Const olFolderDeletedItems            =  3
Const olFolderOutbox                  =  4
Const olFolderSentMail                =  5
Const olFolderInbox                   =  6
Const olFolderCalendar                =  9
Const olFolderContacts                = 10
Const olFolderJournal                 = 11
Const olFolderNotes                   = 12
Const olFolderTasks                   = 13
Const olFolderDrafts                  = 16
Const olPublicFoldersAllPublicFolders = 18
Const olFolderConflicts               = 19
Const olFolderSyncIssues              = 20
Const olFolderLocalFailures           = 21
Const olFolderServerFailures          = 22
Const olFolderJunk                    = 23

Dim objOutlook
Dim objNameSpace
Dim objMAPIFolder_Private
Dim objMAPIFolder_Old

Set objOutlook            = WScript.CreateObject("Outlook.Application")
Set objNameSpace          = objOutlook.GetNamespace("MAPI")
Set objMAPIFolder_Private = objNamespace.Folders.GetFirst()
Set objMAPIFolder_Old     = objMAPIFolder_Private.Folders.Add("Старый") ' или конкретного типа: .Add("Старый", olFolderInbox)

WScript.Echo objMAPIFolder_Old.Name

Set objMAPIFolder_Old     = Nothing
Set objMAPIFolder_Private = Nothing
Set objNameSpace          = Nothing

objOutlook.Quit

Set objOutlook            = Nothing

WScript.Quit 0

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (Дмитрий) — Thu, 08 Dec 2011 07:00:48 +0000

alexii, даю скриншот:

Если я напишу нижеизложенный код:

...
Set objMAPIFolder_Private = objNamespace.Folders.Item("Личные папки")
Set objMAPIFolder_Old     = objMAPIFolder_Private.Folders.Add("Старый").
...

, то папка "Старый" естественно не создаст, создает папка только в том случае если пропишешь:

Set objMAPIFolder_Private = objNamespace.Folders.Item("Почтовый ящик - Андреев Дмитрий")
Set objMAPIFolder_Old     = objMAPIFolder_Private.Folders.Add("Старый").
...

Как сделать, чтобы папка "Старый" создавалась в корне, независимо от имени почтового ящика "Почтовый ящик - ... ". Вот в чем загвоздка .

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (alexii) — Wed, 07 Dec 2011 15:12:13 +0000

Дмитрий, корневая папка — всегда одна, либо первая? Можете выложить пару скриншотов, где будет виден список папок у разных пользователей.

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (Дмитрий) — Wed, 07 Dec 2011 14:57:37 +0000

Спасибо alexii за предоставленный ответ, даже очень помогло, но возник один нюанс:

...
Set objMAPIFolder_Private = objNamespace.Folders.Item("Личные папки")
Set objMAPIFolder_Old     = objMAPIFolder_Private.Folders.Add("Старый").
...

У каждого пользователя не висит папка "Личные папки" - а "Почтовый ящик - Иванов" или "Почтовый ящик - Сидоров".
Как тогда реализовать создание папок "Старый" в корне почтового ящика различных пользователей?Я же не буду писать для каждого скрипт
Спасибо.

Re: MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (alexii) — Wed, 07 Dec 2011 03:51:12 +0000

Это и есть подпапка, только на уровень выше. Пробуйте:

Option Explicit

' Enum OlDefaultFolders
'
' NB: The constants olFolderDeletedItems, olFolderOutbox, olFolderJunk, 
' olFolderConflicts, olFolderLocalFailures, olFolderServerFailures, 
' olFolderSyncIssues, and olFolderSentMail cannot be use in «….Add()» method.
'
Const olFolderDeletedItems            =  3
Const olFolderOutbox                  =  4
Const olFolderSentMail                =  5
Const olFolderInbox                   =  6
Const olFolderCalendar                =  9
Const olFolderContacts                = 10
Const olFolderJournal                 = 11
Const olFolderNotes                   = 12
Const olFolderTasks                   = 13
Const olFolderDrafts                  = 16
Const olPublicFoldersAllPublicFolders = 18
Const olFolderConflicts               = 19
Const olFolderSyncIssues              = 20
Const olFolderLocalFailures           = 21
Const olFolderServerFailures          = 22
Const olFolderJunk                    = 23

Dim objOutlook
Dim objNameSpace
Dim objMAPIFolder_Private
Dim objMAPIFolder_Old

Set objOutlook            = WScript.CreateObject("Outlook.Application")
Set objNameSpace          = objOutlook.GetNamespace("MAPI")
Set objMAPIFolder_Private = objNamespace.Folders.Item("Личные папки")
Set objMAPIFolder_Old     = objMAPIFolder_Private.Folders.Add("Старый") ' или конкретного типа: .Add("Старый", olFolderInbox)

WScript.Echo objMAPIFolder_Old.Name

objOutlook.Quit

Set objMAPIFolder_Old     = Nothing
Set objMAPIFolder_Private = Nothing
Set objNameSpace          = Nothing
Set objOutlook            = Nothing

WScript.Quit 0

Add Method

MS Office/Outlook/VBS/VBA: Как создать папку в почтовом ящике Outlook?

null@example.com (Дмитрий) — Tue, 06 Dec 2011 14:45:01 +0000

Доброе время суток!

Кто сможет подсказать как правильно создать папку в почтовом ящике Outlook посредством VBS?

Вот исходный код, но он создает подпапку "Старый" в папке "Входящие":


Dim olApp
Dim olNS
Dim olInbox
Dim CreateNewFolder

Set olApp=CreateObject("Outlook.Application")
Set olNS=olApp.GetNameSpace("MAPI")
Set olInbox=olNS.GetDefaultFolder(6)                          ' 6 - константа olFolderIbox
Set CreateNewFolder=olInbox.Folders.Add("Старый")

Мне нужно не подпапку, а папку наподобие "Входящие", "Отправленные" и.т.д.
Спасибо заранее.