Help with a script

**[email protected]** · September 14th 06, 06:26 PM posted to microsoft.public.outlook.program_vba

Sorry Correction to original post, it's Outlook 2000 SR-1 not 2003
wrote:

PS: The same script when called from This Outlook Session Startup works
like a charm!
wrote:

I have been using the following script posted earlier on this forum and
it works fine, I tried to be clever by executing it on This Outlook
Session Quit (why doesn't it have a before close event?) and it gives
an internal error. I would be grateful if someone could tell me what I
should be doing. I am using Outlook 2003

Sub PermanentlyDeleteSelectedMessges()
On Error GoTo PermanentlyDeleteSelectedMessges_Error

Dim objSession As New MAPI.Session
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMAPIMessage As MAPI.Message 'Requires reference to the
Microsoft CDO 1.21 Library

'To permanently delete currently selected item(s) in active folder
objSession.Logon , , , False
Set objSelection = ActiveExplorer.Selection

If objSelection Is Nothing Or objSelection.Count = 0 Then Exit Sub
For Each objItem In objSelection
Set objMAPIMessage = objSession.GetMessage(objItem.EntryID)
'Permanently delete
objMAPIMessage.Delete False
Next

Leave:
If Not objSession Is Nothing Then objSession.Logoff
Set objSession = Nothing
Set objSelection = Nothing
Set objItem = Nothing
Set objMAPIMessage = Nothing

On Error GoTo 0
Exit Sub

PermanentlyDeleteSelectedMessges_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure" & "PermanentlyDeleteSelectedMessges of Module basExamples"
End Sub

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Script Error	BobW	Outlook Express	12	August 19th 06 03:11 AM
Rule 'run a script' not running my script	[email protected]	Outlook and VBA	3	May 30th 06 01:09 PM
Script always faulting	Norm	Outlook and VBA	1	May 6th 06 04:07 AM
"Run a script" rule triggers but script does not execute	Trey Shaffer	Outlook and VBA	7	April 8th 06 12:34 AM
Script	Joel Allen	Outlook and VBA	0	January 27th 06 07:53 PM