Unread Items

  • Thread starter Thread starter Clive Godden
  • Start date Start date
C

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
 
See if using .UnRead = True and .Save twice helps:
..UnRead = True
..Save
..UnRead = True
..Save
 
Back
Top