[Jean55]

Нашел такую процедуру, на MSDN (к сожалению для того, чтобы задать вопрос, вынужден цитировать ее полностью - здесь важно почти все):
----------------------------------------------------------------------------------------------
Public Sub Sync()
Dim nsp As Outlook.NameSpace
Dim sycs As Outlook.SyncObjects
Dim syc As Outlook.SyncObject
Dim i As Integer
Dim strPrompt As Integer
Set nsp = Application.GetNamespace("MAPI")
Set sycs = nsp.SyncObjects
For i = 1 To sycs.Count
Set syc = sycs.Item(i)
strPrompt = MsgBox( _
"Do you wish to synchronize " & syc.Name &"?", vbYesNo)
If strPrompt = vbYes Then
syc.Start
End If
Next
End Sub
Все вполне ясно и понятно, но хотелось бы кой-чё уточнить.
------------------------------------------------------------------------------------------------------------------
итак : если sycs.Count -> это

количество групп отправки и получения »

то идет ли синхренизация последовательно, т.е. вначале, предположим идет вопрос по папке
"Входящие" и сверяется усе по этой папке, затем - вопрос по следующей по списку папке и ее
сихронизация и т.д., до достижения конечного значения sycs.Count?

При этом, если этот модуль будет вставлен в мою задачу (точнее модуль, подогнанный под Фокс, но
логика не меняется абсолютно), то программа НЕ пойдет выполняться дальше, пока не будет
достигнут ...End Sub?

Для меня это принципиально важно, т.к. я должен тормознуть задачу до окончания принудительного обновления Outlook из под Фокса (программа используется ориентировочно раз в месяц, почты может много накопиться и качать она будет долго), а программа, если она до окончания ...End Sub не остановится, за это время может проскочить далеко вперед, и нужное письмо просто не не успеет загрузиться.

Попытки найти подходящие обработчики событий пока ничего не дают.
Промблема вот в чем (возможно это Вы знаете но все-таки думаю стоит все-таки ето расписать):
Outlook из под Фокса, как объект определяется функцией CREATEOBJECT(......)
loOutlook = CREATEOBJECT("Outlook.application") здесь -> loOutlook - это созданная мной переменная Фокса типа объект в данной задаче. И фоксовская программа распознает все что относится к программированию под Outlook только, если строка постоена на элементе loOutlook или элементах на его основе, например:
loMapi = loOutLook.GetNameSpace("MAPI") - поймет прекрасно, как объект Outlook
loInbox = loMapi.GetDefaultFolder(6) |иначе loInbox = loOutLook.GetNameSpace("MAPI").GetDefaultFolder(6)|
тоже поймет прекрасно

а вот модуль отслеживания окончания сихронизации:
"[http://msdn.microsoft.com/en-us/library/bb147657(v=office.12).aspx"
Public WithEvents oItems As Outlook.Items
********************************
********************************
Private Sub mySync_SyncEnd()
MsgBox "Synchronization is complete."
End Sub
- не поймет т.к. нет возможности свести конструкцию к объектам на основе loOutlook цельной строкой
т.е. не удается создать конструкцию loOutlook......WithEvents или loOutlook....SyncEnd
а попытка Фокса интертрепировать конструкцию VBA, как фоксовские операторы, приведет к ошибке, либо
работе с непредсказуемым результатом. И свести его к конструкции с loOutLook, увы,увы. Копал долго, но без
результата.

А теперь - чем хороша Sub Sync(), что прописана в начале :
если я прав в в тех вопросах, что я задал в начале то программа вполне интерпретируется под Фокс и не пойдет дальше просто по автомату или с элементарной доработкой.
Прошу извинить за многословность, но она вынужденная чтобы было ясно о чем речь.
Думаю ответ будет значительно короче.
Е. Шапиро

[Jean55]

М-да, я тут ишшо покопал и похоже все-таки не прав. Ситуация по Макаревичу: "... И каждый пошел своею дорогой...". Т.е. вопросы по группам и их синхренизация - отдельно, а выполнение кода программы - отдельно.
А есть ли какой - нибудь другой способ обработки событий в OutLook, без ... WithEvents ?
Е. Шапиро

[Iska]

Jean55, я, помнится, Вам уже предлагал отказаться от Outlook и задействовать работу с почтой в самом приложении.

[Jean55]

Это я помню, спасибо и обязательно покопаю в эту сторону. А пока просто надо довести хоть что-то до рабочего состояния. Плюсы и минусы OutLook мы в общем обсуждали - где то 50 на 50 (а вообще-то OutLook - гадость редкосная). И кстати, есть такая штука, как "СОМ - Автоматизация", которая позволяет делать что угодно из под Фокса в основных приложениях MS Office и из под VBA. Но попытка разобраться в ней по хелпам и книгам - еще на месяц копания (на каждую строку текста примера - букет вопросов без ответов, а строк там...). Пару дней уже ухлопал. Бэсс результату. Да и время жмет.
Поэтому вопрос об использовании двух отдельных почтовиков - на прием и отправление остается актуальным.

И еще: "....в самом приложении"- это где? Под Фоксом? Так работа с Интернетом вааще и с почтой в частности - самое слабое его место (при всем моем глубочайшем уважении к его разработчикам).

А все-таки есть ли какой - нибудь другой способ обработки событий в OutLook, без ... WithEvents ?
Е. Шапиро

[Jay1961]

Вот еще один, который проверяет сообщения электронной почты навалом www.freeemailverifier.com

[PeterSan]

Một dịch vụ tương tự: http://www.GreenAppleMail.com - ở đây bạn có thể tải về một số ít các địa chỉ (tập tin duy nhất) và tải lên các kết quả sang Excel. Sự khác biệt là mức độ của họ chính xác là cách tốt hơn để kết hợp công nghệ tiên tiến với các kỹ năng con người / chuyên môn. Tôi rất khuyên Green Apple Mail để tất cả mọi người!

---

Дополнение от модератора - гугл-перевод с вьетнамского

Аналогичный сервис: http://www.GreenAppleMail.com - здесь вы можете скачать несколько адресов (одним файлом) и загружать результаты Excel. Разница в том, их уровень точности лучшего способа сочетаются инновационные технологии и человеческих навыков / опыта. Я настоятельно рекомендую зеленый почты компании Apple для всех!

[JayPepito]

Я пытался GreenAppleMail Чтобы проверить мои адреса электронной почты. Это было фантастическое впечатление! ... Я буквально не делать ничего, кроме загрузки моем списке, и получил результаты быстро. Кроме того, мне понравилось, что они держали меня в курсе каждого шага процесса. Я полностью удовлетворен!