Hey
Im not really very good with vbs, but i found a post on this forum for creating an outlook search folder. i think its for vb... is there a way to make this work with vbs?

Code:
Option Explicit
'Add reference to MS Outlook 11.0 Object Library
Private Sub Command1_Click()
     Dim oApp As Outlook.Application
     Dim oSearch As Outlook.Search    
     Dim oInbox As Outlook.MAPIFolder    
     Dim oSearchFolder As Outlook.MAPIFolder    
     Dim sFolderPath As String    
     Dim sScope As String    
     Dim sFilter As String        
     
     On Error Resume Next    
     Set oApp = New Outlook.Application    
     Set oInbox = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)    
     sFolderPath = oInbox.FolderPath    
     'Build a scope string    
     sScope = "SCOPE ('shallow traversal of " & Chr$(34) & sFolderPath & Chr$(34) & "')"    
     'Build a filter string (WHERE clause without the WHERE)    
     sFilter = Chr$(34) & ("urn:schemas:mailheader:subject") & Chr$(34) & " LIKE 'RE:%'"    
     'Create the Search object by calling AdvancedFind    
     Set oSearch = oApp.AdvancedSearch(sScope, sFilter, False, "RE Search")    
     'Save the Search as a Search Folder    
     Set oSearchFolder = oSearch.Save("RE Search")    
     MsgBox oSearchFolder.Items.Count & " Items found!"    
     'oSearchFolder.Delete
End Sub