Outlook Read and then Move to Folder 1

[RonRepp]

Hi all:

I'm trying to move a bunch of mail items from the inbox to a specific folder. However, if the item is not read, I want to mark it as read before (or after) it is moved.

The move works great, but having problems w/the read.

Sub Move2Facebook()
Dim NSpace As Outlook.NameSpace
    Dim MailInbox As Outlook.Folder
    Dim DestFolder As Outlook.Folder
    Dim MailItems As Outlook.Items
    Dim MailItm As Object

    Set NSpace = Application.GetNamespace("MAPI")
    Set MailInbox = NSpace.GetDefaultFolder(olFolderInbox)
    Set MailItems = MailInbox.Items
    Set DestFolder = MailInbox.Folders("Facebook")
    
    Set MailItm = MailItems.Find("[from] = 'Facebook'")
    While TypeName(MailItm) <> "Nothing"
        [b][COLOR=blue]'Here, I want MailItm.Read if not read [/color][/b]
        MailItm.Move DestFolder
        Set MailItm = MailItems.FindNext
    Wend
End Sub

Thanks,


Ron Repp

If gray hair is a sign of wisdom, then I'm a genius.

My newest novel: Wooden Warriors

http://www.repproductions.net

 

[PHV]

I'd try this:

MailItm.UnRead = False

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RonRepp]

Thanks PHV! Here is the final, in case anyone else wants it:

Sub Move2Facebook()
    Dim NSpace As Outlook.NameSpace
    Dim MailInbox As Outlook.Folder
    Dim DestFolder As Outlook.Folder
    Dim MailItems As Outlook.Items
    Dim MailItm As Object

    Set NSpace = Application.GetNamespace("MAPI")
    Set MailInbox = NSpace.GetDefaultFolder(olFolderInbox)
    Set MailItems = MailInbox.Items
    Set DestFolder = MailInbox.Folders("Facebook")
    
    Set MailItm = MailItems.Find("[from] = 'Facebook'")
    While TypeName(MailItm) <> "Nothing"
        If MailItm.UnRead = True Then
            MailItm.UnRead = False
        End If
        
        MailItm.Move DestFolder
        Set MailItm = MailItems.FindNext
    Wend
End Sub

Ron Repp

If gray hair is a sign of wisdom, then I'm a genius.

My newest novel: Wooden Warriors

http://www.repproductions.net