Detect the marked for deletion property

D

davecoleman

I am using an IMAP email with Outlook 2003 and I don't know how to
detect if an email is "marked for deletion" (has a line through it).
IMAP folders are weird in that when you click Delete, it doesn't
actually go anywhere, it just gets a line through it. You then have to
click "Purge Deleted Messages" to really get rid of it. I want to be
able to run a script that finds all the messages that have been found
to be set for deletion, so that I can move them to a different folder
first.

Thanks!

Example Code:
----------------------------------------------------------
Sub MoveOldItems()
Dim olns As Outlook.NameSpace
Dim oConItems As Outlook.Items
Dim iNumItems As Integer

Set objNS = Application.GetNamespace("MAPI") '"Saved Emails"
Set oInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items

Set objMainFolder = objNS.Folders("Personal Folders")
Set objTargetFolder = objMainFolder.Folders("Saved Emails")
Set Application.ActiveExplorer.CurrentFolder = objTargetFolder

iNumItems = oInboxItems.Count

For I = iNumItems To 1 Step -1
Set objCurItem = oInboxItems.Item(I)

If TypeName(objCurItem) = "MailItem" Then
' Move only mail messages

!!!!!----This is the part that I don't know how to do:
If objCurItem.MarkedForDelete Then
!!!!!------------------------------------------------------------------
objCurItem.Move objTargetFolder
End If
End If
Next

MsgBox "Finished moving items."

Set objInboxItems = Nothing
Set objTargetFolder = Nothing
Set objNS = Nothingessag

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top