Unread Items

[Clive Godden]

Can anyone help !!
I have the following code that creates items in folders.
In Outlook 2003 the items are saved and appear as unread,
in outlook 2000 however they appear to be saved as Read, Could someone point
out where I am going wrong

If Not projectfolder(projectname).Folders Is Nothing Then
Set pr1 = projectfolder(projectname).items.Add("IPM.Post")
With pr1
.Subject = "Channel Headlines"
.Body = projectname
.UnRead = True
.Save

End With
End If
End If

ta

clive

 

[Ken Slovak - [MVP - Outlook]]

See if using .UnRead = True and .Save twice helps:
..UnRead = True
..Save
..UnRead = True
..Save