Outlook Advanced Search Problems...returns with an Error: Argument

Status
Not open for further replies.
A

amatuercoder151

Hi All,

I am facing a problem with using the advanced search function provided in

the outlook object model.

What i am trying to achieve is simple. I just want to open a pst, and able

to run a search on all the items( calender, mail, appointment...everything),

and then just get the all items count...thats all..

The code i have written is as follows:

Dim app As New Application

Dim pstinfo As [NameSpace]

pstinfo = app.GetNamespace("MAPI")

Dim objfolder As MAPIFolder = Nothing

app.Session.Logon("outlook", "", False, True)

Dim allfolders As Microsoft.Office.Interop.Outlook.Folders =

pstinfo.Folders

Dim i As Integer = 0

Dim ii As Integer = 0

Dim foldernames(10) As String

For Each folder In allfolders

Dim objtempfolder As MAPIFolder = folder

foldernames(i) = objtempfolder.Name

i = i + 1

Next

pstinfo.Session.AddStore(PST NAME HERE)

Dim matchfound As Integer = 0

For Each folder In pstinfo.Folders

matchfound = 0

Dim objtempfolder1 As MAPIFolder = folder

For i = 0 To 10

If objtempfolder1.Name = foldernames(i) Then

matchfound = 1

Exit For

End If

Next

If matchfound = 0 Then

objfolder = objtempfolder1

End If

Next

Dim scope As String = Nothing

scope = "'" & objfolder.folderpath & "'"

Dim search As Search = app.Session.Application.AdvancedSearch(scope,

, True, "")

pstinfo.Session.RemoveStore(objfolder)

app = Nothing

pstinfo = Nothing

objfolder = Nothing

search = Nothing

System.GC.Collect()

Private Sub app_AdvancedSearchComplete(ByVal SearchObject As

Microsoft.Office.Interop.Outlook.Search) Handles app.AdvancedSearchComplete

Dim results As Results

results = SearchObject.Results()

MsgBox("The Total Number of found in the PST Are: " & results.Count)

End Sub

This code works totally fine with almost all the PST's, until i encountered

a PST which had a mailbox named " Archived Folders". Thereby the

objfolder.folderpath variable comes out to be "\\ Archived Folders", and the

advanced search line throws an error saying Error: Argument Exception was

Unhandled:Could not complete the operation. One or more parameter values are

not valid.

For all others its working. Also one thing to mention is that "\\ Archived

Folders" has a starting space character, which i feel might be the problem.

Please if somebody could help me out, as i have tried all things, but

nothing works
 
K

Ken Slovak - [MVP - Outlook]

See if replacing any spaces with "%20" works.

"amatuercoder151" <amatuercoder151> wrote in

message news:3A5C0A37-80A8-40F8-B084-C7103B7029D1@microsoft.com...
> Hi All,
> I am facing a problem with using the advanced search function provided in
> the outlook object model.
> What i am trying to achieve is simple. I just want to open a pst, and able
> to run a search on all the items( calender, mail,
> appointment...everything),
> and then just get the all items count...thats all..
> The code i have written is as follows:

> Dim app As New Application
> Dim pstinfo As [NameSpace]
> pstinfo = app.GetNamespace("MAPI")
> Dim objfolder As MAPIFolder = Nothing
> app.Session.Logon("outlook", "", False, True)
> Dim allfolders As Microsoft.Office.Interop.Outlook.Folders =
> pstinfo.Folders
> Dim i As Integer = 0
> Dim ii As Integer = 0
> Dim foldernames(10) As String
> For Each folder In allfolders
> Dim objtempfolder As MAPIFolder = folder
> foldernames(i) = objtempfolder.Name
> i = i + 1

> Next
> pstinfo.Session.AddStore(PST NAME HERE)

> Dim matchfound As Integer = 0
> For Each folder In pstinfo.Folders
> matchfound = 0
> Dim objtempfolder1 As MAPIFolder = folder
> For i = 0 To 10
> If objtempfolder1.Name = foldernames(i) Then
> matchfound = 1
> Exit For

> End If
> Next
> If matchfound = 0 Then
> objfolder = objtempfolder1
> End If

> Next

> Dim scope As String = Nothing
> scope = "'" & objfolder.folderpath & "'"

