Скопировать новое письмо в папку

@Alex4D4 · Регистрация: 28.03.2023

Студворк — интернет-сервис помощи студентам

Добрый день.
Господа, помогите пож-та в элементарной задаче. Задача наверное такая простая, что перепахал инет и готового решения не нашел))
Необходимо копировать все новые сообщения, которые приходят в папку "Входящие" в другую папку "Новая".
Вот нашел рабочий код, но он переносит поступающие письма в другую папку, а вот как сделать, чтоб копировал?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Private WithEvents olInboxItems As Items
 
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
 
 
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
Dim objNS As NameSpace
Dim objInbox As MAPIFolder
Dim objTestFolder As MAPIFolder
 
If Item.Class = olMail Then
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objTestFolder = objInbox.Folders("Новая")
                   Item.Move objTestFolder  ''''''''''''''''''''''''''''''''''
End If
 
Set objTestFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
End Sub

@Alex4D4 · 29.03.2023, 11:46 **[ТС]**

если меняю Item.Move objTestFolder на Item.Copy.Move objTestFolder , то новое сообщение дублируется в папке "Новая", но при этом вылетает окно ошибки: "Method `Copy` of objects `_MailItem`failed"
Что не так?

@Dinoxromniy · 29.03.2023, 11:49

Сообщение от Alex4D4

если меняю Item.Move objTestFolder на Item.Copy.Move objTestFolder

Alex4D4, что происходит по Item.Copy objTestFolder ?

@Alex4D4 · 29.03.2023, 11:55 **[ТС]**

если Item.Copy objTestFolder, то выходит ошибка:
"Wrong number of arguments or invalid property assignment"

@Dinoxromniy · 29.03.2023, 12:21

Alex4D4, скопировать сообщение можно по

Visual Basic
1
2
Set myCopiedItem = Item.Copy
                   myCopiedItem.Move objTestFolder

тут другой вопрос, что на возникновение копии сообщения ваш макрос опять пытается среагировать, но сообщение уже перемещено.

А в чем глубокий смысл делать макросом то, на что существует стандартное правило Аутлука? Чем правило не подходит?

@Alex4D4 · 29.03.2023, 12:43 **[ТС]**

Сообщение от Dinoxromniy

на возникновение копии сообщения ваш макрос опять пытается среагировать, но сообщение уже перемещено.

- именно так и происходит, но как то задача, то должна решаться?
И совершено верно в стандартных правилах это реализуемо.
Но вот надо в VBA

Добавлено через 10 минут
т.е. как я понимаю Item.Copy.Move - мы сначала делаем копию объекта в активной папке, а потом его переносим в другую папку?
может как вариант, создать пустое письмо в другой папке и присвоить ему все реквизиты оригинала?

@Dinoxromniy · 29.03.2023, 13:03

Сообщение от Alex4D4

может как вариант, создать пустое письмо в другой папке и присвоить ему все реквизиты оригинала?

Можно просто проверять на ошибку, и если она есть - останавливать код.
Либо - создать аналог по DisableEvents, что-то вроде:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
Public DisableEvents As Boolean
Private WithEvents olInboxItems As Items
 
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
 
DisableEvents = False
End Sub
 
 
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
 
Dim objNS As NameSpace
Dim objInbox As MAPIFolder
Dim objTestFolder As MAPIFolder
Dim myCopiedItem As Outlook.MailItem
If Not DisableEvents Then
 
    If Item.Class = olMail Then
        DisableEvents = True
        
        Set objNS = Application.GetNamespace("MAPI")
        Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
        Set objTestFolder = objInbox.Folders("Новая")
        
                           Set myCopiedItem = Item.Copy
                           myCopiedItem.Move objTestFolder
        
        
    End If
Else
    DisableEvents = False
End If
Set objTestFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
Set myCopiedItem = Nothing
End Sub

Тут вопрос, что будет если придет сразу несколько писем.

@Alex4D4 · 29.03.2023, 13:19 **[ТС]**

а если тупо On Error Resume Next? некрасиво, но вроде как работает

@Dinoxromniy · 29.03.2023, 13:21

Ну это ж первый вариант есть.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Alex4D4 0 / 0 / 0 Регистрация: 28.03.2023 Сообщений: 5
	29.03.2023, 11:46 [ТС]
	если меняю Item.Move objTestFolder на Item.Copy.Move objTestFolder , то новое сообщение дублируется в папке "Новая", но при этом вылетает окно ошибки: "Method `Copy` of objects `_MailItem`failed" Что не так? 0

@Alex4D4 0 / 0 / 0 Регистрация: 28.03.2023 Сообщений: 5
	29.03.2023, 11:55 [ТС]
	если Item.Copy objTestFolder, то выходит ошибка: "Wrong number of arguments or invalid property assignment" 0

@Alex4D4 0 / 0 / 0 Регистрация: 28.03.2023 Сообщений: 5
	29.03.2023, 13:19 [ТС]
	а если тупо On Error Resume Next? некрасиво, но вроде как работает 0

@Dinoxromniy Динохромный 1638 / 775 / 288 Регистрация: 22.12.2015 Сообщений: 2,422
	29.03.2023, 13:21
	Ну это ж первый вариант есть. 1