Redemption? Need rapid pull of Outlook Contacts, email + notes for VBA

Status
Not open for further replies.

donphillipe

Member
Outlook version
Outlook 2007
Email Account
IMAP
Is there an official forum for Outlook Redemption? If so, I can't find it. I have a question that deals with the use of it and would like to post in the proper place.
I am looping through all my contacts in a VBA macro and this takes about 2-3 seconds per contact so I am looking for a faster way to do it. I am an intermediate level VBA coder but there is major divide in my understanding of some of the more "exotic" redemption calls such as the one included below (assumed in the general area of what I want to do). I did install Outlook Spy and I see the new options for IAddrBook, IMsgStore, etc and clicked on them but I don't have a clue what all the info means. From all I can gather there is a MAPItable call that will pull all or part of my address book out and rapidly. Right now it is taking around 3 minutes to extract the contents of 3 address fields into an array.

I am not sure what all can be pulled using this example below nor do I know what to make of it. I only want Name, Email address and Notes to load into an array and hopefully doable in a few seconds instead of 3 minutes. THANKS! (continued ....)

(Lifted as-is from http://www.dimastr.com/redemption/mapitable.htm )

Code:
dim Columns(0)
     dim Row
     dim Rows
     dim sItem
     dim oItem
            [I]'first we need to find out the property tag for FileUnder
     'it is a named property, hence we need to use GetIDsFromNames
     'see [URL]http://www.cdolive.com/cdo10.htm[/URL]       and use [URL="http://www.dimastr.com/outspy/"]OutlookSpy[/URL]
     'to figure out most GUIDs and ids
            [/I]if MAPIFolder.Items.Count > 0 Then  [I]     'only makes sense if there       are items anyway
            [/I]  set oItem = MAPIFolder.Items(1)  [I]      'take any item, we only need it       for GetIDsFromNames
            [/I]         set sItem = CreateObject("Redemption.SafeContactItem")
       sItem.Item = oItem
       PT_STRING8 = &H1E
       PR_FILE_UNDER = sItem.GetIDsFromNames("{00062004-0000-0000-C000-000000000046}",       &H8005) or PT_STRING8
            [I]  'here's the beef
            [/I]  set Table = CreateObject("Redemption.MAPITable")
       Table.Item = MAPIFolder.Items
       Columns(0) = PR_FILE_UNDER
       Table.Columns = Columns
       Table.GoToFirst
       Rows = Table.GetRows(Table.RowCount)
       for i = LBound(Rows) to UBound(Rows)
         Row = Rows(i)
         Debug.Print(Row(0))
       next
     End If
Any idea how to quickly fill a VBA array with Name, Email Address and Notes field of each of the contact entries on the folder from the local machine? Also is there any online reference that uses these code snippets in a fully functioning environment? Thanks!
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
A Edit subject - and change conversationTopic - using VBA and redemption Outlook VBA and Custom Forms 2
N Redemption VBA basics...something's missing Using Outlook 0
J 64-bit version of Redemption? Outlook VBA and Custom Forms 2
E Redemption access AppointmentItem Label from outlook Outlook VBA and Custom Forms 6
E Redemption MAPI access(c#) Outlook VBA and Custom Forms 4
W Redemption::RDOMail.PrintOut() / DoAction(maPrint) not working Outlook VBA and Custom Forms 1
B Use Redemption to get sender's email address Outlook VBA and Custom Forms 3
M EMail1Address and EMail1AddressType strangeness using Redemption Outlook VBA and Custom Forms 2
A Creating Redemption.MAPIUtils failed with Windows 7 x64 Outlook VBA and Custom Forms 5
D href tags does not result in the full url with Redemption Outlook VBA and Custom Forms 4
E Redemption Foldes.Add doesn't work Outlook VBA and Custom Forms 3
E Redemption Foldes.Add doesn't work Outlook VBA and Custom Forms 3
N Redemption.RDOSession logon() stops emails sending-they stay in Ou Outlook VBA and Custom Forms 3
E Should I switch to redemption Outlook VBA and Custom Forms 11
E Should I switch to redemption Outlook VBA and Custom Forms 11
C Redemption - Rules for outlook Outlook VBA and Custom Forms 1
G Error in Outlook Object Model with redemption and google apps prem Outlook VBA and Custom Forms 3
P Redemption Send EMail Outlook VBA and Custom Forms 10
S redemption reference Outlook VBA and Custom Forms 1
T Configure mailbox OutofOffice with Redemption Outlook Outlook VBA and Custom Forms 1
D redemption dll not registering in windows vista Outlook VBA and Custom Forms 3
Y Redemption MessageItem SaveAs problem Outlook VBA and Custom Forms 8
R Newbie Redemption ISafeMailItemPtr question Outlook VBA and Custom Forms 6
Q GAL.ResolveName issue with REDEMPTION Outlook VBA and Custom Forms 5
Q REDEMPTION HANGING during LOGON Outlook VBA and Custom Forms 2
P Redemption not working on OL2007 Outlook VBA and Custom Forms 2
P Redemption Send EMail fails Outlook VBA and Custom Forms 4
S delete appointmentitem permanently using redemption Outlook VBA and Custom Forms 2
D redemption - foldercreate event + delegate user Outlook VBA and Custom Forms 8
C Assign To and CC list while using Redemption.dll library Outlook VBA and Custom Forms 10
U Re: Read fields with Redemption Outlook VBA and Custom Forms 1
V redemption MAPIUtils Outlook VBA and Custom Forms 3
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 13
A Wishlist Arthur workman I need the community's assistance thank you Using Outlook 3
A from Arthur to anyone I need your expertise assistance Using Outlook.com accounts in Outlook 7
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
T Need to backup outlook.com to cloud storage, without desktop software - Testing UpSafe. Are there any similar services? Using Outlook.com accounts in Outlook 8
C need help setting up outlook first time Using Outlook 1
N Need help syncing contacts to iPhone X Using Outlook 8
L Need to import multiple Outlook files to Office 365 Account Using Outlook 4
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2
EaglePI Outlook 2010 need help with rules Using Outlook 0
Horsepower Need iCloud mail only Using Outlook 1
O Don't need any add-ins at all? Using Outlook 2
B Need Help - Willing to pay Outlook VBA and Custom Forms 10
A Need to view Outlook calendar in Sharepoint .. Using Outlook 2
J Need Help with Contacts VBA Outlook VBA and Custom Forms 1
L Accidentally merged a calendar with .ics, need to undo! Using Outlook 1
Similar threads


















































Top