![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 28.04.2012
Сообщений: 2
|
![]()
Здравствуйте уважаемые !
Прошу помочь в данной проблеме. Программа в MS Access. Нужно данной функцией пробежаться по всем входящим письмам в Outlook'e, и сделать с некоторыми из них какие то операции. В данном случае удалить письма при условии что тема письма "Перечисление ДС" Function UdaleniePisem() Dim i As Integer, j As String Dim myItems As Outlook.Items Dim mailmsg As Outlook.MailItem Set myItems = Outlook.Application.Session.GetDefa ultFolder(olFolderInbox).Items If myItems.Count > 0 Then ' проверка, чтоб во входящих вообще были письма i = 0 'цикл перебора всех писем For Each mailmsg In myItems If mailmsg.Subject = "Перечисление ДС" Then 'если тема совпадает, удаляем письмо mailmsg.Delete myItems.GetNext i = i + 1 End If Else: Forms![ОбработанныеСписки]![StatusBr].Caption = "ВНИМАНИЕ! Нет писем в Outlook'e" End If If i > 0 Then Forms![ОбработанныеСписки]![StatusBr].Caption = "Удалено " & i & " писем со списками на одного человека" End Function Так вот в чем собственно проблема. Если во входящих присутствует письмо от системного администратора типа "автоответ" с текстом смысла "письмо небыло доставлено так как в почтовом ящике получателя нет мест", То вышенаписанная процедура сразу выдает ошибку №13 Type mismatch. как избавиться от данной ошибки или обойти ее ? Последний раз редактировалось mad_max.86@gmail.r; 28.04.2012 в 08:57. |
![]() |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 28.04.2012
Сообщений: 2
|
![]()
все, проблема решена. Подсказали на соседнем форуме.
Кому интересно: вставь в 9-ю строку Код Visual Basic on error resume next |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 26.09.2008
Сообщений: 2
|
![]()
А вот и нет. Проблема не решается вышеуказанным способом. Просто если добавить эту строчку программа переходит в конец цикла и выходит из него. То есть если у меня 100 писем, и 50-ое от администратора с текстом что ящик получателя заполнен, то будет обработано циклом лишь первые 50 писем.
|
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 26.09.2008
Сообщений: 2
|
![]()
проблема решается ещё проще. Меняем только 4 строку.
4-я строка Код Visual Basic Dim mailmsg As object ' Outlook.MailItem |
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 11.05.2012
Сообщений: 2
|
![]()
Всем привет!Ребята нужна маленькая помощь-консультация.Вот собственно вопрос: Начал изучать Visual Basic что бы сделать базу данных в Microsoft Access 2007,когда работаю в программе Visual Basic 6 то при добавлении на форму например объекта ComboBox и хочу программно описать его свойства и т.д. то там есть такие свойства как DataSource,DataField, а когда уже в самом Access 2007 я кидаю на форму ComboBox и также хочу программно описать его свойства,НО там уже нету этих свойств DataSource,DataField, скажите пожалуйста ПОЧЕМУ их там нет???
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
![]()
Выложите пример, я думаю что проблема в обращении и Вам необходимо как-то так:
[forms]![name formm]![textbox1]..... |
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 11.05.2012
Сообщений: 2
|
![]()
С этим уже разобрался, проблема вот в чем.Я использую модель DAO и в меню Tools-References нужно было добавить Microsoft DAO 3.6 Object Library вот и все решение.Но сразу возникла проблема вот строка:
Set MyQwery = MyBase.GreateQueryDef("MyFavoritQue ry", [select Наименование from ТабельПоложенности]).Правильно ли я делаю, запрос на вывод поля Наименование из таблицы ТабельПоложенности.При запуске горит желтым эта строка.Что не так я сделал, помогите плз) |
![]() |
![]() |
![]() |
#8 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
![]()
Здравствуйте Сергей Пузарин.
"..Правильно ли я делаю.." - Вы делаете дважды неправильно: текст запроса должен заключаться в кавычки Код:
Ваши вопросы не имеют ничего общего с перебор писем в OutLook'e. Евгений. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа перебора вариантов (изменить перебор цифровой на перебор буквенный) | BArt2000 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 02.03.2015 12:56 |
отправка писем | zed221 | PHP | 7 | 05.04.2012 11:25 |
Отправка ел. писем | legendary | Win Api | 5 | 01.09.2010 15:44 |
Отпрака ел. писем | legendary | Общие вопросы Delphi | 3 | 30.08.2010 15:55 |
Кодировка писем | NoName_emaNoN | Работа с сетью в Delphi | 46 | 10.02.2009 12:36 |