Deleting Email Failed

S

Sokrat Saydahmat

In the following code I got a error "The operation Failed", the error number
is: "-313261809"

I am not sure what is that mean. It is XP and Office 2003.

Thanks,
sokrat.

//==================================
'm_Delete.Item(i) is an array of msgID that need to be removed
Dim EmailItem As Outlook.MailItem
Dim deletedfolder As MAPIFolder

For i = 1 To m_Delete.Count
Set EmailItem = m_OlNameSpace.GetItemFromID(m_Delete.Item(i))
Set deletedfolder =
m_OlNameSpace.GetDefaultFolder(olFolderDeletedItems)
EmailItem.Delete
Next
Exit Sub
 
Top