Solved

Email unique identifier (Primary Key) in Outlook???

Posted on 2008-10-02
13
1,999 Views
Last Modified: 2012-05-05
Do the emails in Outlook have some unique identifier (Primary Key)?

In Access environment, I am reading email information and storing them in a table. I wonder it there is a unique identifier for each email. I want to read its value and store in my table along the rest of information on the emails (like SendOn, SentBy, Subject, etc.).

I already have the code to read email data. If applicable, what is the field name for "email unique identifier"?

Thank you.
0
Comment
Question by:Mike Eghtebas
  • 7
  • 6
13 Comments
 
LVL 2

Expert Comment

by:doublebug
ID: 22627648
Every message in the Outlook have uniques identifier
EntryID. It is binary property but via Outlook Object Model it is available as hex encoded string. You can use this property to open message via GetItemFromID method. The behavior of this identifier is a bit different for PST and Exchange providers.
When message is moved between folders in the same store PST EntryID stays the same.
In Exchange EntryID changes.
Also there is PR_SEARCH_KEY property. It is not available via OOM but you can use some IMAPIProp interface wrappers like Redemption (http://www.dimastr.com/redemption/). This property says the same if message is moved between folders but then message is copied copy has the same value.
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22627964
With strQuery = "[EntryID] = '" & strEntryID & "'"

I am getting the following error at:

Set olkItem = OlkFolder.Items.Find(strQuery)   '<--- ERORRS HERE *********

How can I correct this.

Thanks,

Mike
Public Sub OpenEmail(lngEmailID As Long)
 
    Dim strEntryID As String
    Dim lngFolderID As Long
    Dim strFolder As String
    
    lngFolderID = DLookup("EmailFolder_ID", "tEmails", "EmailID=" & lngEmailID)
    strFolder = DLookup("FolderPath", "tOLK_Folders", "ID=" & lngFolderID)
    strEntryID = DLookup("EntryID", "tEmails", "EmailID=" & lngEmailID)
 
    Call SearchForItem(strEntryID, strFolder)
 
End Sub
 
Public Sub SearchForItem(strEntryID As String, strOlkFolder As String)
 
    Dim obj_CurrentOlkFolder As Outlook.MAPIFolder
    Dim olkApp As Object, _
        olkNS As Object, _
        OlkFolder As Object, _
        olkItem As Object, _
        strQuery As String
    Set olkApp = GetObject(, "Outlook.Application")
    Set olkNS = olkApp.Session
    Set OlkFolder = GetOutlookFolder(strOlkFolder)
    strQuery = "[EntryID] = '" & strEntryID & "'" 
    Set olkItem = OlkFolder.Items.Find(strQuery)   '<--- ERORRS HERE *********
    If TypeName(olkItem) = "nothing" Then
        MsgBox "No match found"
    Else
        olkItem.Display
    End If
    Set OlkFolder = Nothing
    Set olkNS = Nothing
    Set olkApp = Nothing
End Sub

Open in new window

0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22627981
Following is a sample strQuery:
[EntryID] = '0000000088A29984A2A46240B4D83F2C6FEE9F560700CD46E9B936EFE5479CB85F1F510A078600000036EF4B0000FDA9D25B22E75D4E802E9D3D59692152000000DA44560000'

Open in new window

0
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22628037
I forgot to submit the error description:

The property EntryID in the condition is not valid.

I was thinking EntryID will be recognized. Why it is not?

Mike

0
 
LVL 2

Expert Comment

by:doublebug
ID: 22628044
Use olkNS.GetItemFromID to open an item.
0
 
LVL 2

Expert Comment

by:doublebug
ID: 22628120
EntryID is unique property and you don't need to use it in search.
This property is used to open objects in an Outlook store. That is by design.
In the underlying store (MAPI store provider) you open object by using
IMAPISession::OpenEntry function.
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22628234
Do you mean like:

Public Sub SearchForItem(strEntryID As String, strOlkFolder As String)
                                                   'not used--------------^
    Dim obj_CurrentOlkFolder As Outlook.MAPIFolder
    Dim olkApp As Object, _
        olkNS As Object, _
        OlkFolder As Object, _
        olkItem As Object, _
        strQuery As String
    Set olkApp = GetObject(, "Outlook.Application")
    Set olkNS = olkApp.Session

    olkNS.GetItemFromID(strEntryID) '<------******
 
    Set OlkFolder = Nothing
    Set olkNS = Nothing
    Set olkApp = Nothing
End Sub

?
0
 
LVL 2

Expert Comment

by:doublebug
ID: 22628257
yes
0
 
LVL 2

Expert Comment

by:doublebug
ID: 22628273
And you may need to open all stores. Because if store that holds this object is not opened the call will fail.
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22628370
It doen't produce error but it doesn't open any email either.


re:> need to open all stores

I don't know what this means. Here, what do you mean by store and how do I know it is open?

Thanks,

Mike
0
 
LVL 2

Accepted Solution

by:
doublebug earned 500 total points
ID: 22628457
You need to use.
Set olkItem = olkNS.GetItemFromID(strEntryID)
If TypeName(olkItem) = "nothing" Then
        MsgBox "No match found"
Else
        olkItem.Display
End If
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22628583
Beautiful!

Thank you,

Mike
0
 
LVL 34

Author Comment

by:Mike Eghtebas
ID: 22635246
doublebug,

I have a follow-up question at:

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_23785451.html#a22635227

I appreciated an input from you.

Mike
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Read this checklist to learn more about the 15 things you should never include in an email signature.
How to resolve IMCEAEX NDRs in Exchange or Exchange Online related to invalid X500 addresses.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question