Есть такой код:

Set items = oFldr.items.Restrict("[SentOn] > '7/31/2010'")

For Each oMessage In items
        If (LCase(Trim(oMessage.Subject)) = "time spent report") Then
            myFile.WriteLine ("")
            myFile.WriteLine ("")
            myFile.WriteLine ("---------------------------------")
            myFile.WriteLine (oMessage.SentOn & " " & oMessage.Subject)
            myFile.WriteLine ("BEGIN BODY---------------------------------")
            If (Not oMessage Is Nothing) Then
                'Debug.Print CStr(oMessage.BodyFormat)
                
                myFile.WriteLine (oMessage.Body)
            End If
            myFile.WriteLine ("END BODY---------------------------------")
            myFile.WriteLine ("---------------------------------")
        End If
        
Next oMessage

При доступе к oMessage.Body вылетает Runtime error 287. Похоже, чтото связанно с безопасностью, т.к. меня спросили, и я вроде разрешил исполнятся данному макросу.