Есть такой код:
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. Похоже, чтото связанно с безопасностью, т.к. меня спросили, и я вроде разрешил исполнятся данному макросу.