¿Cómo corregir el error 5 en este script?

For Each objItem In ActiveExplorer.CurrentFolder.Items
With objFile
.Write objItem.ReceivedTime & "|" & objItem.SenderEmailAddress & "|" & objItem.Subject & vbCrLf
End With
Next