Исходный код

'Текст обработчика должен быть размещен в скрипте профиля или
'общесистемном скрипте.

'======================================================================
'Если пришли новые сообщения, создать соответствующие объекты событий.
'Новые события будут автоматически зарегистрированы в Журнале событий приложения.
'=====================================================================

Sub Messages_Received(MessagesCol, Cancel)
  MessCount = MessagesCol.Count
    
  If MessCount <> 0 Then
    'Создать объект "Событие" для каждого полученного сообщения и изменить его свойства
    For Each msg In MessagesCol
      
      ' Включаем собственный обработчик ошибок выполнения
      On Error Resume Next
      
      'Создать объект TDMSEvent
      Set NewEvent = ThisApplication.CreateEvent("Получено сообщение от " & msg.From)
      
      If Err.Number <> 0 Then
        ' Сбрасываем ошибку и ничего не делаем
        Err.Clear
        Exit Sub
      Else
        ' Включаем режим системного администратора для изменения свойств события
        ThisScript.SysAdminModeOn
        NewEvent.Type =  tdmEventCommon  ' событие общего типа...
        NewEvent.Time = msg.ReceivedTime ' время генерации события = времени получения сообщения
        If msg.Attachments.Count <> 0 Then NewEvent.Object = msg.Attachments(0)
      End If
    Next
  End If
End Sub
'======================================================================