|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.09.2017, 19:36 | #1 |
Пользователь
Регистрация: 20.08.2017
Сообщений: 13
|
Макрос в VBA Outlook для периодической записи непрочитанных сообщений в БД Access
Есть база данных на Access которая содержит следующие поля в указанных форматах:
DateReceipt : Дата/время Mail_by : Текстовый Mail_Addressee : Поле МЕМО Mail_cc : Поле МЕМО Mail_subject : Поле МЕМО Mail_body : Поле МЕМО Mail_file : Поле объекта OLE Request_status : текстовый Стоит задача, что бы посредством макроса VBA в Outlook, при срабатывании встречи через определенный отрезок времени (5 минут) происходила проверка на наличие непрочитанных сообщений и если таковые находятся то происходила их сохранение (запись) в БД Access. В следующем порядке: DateReceipt (Дата поступления), Mail_by (От кого), Mail_Addressee (Получатель), Mail_cc (Копия), Mail_subject (Тема письма), Mail_body (содержание письма), Mail_file (вложение) Request_status(статус запроса "Новый запрос") И после сохранения происходила отметка писем прочитанными. пытаюсь применить следующий код: Код:
но столкнулся с такой проблемой при применении макроса он кидает меня на строку Set conn = CreateObject("ADODB.Connection") и выделяет красным цветом строки conn.open() и conn.close() помогите написать данный макрос с сохранением вложений в Access, вслучае если сохранение в вложений в Access не ивозможно реализовать то тогда подойдет в сохранение в папку. При этом в БД Access должен записаться путь к вложению |
29.09.2017, 21:44 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
А что будет если строку set Conn... Перенести перед строкой with Conn?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
30.09.2017, 18:35 | #3 |
Пользователь
Регистрация: 20.08.2017
Сообщений: 13
|
|
30.09.2017, 18:57 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Чем объясняется глобализация этих строк?
Код:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
30.09.2017, 20:24 | #5 | ||
Пользователь
Регистрация: 20.08.2017
Сообщений: 13
|
Цитата:
Цитата:
то выдает ошибку: Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules подскажите как можно сделать данный макрос рабочим Последний раз редактировалось Margenal; 30.09.2017 в 20:26. |
||
30.09.2017, 21:50 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
ето
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
01.10.2017, 10:27 | #7 |
Пользователь
Регистрация: 20.08.2017
Сообщений: 13
|
Подскажите правильно ли я понимаю, что нужно создать Module1 и вставить туда данную строку?
и достаточно вставить только первую строку или необходимо в модуль вставить все строки, т.е Код:
Последний раз редактировалось Margenal; 01.10.2017 в 11:57. |
01.10.2017, 12:01 | #8 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Первую строку в отдельный модуль. Вторую-четвертую после sub Встреча. Я бы так писал
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
01.10.2017, 12:42 | #9 | |
Пользователь
Регистрация: 20.08.2017
Сообщений: 13
|
Цитата:
Argument not optional при этом подсвечивает sub Встреча |
|
01.10.2017, 14:49 | #10 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Call встреча. Без ()
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос в VBA, что бы Outlook периодически самостоятельно новые поступающие письма сохранял в БД Access | Aleksey_25 | Microsoft Office Access | 5 | 24.09.2017 14:33 |
макрос для Outlook для переадресации писем | Olya1985 | Microsoft Office Excel | 1 | 13.09.2011 16:50 |
Макрос для Outlook | kotmotroskin | Microsoft Office Excel | 0 | 02.02.2011 13:16 |
VBA outlook обработка входящих сообщений | Drek | Помощь студентам | 2 | 18.07.2010 04:19 |
Макрос для сохранения писем из Outlook. | GoreProgrammist | Microsoft Office Excel | 1 | 16.11.2009 19:40 |