перебор писем в OutLook'e

[mad_max.86@gmail.r]

Здравствуйте уважаемые !
Прошу помочь в данной проблеме.
Программа в 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]

все, проблема решена. Подсказали на соседнем форуме.
Кому интересно:

вставь в 9-ю строку Код Visual Basic
on error resume next

[mad_max.86]

А вот и нет. Проблема не решается вышеуказанным способом. Просто если добавить эту строчку программа переходит в конец цикла и выходит из него. То есть если у меня 100 писем, и 50-ое от администратора с текстом что ящик получателя заполнен, то будет обработано циклом лишь первые 50 писем.

[mad_max.86]

проблема решается ещё проще. Меняем только 4 строку.

4-я строка Код Visual Basic
Dim mailmsg As object ' Outlook.MailItem

[Сергей Пузарин]

Всем привет!Ребята нужна маленькая помощь-консультация.Вот собственно вопрос: Начал изучать Visual Basic что бы сделать базу данных в Microsoft Access 2007,когда работаю в программе Visual Basic 6 то при добавлении на форму например объекта ComboBox и хочу программно описать его свойства и т.д. то там есть такие свойства как DataSource,DataField, а когда уже в самом Access 2007 я кидаю на форму ComboBox и также хочу программно описать его свойства,НО там уже нету этих свойств DataSource,DataField, скажите пожалуйста ПОЧЕМУ их там нет???

[gluk_fm]

Выложите пример, я думаю что проблема в обращении и Вам необходимо как-то так:
[forms]![name formm]![textbox1].....

[Сергей Пузарин]

С этим уже разобрался, проблема вот в чем.Я использую модель DAO и в меню Tools-References нужно было добавить Microsoft DAO 3.6 Object Library вот и все решение.Но сразу возникла проблема вот строка:
Set MyQwery = MyBase.GreateQueryDef("MyFavoritQue ry", [select Наименование from ТабельПоложенности]).Правильно ли я делаю, запрос на вывод поля Наименование из таблицы ТабельПоложенности.При запуске горит желтым эта строка.Что не так я сделал, помогите плз)

[Teslenko_EA]

Здравствуйте Сергей Пузарин.
"..Правильно ли я делаю.." - Вы делаете дважды неправильно:
текст запроса должен заключаться в кавычки

...GreateQueryDef("MyFavoritQue ry", "[select Наименование from ТабельПоложенности]")

для того что-бы задать собственный вопрос необходимо создавать собственную тему.
Ваши вопросы не имеют ничего общего с перебор писем в OutLook'e.
Евгений.