![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
Hi all
I want to exctract from a specific folder items that math my request but my outlook hang if companies = "my wated companies" than put the object in body mail myfolder contain over 9000 task here is may code Sub CommandButtonS1_click Set myItem2 = Application.CreateItem(0) Set Rep2Base = Application.GetNamespace("MAPI").Folders("publics folders").Folders("all public folders").Folders("myfolder") MyIndex=0 total=Rep2Base.items.count do while myindex Total MonIndex=MonIndex+1 Set myItem = Rep2Base.Items(MonIndex) if MyItem.companies = "CompaniesABC" then MyItem2.body = MyItem2.body & chr(13) MyItem2.body = MyItem2.body & myItem.companies & ";" & myItem.mileage & ";" & myItem.Subject & ";" & myItem.UserProperties("Custom1") & ";" & myItem.UserProperties("Custom2") & ";" & myItem.UserProperties("Custom3") end if loop MyItem2.display end sub Tks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook 2k3 Script: Exporting Task item to Excel | news.microsoft.com | Outlook and VBA | 5 | November 8th 06 05:01 PM |
Outlook 2003 Script: How to get the Index or number of items in a Folder | news.microsoft.com | Outlook and VBA | 5 | November 6th 06 11:11 PM |
Extracting individuals from a Distribution List | SpencerMC | Outlook - Using Contacts | 1 | October 12th 06 03:10 PM |
Outlook 2k3 RPC over HTTP Script | vzerbonia | Outlook - Installation | 0 | July 27th 06 08:35 PM |
Extracting Distribution list to Word document | [email protected] | Outlook - General Queries | 2 | April 19th 06 01:26 PM |