Need to create a script for outlook 2007 where I can search all folders for
e-mail to a group or mail alias.

Any help greatly appreciated.

--
soler

I wrote the VBA code below as an answer to another post. You could easy
adapt it for your own purposes:-

Public Sub ScanAllFolders()
Dim objFolder As MAPIFolder
Dim lngItems As Long
Dim lngCounter As Long
Set objFolder =
Outlook.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox).Parent
Call ScanFolder(objFolder)
Set objFolder = Nothing
End Sub
Private Sub ScanFolder(objMAPIFolder As MAPIFolder)
Dim lngItems As Long
Dim lngCounter As Long
Dim objMailItem As MailItem
Dim objFolder As MAPIFolder
For Each objFolder In objMAPIFolder.Folders
Call ScanFolder(objFolder)
Next
For lngCounter = 1 To objMAPIFolder.Items.Count
If TypeName(objMAPIFolder.Items(lngCounter)) = "MailItem" Then
Set objMailItem = objMAPIFolder.Items(lngCounter)
If ")0 Then
Debug.Print objMailItem.SentOn, objMailItem.Subject
End If
Set objMailItem = Nothing
End If
Next
End Sub

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"soler" wrote:

Need to create a script for outlook 2007 where I can search all folders for
e-mail to a group or mail alias.

Any help greatly appreciated.

--
soler