Форум программистов, компьютерный форум, киберфорум
MS Office Outlook
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 17.03.2015
Сообщений: 34
1

Автоматическая пересылка писем

23.12.2018, 21:38. Просмотров 1638. Ответов 3
Метки нет (Все метки)

Всем добрый день.

Мужики нужна помощь.
Есть почтовый ящик,на него регулярно поступают письма ,и надо эти письма рассылать (пересылать) на определенные адреса.
Ну алгоритм такой -пришло писем 5 -отправили на один адрес,пришли следующие письма на другой адрес. Циклом так сказать.
Почтовый клиент Outlook2010,хочется макросом сделать.
Не сильно я в этом силен. Вот нашел какой то исходник...но как с ним подружиться я не знаю.
Буду признателен за помощь.

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
43
Option Explicit
 
Public Sub Today()
 
Dim myFolder As Folder
 
    Set myFolder = GetInboxSubFolder("* 0. Today")
    If Not myFolder Is Nothing Then
        MoveItemAndMarkAsUnread myFolder
    End If
 
End Sub
 
Private Function GetInboxSubFolder(folderName As String) As Folder
 
Dim myNamespace As NameSpace
Dim myInbox As Folder
 
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set GetInboxSubFolder = myInbox.Folders(folderName)
 
End Function
 
Private Sub MoveItemAndMarkAsUnread(myFolder As Folder)
 
Dim myExplorer As Explorer
Dim mySelection As Selection
 
    Set myExplorer = Application.ActiveExplorer
    Set mySelection = myExplorer.Selection
 
Dim i As Integer
Dim myItem As MailItem
 
    For i = mySelection.Count To 1 Step -1
 
        mySelection.Item(i).UnRead = True
        mySelection.Item(i).Move myFolder
 
    Next i
 
End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2018, 21:38
Ответы с готовыми решениями:

Автоматическая рассылка писем
Здравствуйте! Помогите решить задачу. Есть несколько файлов. Каждый файл нужно отправить на...

Автоматическая отправка писем из Outlook
Во входящие поступает унифицированное письмо, содержащее в теле письма тлф номер и @. Задача:...

Автоматическая ежедневная отправка писем из Outlook
Товарищи, помогите, пожалуйста в вопросе: каждый день на один и тот же адрес нужно отправлять...

Автоматическая отправка вложенных файлов из писем в аутлуке в опредёлённую папку
Здравствуйте. Мне приходят письма через аутлук. Письмо называется допустим Дубравная 46. В письме...

3
577 / 322 / 98
Регистрация: 22.12.2015
Сообщений: 933
24.12.2018, 11:09 2
Цитата Сообщение от sergun87 Посмотреть сообщение
хочется макросом сделать
Почему не настроить правило, а именно макросом? Правило не подходит?
0
1 / 1 / 0
Регистрация: 17.03.2015
Сообщений: 34
24.12.2018, 11:28  [ТС] 3
Правило не подходит к сожалению.
Нужен макрос. ((
0
1152 / 444 / 85
Регистрация: 13.12.2016
Сообщений: 1,591
Записей в блоге: 2
18.01.2019, 11:00 4
Лучший ответ Сообщение было отмечено sergun87 как решение

Решение

sergun87, вот писал в соседней теме
попробуйте прикрутить свой код на это событие

Visual Basic
1
2
3
Private Sub Application_NewMail()
'- что делать с новым письмом
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2019, 11:00

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

Пересылка Писем
Может кто-то сталкивался: есть письмо во Входящих, далее мы его Пересылаем и в этом письме...

Пересылка Писем
Скажите, как сделать, чтобы при нажатии кнопки Переслать в стандартной почтовой базе, письма...

Пересылка шифрованных писем
Человек ушел в отпуск и в почтовой базе сделал правило переадрисовывать все документы на другого...

Форма обратной связи (пересылка писем)
Добрый день уважаемые специалисты. Помогите исправить обработчик в форме обратной связи. К...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.