> Dim search As Search =
> app.Session.Application.AdvancedSearch(scope,
> , True, "")
> pstinfo.Session.RemoveStore(objfolder)
> app = Nothing
> pstinfo = Nothing
> objfolder = Nothing
> search = Nothing
> System.GC.Collect()

> Private Sub app_AdvancedSearchComplete(ByVal SearchObject As
> Microsoft.Office.Interop.Outlook.Search) Handles
> app.AdvancedSearchComplete
> Dim results As Results
> results = SearchObject.Results()
> MsgBox("The Total Number of found in the PST Are: " &
> results.Count)
> End Sub

> This code works totally fine with almost all the PST's, until i
> encountered
> a PST which had a mailbox named " Archived Folders". Thereby the
> objfolder.folderpath variable comes out to be "\\ Archived Folders", and
> the
> advanced search line throws an error saying Error: Argument Exception was
> Unhandled:Could not complete the operation. One or more parameter values
> are
> not valid.
> For all others its working. Also one thing to mention is that "\\ Archived
> Folders" has a starting space character, which i feel might be the
> problem.
> Please if somebody could help me out, as i have tried all things, but
> nothing works
>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
mll persistently customise columns in outlook advanced search Using Outlook 3
R Outlook for Mac - Advanced Search and Tracking Sent Emails Using Outlook 0
B Advanced Search in MS Outlook by VBA and SQL Outlook VBA and Custom Forms 2
T Outlook 2007 Indexing Options and Advanced Search options disabled Using Outlook 5
P Outlook Advanced Find Using Outlook 0
N Outlook 2010 crippled Advanced Find, now what? Using Outlook 3
H Outlook 2010 Advanced Find - Menu items missing Using Outlook 1
D Outlook 2010 - Advanced Find - No Status Bar = No Item Count Using Outlook 2
J Advanced outlook trick: help needed! Outlook VBA and Custom Forms 3
L Duplicate calendar entries in Outlook 365 Using Outlook 2
V Outlook 2021 Can anyone explain why my Outlook views keep changing?! Using Outlook 2
AlphonseG Outlook 365 Outlook Crashes on setting SaveSentMessageFolder Outlook VBA and Custom Forms 2
S Outlook 2021 How to customize colors Outlook 2021 & Office 2021 on PC Using Outlook 0
D Outlook 2007 Recovering E-Mails Using Outlook 0
G Stop Outlook 365 adding meetings to calendar Using Outlook 0
HarvMan Using Emojis in Outlook 365 Using Outlook 3
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
Albert McCann Outlook 2021 Outlook Display of HTML Email from two senders is glitchy Using Outlook 0
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 1
K Outlook for Mac problems Using Outlook 0
D Outlook app 2021 & iCloud PST issues Using Outlook 2
M c# vsto Outlook.ApplicationEvents_11_NewMailEx Outlook VBA and Custom Forms 1
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
Christopher M Is it me, or is Outlook 365 BUGGY? Using Outlook 3
U Outlook on the iPhone cannot approve filtered Emails Using Outlook 0
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
K Outlook 365 After migrating to Outlook 365, some contacts display in emails with prefixes Using Outlook 1
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
M Understanding Outlook Identities Using Outlook 1
kburrows Outlook or Phone Combining Contacts? Using Outlook 0
P Outlook 2013 search no longer works Using Outlook 2
M Accessing ALL Outlook contact fields Outlook VBA and Custom Forms 3
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 0
R MailTips and older Outlook versions Using Outlook 0
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 9
C How to import Outlook calendar? Using Outlook 1
HarvMan Outlook 365 loses "outlook.com" exchange server settings Using Outlook 1
HarvMan Outlook.com Account Using Outlook 3
D Office 365 Outlook desktop app prompts for all account passwords on startup Using Outlook 6
D Alerts in outlook Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
L Recommendations for Utility to Backup Outlook 365 Account Settings Using Outlook 2
J Recommendations for Outlook Duplicate Email Remover Using Outlook 6
O Outlook - How to embed font ? (If at all possible) Using Outlook 2
Z New minimum Outlook for Windows version requirements for Microsoft 365/Exchange Online Using Outlook.com accounts in Outlook 26
T How to configure Outlook for two users on a single Windows account Using Outlook 3

Similar threads

Top