I know this question hass been asked before but I was unable to make it work.
In order to make up for Outlook's inadequate handling of IMAP, I put
together a simple macro that would move messages to a folder "Trash" when
invoked. (The delete key deletes emails forever - thank you Microsoft!)

All I want to do is to enable the macro without having to manually enable it
each time I start outlook and without setting my security settings to enable
all macros.

I would appreciate any help.

Here is the code:

Sub MoveToTrash()
On Error Resume Next
Dim objFolder As MAPIFolder
Dim objNS As NameSpace, objItem As MailItem

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.Folders("KJB").Folders("Trash")

If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation,
"INVALID FOLDER"
End If

If Application.ActiveExplorer.Selection.Count = 0 Then
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.UnRead = False
objItem.Move objFolder
End If
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
End Sub

Either use the settings and enable macros, or sign the VBA project; for that
search for 'SelfCert.exe'.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Tue, 15 Sep 2009 23:15:01 -0700 schrieb Keith:

I know this question hass been asked before but I was unable to make it
work.
In order to make up for Outlook's inadequate handling of IMAP, I put
together a simple macro that would move messages to a folder "Trash" when
invoked. (The delete key deletes emails forever - thank you Microsoft!)

All I want to do is to enable the macro without having to manually enable
it
each time I start outlook and without setting my security settings to
enable
all macros.

I would appreciate any help.

Here is the code:

Sub MoveToTrash()
On Error Resume Next
Dim objFolder As MAPIFolder
Dim objNS As NameSpace, objItem As MailItem

Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.Folders("KJB").Folders("Trash")

If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation,
"INVALID FOLDER"
End If

If Application.ActiveExplorer.Selection.Count = 0 Then
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.UnRead = False
objItem.Move objFolder
End If
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
End Sub

Thanks a lot. I didnt find it by that name. Its under MS office and tools
as "Digital Certificate for VBA Projects.lnk". Then i did a Google search
and found this great writeup on how to do it, though its pretty
self-explanatory: http://www.howto-outlook.com/howto/selfcert.htm

Quick follow-up. Is there a way to make the macro run when I hit the delete
key? Right now I have an icon for it on my toolbar but sometimes I hit
delete and then a message is gone forever.

Also, I lifted the code and modified it from a macro someone else wrote so
its probably lousy code on my part. Its quite slow - any ideas on how to
make it faster? I am not a VBA expert - as you can no doubt tell!

Thanks again Michael.

Outlook can't tell you what has been pressed on the keyboard. For that you'd
have to use a lot of Win32 API code. You might rather want to stick with the
toolbar button.

But as far as I know the DEL key doesn't delete messages, it just marks them
as deleted. Just click Edit/Recover (or similar) , and the messages are
back.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Wed, 16 Sep 2009 14:50:02 -0700 schrieb Keith:

Thanks a lot. I didnt find it by that name. Its under MS office and
tools
as "Digital Certificate for VBA Projects.lnk". Then i did a Google search
and found this great writeup on how to do it, though its pretty
self-explanatory: http://www.howto-outlook.com/howto/selfcert.htm

Quick follow-up. Is there a way to make the macro run when I hit the
delete
key? Right now I have an icon for it on my toolbar but sometimes I hit
delete and then a message is gone forever.

Also, I lifted the code and modified it from a macro someone else wrote so
its probably lousy code on my part. Its quite slow - any ideas on how to
make it faster? I am not a VBA expert - as you can no doubt tell!

Thanks again Michael.

Thanks Michael,

No, the emails are gone. On other platforms like my iPhone then you can
tell it to move deleted items to a selected folder like "Trash" but Outllook
just throws them in the bit-bucket. Its really poor design but I think
microsoft really only care about exchenge support and they do the bare
minimum to support POP and IMAP. There are other posts about how to write
vba to do this.

Incidentally, can you see if its possible to make this code run faster?
don't know enoutgh about VBA to speed it up myself.

Keith

#1: I'd say it's no IMAP account then; or you have a filter in place that
hides those messages that are flagged as deleted. A lot of people here ask
for how to delete messages from an IMAP account immediately just by hitting
the DEL key, but Outlook doesn't support that.

#2: no

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Thu, 17 Sep 2009 19:54:01 -0700 schrieb Keith:

Thanks Michael,

No, the emails are gone. On other platforms like my iPhone then you can
tell it to move deleted items to a selected folder like "Trash" but
Outllook
just throws them in the bit-bucket. Its really poor design but I think
microsoft really only care about exchenge support and they do the bare
minimum to support POP and IMAP. There are other posts about how to
write
vba to do this.

Incidentally, can you see if its possible to make this code run faster?
don't know enoutgh about VBA to speed it up myself.

Keith

You've declared objItem as a MailItem type, but then you check if the
class is olMail, isn't that redundant? Also, regardless of whether the
Trash folder holds non-MailItems, you can skip the DefaultItemType
check. If it does matter, you're already limiting the For loop to mail
items anyway, and if it doesn't matter, the check is pointless.

You might also consider using the Restrict Method on the Items
Collection and returning a filtered subset of items. It can make your
code faster if the folder contains a large number of non-MailItems.

http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

--JP

On Sep 17, 10:54*pm, Keith wrote:
Thanks Michael,

No, the emails are gone. *On other platforms like my iPhone then you can
tell it to move deleted items to a selected folder like "Trash" but Outllook
just throws them in the bit-bucket. *Its really poor design but I think
microsoft really only care about exchenge support and they do the bare
minimum to support POP and IMAP. * There are other posts about how to write
vba to do this.

Incidentally, can you see if its possible to make this code run faster? *
don't know enoutgh about VBA to speed it up myself.

Keith