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

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Bob Smith" wrote in message ...
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

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?



"Sue Mosher [MVP-Outlook]" wrote:

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
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Bob Smith" wrote in message ...
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