• Откуда: :зИ
  • На форуме с 21 мая 2007г.
  • Сообщений: 73
  • Спасибо: 0

Тема: Помогите разобраться с событием Messages_Received

В общесистемный скрипт поместил следующий код:

Sub Messages_Received(MessagesCol, Cancel)
     count = MessagesCol.Count
     msgbox "Received: " & count 
 End Sub

 

В ответ всегда получаю "Received 0", даже если реально пришли новые письма. Пользователь - не сисадмин. Что я делаю не так?

  • На форуме с 5 апреля 2007г.
  • Сообщений: 400
  • Спасибо: 3

Re: Помогите разобраться с событием Messages_Received

Странно, у меня всё работает. TDMS 3.0.114

Sub Messages_Received(MessagesCol, Cancel)
    If MessagesCol.Count > 0 Then
        MsgBox "Есть непрочитанные письма!",vbExclamation, ThisApplication.DataBaseName
    End If
End Sub

  • Откуда: :зИ
  • На форуме с 21 мая 2007г.
  • Сообщений: 73
  • Спасибо: 0

Re: Помогите разобраться с событием Messages_Received

Спасибо, я пробовал в 110 релизе. Сейчас  в 114 работает.