What do you think about
VB Code:
  1. On Error Resume Next

  2.    Dim obj As Object

  3.    Set obj = CreateObject("Outlook.Application")

  4.    If Err.Number <> 0 Then

  5.       Err.Clear

  6.       On Error Resume Next

  7.       NO_MAIL = True

  8.    End If

  9.    Set obj = Nothing

  10.    Set obj = CreateObject("FaxServer.FaxServer")

  11.    If Err.Number <> 0 Then

  12.       Err.Clear

  13.       NO_FAX = True

  14.    End If

  15.    Set obj = Nothing