Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

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

Posted on 2008-10-02
13
Medium Priority
?
2,097 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
Nothing ever in the clear!

This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.

 
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 2000 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: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

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

By default Outlook 2016 displays only one time zone in the Calendar. The following article explains how to display two time zones in one calendar view.
There can be many situations demanding the conversion of Outlook OST files to PST format and as such, there is no shortage of automated tools to perform this conversion. However, what makes Stellar OST to PST converter stand above the rest? Let us e…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
Suggested Courses

926 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