
Can't sort Outlook Personal Folder using Items.Sort
Objective is to flag possibly duplicate messages in an Outlook Personal
folder (for which MS's "Threadcompressor" code example is not suitable).
Attempts to achieve this by sorting items into a suitable order (e.g.
subject, date), then scanning for duplicates are frustrated because the
Item.Sort doesn't seem to work.
The following Outlook VBA sample code attempts to sort mail items
in "Personal Folder (Test)", subfolder "Test" - but doesn't seem to
work !
Sub Main()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolders = myNameSpace.Folders
Debug.Print Chr(13); "Outlook MAPI Folder Item Sort test - "; Date; Chr
(13)
' Look for "Test" folder, "Test" sub-folder
For Each objFolder In myNameSpace.Folders
If objFolder.Name = "Personal Folders (Test)" Then
For Each objSubFolder In objFolder.Folders
If objSubFolder.Name = "Test" Then
If objSubFolder.Items.Count >= 4 Then
objSubFolder.Items.Sort "[Subject]", True
Debug.Print " objFolder.Items.Sort ""[Subject]"", True"; Chr
(13); " 1", objSubFolder.Items(1).Subject; Chr(13); " 2",
objSubFolder.Items(2).Subject; Chr(13); " 3", objSubFolder.Items
(3).Subject, Chr(13); " 4", objSubFolder.Items(4).Subject; Chr(13)
objSubFolder.Items.Sort "[Subject]", False
Debug.Print " objFolder.Items.Sort ""[Subject]"", False"; Chr
(13); " 1", objSubFolder.Items(1).Subject; Chr(13); " 2",
objSubFolder.Items(2).Subject; Chr(13); " 3", objSubFolder.Items
(3).Subject, Chr(13); " 4", objSubFolder.Items(4).Subject; Chr(13)
End If
End if
Next objSubFolder
End If
Next objFolder
End Sub
Sent via Deja.com
http://www.*-*-*.com/