0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
|
1 | |
Пересылка входящих писем Outlook посредством VBA03.03.2015, 07:50. Показов 11464. Ответов 16
Метки нет Все метки)
(
Добрый день!
Подскажите,пожалуйста: 1.Необходимо чтобы всех входящие письма Outlook отправлялись на эл.почты сотрудников.Список эл.почт напечатан в экселе 2.Входящие письма должны перенаправлятся сотрудникам в порядке очереди.К примеру:сегодня работаю 3 сотрудника:Маша,Петя,Гриша.Первое письмо отправляется Маше,второе Пете,третье Грише,четвертое Маше...и так по кругу помогите...плиз...уже все обыскала ![]()
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
|
|
03.03.2015, 07:50 | |
Ответы с готовыми решениями:
16
Пересылка писем Outlook от имени другого ящика
Сохранение и перемещение входящих писем из Outlook
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
||||||
03.03.2015, 11:52 | 2 | |||||
![]() Решение
2
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
||||||
03.03.2015, 13:42 [ТС] | 3 | |||||
как я понела,строчка 30 objMail.Recipients.Add "<сюда вписать адресата>"
необходимо вписывать вручную адреса эл.почт,а как вместо этой строчки вписать ссылку на файл экселя,откуда он будит брать адреса эл.почт,и отправлять Наверно так:
0
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
|
03.03.2015, 17:12 | 4 |
![]() Решение
есть два обработчика событий: Application_NewMail - получение нового письма и Application_Startup - запуск аутлука
книга вычитывается только при запуске аутлука (зачем дергать Excel каждый раз), адреса сотрудников сохраняются в публичном массиве, из которого потом подставляются в objMail.Recipients.Add "<сюда вписать адресата>"
1
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
|
03.03.2015, 20:53 [ТС] | 5 |
Set objBook = objApp.WorkBooks.Open(BookName) 'здесь указать имя книги
'здесь вставить код, вычитывающий адресатов из книги не совсем понела данную строчку(( 'здесь указать имя книги 'здесь вставить код, вычитывающий адресатов из книги к примеру вставить путь ?:C:\Users\HP\Desktop\Книга1.xlsx
0
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
||||||
04.03.2015, 11:21 | 6 | |||||
указать имя книги примерно так:
Set objBook = objApp.WorkBooks.Open("C:\Users\HP\Desktop\Книга1. xlsx") код, вычитывающий адресатов из книги, будет выглядеть ПРИМЕРНО так:
1
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
||||||
04.03.2015, 11:50 [ТС] | 7 | |||||
![]()
![]()
0
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
||||||
04.03.2015, 11:59 | 8 | |||||
![]() Решение
что он делает: при загрузке аутлука открывает книгу C:\Users\HP\Desktop\Книга1.xlsx с Лист1 из 1-ого столбца (если не первый, заменить единицу на нужное значение) вычитывает и сохраняет ВСЕ адреса; закрывает книгу при получении в аутлуке нового письма пересылает его адресату сначала первому, потом второму и т.д. по кругу Вот что стоило, сформулировать точно задачу и выложить пример книги?!!
1
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
|
04.03.2015, 15:32 [ТС] | 9 |
Cпасибо!
![]() ![]() ![]()
0
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
|
04.03.2015, 16:21 [ТС] | 10 |
еще один глупый вопрос,пробовала протестировать почту,выходит ошибка:Нарушены границы массива и выделяю строчку Set objMail = objMails(objMails.Count)(скрины прилагю).Пробола изменить на Set objMail = objMails(objMails.Count-1)
![]()
0
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
|
04.03.2015, 17:25 | 11 |
-1 добавлять не надо - в бейсике массивы начинаются с единицы
Set objMails = Application.Session.GetDefaultFolder(olFolderInbox ).Items - в этой строке объект objMails получает все элементы (письма) из папки входящие, количество этих писем в свойстве objMails.Count Set objMail = objMails(objMails.Count) - в этой строке объект objMail получает objMails.Count-й (то есть, последний) элемент множества objMails (то есть всех входящих писем) формально все правильно, тут помочь уже нечем в чем проблема можно узнать только под отладчиком, скалывайте в окно Watch объекты objMail и objMails и ищите в чем дело
1
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
|
04.03.2015, 18:35 [ТС] | 12 |
Теперь при выполнении RUN-Run Macro (запуске программы) выходит создание наименование макроса (скрины)
![]()
0
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
|
04.03.2015, 23:24 [ТС] | 13 |
в окошке локальных данных обнаружила что коллекция пуста
![]()
0
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
|
05.03.2015, 15:30 | 14 |
ничего создавать не надо и запускать по Run - тоже не надо - функции Application_Startup и Application_NewMail не являются мкросами в обычном понимании этого слова, они - функции-обработчики событий и запускаются сами при возникновении соотвествующего события, Application_Startup автоматически выполняется при запуске атлука, а Application_NewMail - по приходу нового письма
Добавлено через 5 минут это коллекция соответствует папке Входящие и Count = 0 означает, что во входящих писем нет вообще такое может быть?
0
|
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 62
|
||||||
05.03.2015, 15:57 [ТС] | 15 | |||||
Пробола снова отправить новое сообщение,меня сразу перекинули на VBA c той же ошибкой,хотя Count теперь =10
1.Я пробола удалить экселевский файл с рабочего стола (где ему путь прописан),ошибку "не найден Exell "он не выдал,почему ![]() 2.Мне кажется что список адресов не взят в массив. Что бы его взять в массив надо изменить часть кода:
0
|
0 / 0 / 0
Регистрация: 11.11.2019
Сообщений: 1
|
|
12.11.2019, 10:48 | 16 |
petr-sev, добрый день. попробовал применить данный код, не работает. Я ни разу не программист, можете подсказать?
0
|
496 / 130 / 19
Регистрация: 30.03.2010
Сообщений: 224
|
|
12.11.2019, 22:18 | 17 |
добрый
если после фразы "доктор, у меня болит" вам поставят диагноз и выпишут лечение, дайте мне адресок этого чудотворца ))) к сожалению, у меня с чудесами плохо и нужны хоть какие-то симптомы что делаете - что получается - что вообще хотелось получить плюс этой теме уже почти пять лет и вряд ли кто из участников обсуждения помнит о чем тут вообще шла речь
0
|
12.11.2019, 22:18 | |
Помогаю со студенческими работами здесь
17
Макрос для Outlook: автоматическая проверка всех входящих писем Макрос для Outlook: автоматическая проверка входящих писем и сохранение аттачментов Отправка писем из MS Outlook макросом VBA Код на VBA для Outlook (поиск непрочитанных писем) Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |