Run-time error -2147467259 with CDO (1.x) MoveTo method

MORE INFORMATION

The MoveTo method relocates the Message object to another folder specified in the call. All the properties that are set on the message are moved during this process. After the Message.MoveTo method is called, the message is no longer available in the original location. The message is only available in the new location.

Sample syntax

   Set objMovedMessage = <objMessage>.MoveTo(<folderID> [, <storeID> ] )

Placeholders:

• <objMessage>: This Message object.
• <folderID>: The unique identifier of the destination Folder object in which this message is to appear.
• <storeID>: The unique identifier of the InfoStore object in which the message is to appear, if different from this current InfoStore object.

Steps to reproduce the behavior

1. Set the sending limit on a mailbox to a low value. For example, set the value to 100 kilobytes (KB).
2. Run the following Visual Basic code sample. This code sample uses the MoveTo method to try to move a message to another folder in the mailbox.

         'The following Visual Basic Code sample relies on a reference to the
         'Collaboration Data Objects (1.1, 1.2, 1.21) Library. If you do not
         'have this library, see the following article in the
         'Microsoft Knowledge Base:
         '
         '   ARTICLE-ID: 171440
         '   TITLE     : Where to acquire the CDO Libraries (all versions)
         '
         Sub main()
             Dim objSess As MAPI.Session
             Dim objDelFolderID As String
             Dim objMsg As Message
             Dim objMovedMsg As Message
   
             Set objSess = CreateObject("mapi.session")
             objSess.Logon "Tiny Exchange Only Mailbox"
   
             'Get the ID of the DeletedItems Folder.
             objDelFolderID = _
                objSess.GetDefaultFolder(CdoDefaultFolderDeletedItems).ID
   
             Set objMsg = objSess.Inbox.Messages.GetFirst()
   
             'The following line causes an error if the store is already full.
             Set objMovedMsg = objMsg.MoveTo(objDelFolderID)
   
             objMovedMsg = Nothing
             objMsg = Nothing
             objDelFolderID = Null
   
             objSess.Logoff
             objSess = Nothing
         End Sub

You receive the error message that is mentioned in the "Symptoms" section. The error is returned on the line that executes the MoveTo method.