| Author |
how can i speed up this loop?
|
|
|
| using the following code to search through all the contacts in a outlook
folder. This process can be slow if a lot of contacts are in the folder.
I'm trying to experiment with other loop methods; the following were
suggested; GetFirst/GetNext - does anyone know how i can modify the below
code to loop through records using GetFirst/GetNext method?
Dim ol As Outlook.Application
Dim olns As NameSpace
Dim objContactsFolder As Outlook.MAPIFolder
Dim iCount As Integer
Dim objContacts As Outlook.Items
Dim objContact As Object
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set objContactsFolder = olns.Folders("test").Folders("Foldertest")
Set objContacts = objContactsFolder.Items
' Process the changes
iCount = 0
For Each objContact In objContacts
'''''do something-make changes....etc
iCount = iCount + 1
Next
| |
|
| You could try the ADO way:
http://trillian/vrc_codeview.asp?type=app&id=68
--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
http://www.veign.com/vrc_main.asp
--
"pb" <pb@discussions.microsoft.com> wrote in message
news:AD5077E5-E18E-472E-A88E-65E044AB68DA@microsoft.com...
> using the following code to search through all the contacts in a outlook
> folder. This process can be slow if a lot of contacts are in the folder.
> I'm trying to experiment with other loop methods; the following were
> suggested; GetFirst/GetNext - does anyone know how i can modify the below
> code to loop through records using GetFirst/GetNext method?
>
> Dim ol As Outlook.Application
> Dim olns As NameSpace
> Dim objContactsFolder As Outlook.MAPIFolder
> Dim iCount As Integer
> Dim objContacts As Outlook.Items
> Dim objContact As Object
>
> Set ol = New Outlook.Application
> Set olns = ol.GetNamespace("MAPI")
> Set objContactsFolder = olns.Folders("test").Folders("Foldertest")
> Set objContacts = objContactsFolder.Items
>
> ' Process the changes
> iCount = 0
>
> For Each objContact In objContacts
> '''''do something-make changes....etc
> iCount = iCount + 1
> Next
| |
|
| link doesn't work
its the database processing part which is taking a long time
"Veign" wrote:
> You could try the ADO way:
> http://trillian/vrc_codeview.asp?type=app&id=68
>
> --
> Chris Hanscom - Microsoft MVP (VB)
> Veign's Resource Center
> http://www.veign.com/vrc_main.asp
> --
>
>
> "pb" <pb@discussions.microsoft.com> wrote in message
> news:AD5077E5-E18E-472E-A88E-65E044AB68DA@microsoft.com...
>
>
>
| |
|
| Should have been:
http://www.veign.com/vrc_codeview.asp?type=app&id=68
--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
http://www.veign.com/vrc_main.asp
--
"pb" <pb@discussions.microsoft.com> wrote in message
news:8AAA3B27-CE40-4119-B259-1F705A909408@microsoft.com...[color=darkred]
> link doesn't work
> its the database processing part which is taking a long time
>
> "Veign" wrote:
>
outlook[color=darkred]
folder.[color=darkred]
below[color=darkred]
| |
|
| this looks like it will only work with exchange, however, i'm not running
exchange.
How would u modify this line to reflect no exchange server:
CNN.Open "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Exchange 4.0;" & _
"MAPILEVEL=Outlook Address Book\;" & _
"PROFILE=Outlook;" & _
"TABLETYPE=1;" & _
"DATABASE=c:\temp" 'You may need to change this
"Veign" wrote:
> Should have been:
> http://www.veign.com/vrc_codeview.asp?type=app&id=68
>
> --
> Chris Hanscom - Microsoft MVP (VB)
> Veign's Resource Center
> http://www.veign.com/vrc_main.asp
> --
>
>
> "pb" <pb@discussions.microsoft.com> wrote in message
> news:8AAA3B27-CE40-4119-B259-1F705A909408@microsoft.com...
> outlook
> folder.
> below
>
>
>
| |
|
| Did you try it?
--
Chris Hanscom - Microsoft MVP (VB)
Veign's Resource Center
http://www.veign.com/vrc_main.asp
--
"pb" <pb@discussions.microsoft.com> wrote in message
news:1A515AD9-F274-48E3-BA61-80545953DD7E@microsoft.com...[color=darkred]
> this looks like it will only work with exchange, however, i'm not running
> exchange.
> How would u modify this line to reflect no exchange server:
>
> CNN.Open "Provider=Microsoft.JET.OLEDB.4.0;" & _
> "Exchange 4.0;" & _
> "MAPILEVEL=Outlook Address Book\;" & _
> "PROFILE=Outlook;" & _
> "TABLETYPE=1;" & _
> "DATABASE=c:\temp" 'You may need to change this
>
> "Veign" wrote:
>
were[color=darkred]
the[color=darkred]
| |
|
| This actually worked very well after i modified it a little.....very fast and
furious
"Veign" wrote:
> Did you try it?
>
> --
> Chris Hanscom - Microsoft MVP (VB)
> Veign's Resource Center
> http://www.veign.com/vrc_main.asp
> --
>
>
> "pb" <pb@discussions.microsoft.com> wrote in message
> news:1A515AD9-F274-48E3-BA61-80545953DD7E@microsoft.com...
> were
> the
>
>
>
|
|
|
|