Item.Copy - Can't Delete?

[Bob Smith]

I need to make a copy of the item someone is sending in Outlook. This appears
to work fine and saves a duplicate in the outbox of the sending item. I then
try to delete the item but it still stays in the outbox, what am I doing
wrong? If I attempt to do a second delete outlook says the item does not
exist.

Would appreciate anyones help on this. I need to ensure the item is not left
in the outbox. Using Outlook 2003

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objNS As NameSpace
Dim objCopy As MailItem

Set objcopy = Item.Copy
' objcopy.Save <--- Makes no difference for the delete
objcopy.Delete 'Doesn't appeat to remove from the outbox
'objcopy.Delete 'Returns that the message no longer existt
End Sub

 

[Sue Mosher [MVP-Outlook]]

Why are you copying in ItemSend rather than waiting until the item gets to the Sent Items folder, where it will have all the sender and sent date/time details? And what's the point of making a copy if you're just going to delete it?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[Bob Smith]

Very good questions.

I am copying the item so I can then check the size of it. I don't want to
save the origional item because it would then consume space in their inbox.
If I can make a copy, check the size and then delete the copy before sending
the origional it will not affect the mailbox limits iin their mailbox.

e.g. If I save the oritional item, say it's 150mb and they have a 100mb mail
limit on send, the user will not be able to send the message. If I make a
copy, then check the size and delete before sending the origional, this will
not affect the mailbox size.

Does that make sence?