[AccessD] Delete Sent Email

Well - I did a web search and found it on
http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb07/hey0201.
mspx

	Const olFolderSentMail  = 5

	Set objOutlook = CreateObject("Outlook.Application")
	Set objNamespace = objOutlook.GetNamespace("MAPI")

	Set objFolder = objNamespace.GetDefaultFolder(olFolderSentMail)

	Set colItems = objFolder.Items

	For i = colItems.Count to 1 Step - 1
    		colItems(i).Delete
	Next

And that will do it!
Dan


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Saturday, October 18, 2008 8:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Delete Sent Email

Hi Max,

Yes - programmatically from Access.

Something like:

Set outApp = CreateObject("Outlook.Application")
outApp.MailFolders("Sent Items").DeleteContents  '-- Obviously a weird guess

Thanks!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Saturday, October 18, 2008 3:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Delete Sent Email

Just open them in Outlook, Ctrl-A will select all of them- hit the delete
key.
Or do you mean programmatically via Access?
Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: 18 October 2008 03:16
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Delete Sent Email

I need to delete all the email in Outlook's Sent items folder.

How can I do that?

Thanks!
Dan


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com