Вроде ерундовая задача, но не могу побороть.
Суть в том, что я из Access 2010 отправляю сообщения через Outlook. При этом нужно убедиться, что сообщение действительно сформировалось (были случаи, когда они по какой-то причине они не формировались). Поэтому я проверяю, что сообщение появилось в папке "Исходящие" (или в "Отправленные"). Сообщения отправляются в автомате, их десятки-сотни, поэтому ждать когда они появятся в "Отправленных" нельзя - долго. Беда в том, что иногда сообщение переносится из "Исходящих" в "Отправленные" в промежуток времени, между тем, когда я проверяю наличие сообщений в папке и когда я обращаюсь к сообщению. Т.е. между строками

  If pOutbox.Items.Count > 0 Then
    If (pOutbox.Items(pOutbox.Items.Count).Subject = Subj) Then

Что тут можно придумать, кроме On Error Resume Next ?
Заранее премного благодарен
Вот процедура целиком:

Private Function SendIfor(ByVal Subj As String, ByVal Body As String, ByVal Addr As String) As Integer
Dim pApp As Outlook.Application
Dim pMail As Outlook.MailItem
Dim pNS As Outlook.NameSpace
Dim pOutbox As Outlook.Folder
Dim pSent As Outlook.Folder
 
 ' Формируем письмо
  Set pApp = New Outlook.Application
  Set pMail = pApp.CreateItem(0)
  Set pNS = pApp.GetNamespace("MAPI")
  Set pOutbox = pNS.GetDefaultFolder(olFolderOutbox)
  Set pSent = pNS.GetDefaultFolder(olFolderSentMail)
  pMail.To = Addr
  pMail.Subject = Subj
  pMail.BodyFormat = 2 ' HTML
  pMail.HTMLBody = Body
 
  ' Отправляем письмо
  pMail.Send
  DoEvents
 
  ' проверяем, что письмо попало в Исходящие или в Отправленные
  SendIfor = 1
  If pOutbox.Items.Count > 0 Then
    If (pOutbox.Items(pOutbox.Items.Count).Subject = Subj) Then
      SendIfor = 0
    End If
  End If
  If pSent.Items.Count > 0 Then
    If (pSent.Items(pSent.Items.Count).Subject = Subj) Then
      SendIfor = 0
    End If
  End If
 
  Set pMail = Nothing
  Set pApp = Nothing
  Set pNS = Nothing
  Set pOutbox = Nothing
  Set pSent = Nothing
 
End Function
 

http://www.sql.ru/forum/1295219/kak-iz-access-korrektno-posmotret-papku-ishodyashhie-v-outlook