Within Access 2010, I have a table that is linked to Outlook 2010 emails. After processing this email within Access, the following code moves the email from 1 folder to another folder in Outlook.
'Move emails that were just processed into different folder
Dim appOutlook As Outlook.Application
Dim nms As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder
Dim fld2 As Outlook.MAPIFolder
Set appOutlook = GetObject(, "Outlook.Application")
Set nms = appOutlook.GetNamespace("MAPI")
Set fld = nms.Folders.Item("Dispatch - SafeCarAutoTransport.com").Folders.Item("Inbox").F olders.Item("New Web Quote")
Set fld2 = nms.Folders.Item("Dispatch - SafeCarAutoTransport.com").Folders.Item("Inbox").F olders.Item("Processed Quote")
'Determine if records exist within fld, and then move them into fld2
While fld.Items.Count > 0
fld.Items(1).Move fld2
Wend
My question is this, these emails are marked as unread. How do I mark the emails as read once they are moved to the new folder?
Thank you in advance!!