• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 801
  • Last Modified:

Error coming up when using "GetItemFromID"

Hi Team,

I am trying to run the given below code and I am not able to proceed further as it is giving me some error.  It had run for a couple of times, but stoped working all of a sudden.

Given below is the code.

Private Sub cmdViewEmail_Click()
    Dim olFolder As Outlook.MAPIFolder
    Dim olConversationIndex As String
   
    olConversationIndex = [Form_qryEmails&Comments subform].Conservation_Index
    Set olFolder = GetOlFolder("\\Mailbox - Operations Collections\Inbox")
   
    Set Test = olFolder.Session.GetItemFromID("0101CD0EB640F8EC9BCA09902E4383A0DE3146196E1A9683932700800178B580")
    Test.Display
   
End Sub


Given below is the error I get when I try to run the above code.

Error Screen shot.
I also did some further testing and it seems to work for certain emails and does work for certain emails.  Please note the folder has only emails, no calander or task etc..

Thanks,
Sandesh.
0
Sandesh555
Asked:
Sandesh555
1 Solution
 
GrahamSkanRetiredCommented:
Are you sure that an Item with that ID exists?
0
 
adamnlCommented:
If they exist, are they in \Mailbox - Operations Collections\Inbox ?
0
 
Helen FeddemaCommented:
Also, I don't see a declaration for Test.  Is it supposed to be a MailItem?

And in this line:  olConversationIndex = [Form_qryEmails&Comments subform].Conservation_Index

you have "Conservation_Index" and "olConversationIndex".  Shouldn't they both be Conversation?
0
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

 
Sandesh555Author Commented:
Hi Team,

Each and every mail item that I have captured in my database exits and In case of the given coding, sorry for the confusion.  I had included only a part of the code and did not remove all the not related lines.  Here is the code again.

Private Sub cmdViewEmail_Click()
    Dim olFolder As Outlook.MAPIFolder
   
    Set olFolder = GetOlFolder("\\Mailbox - Operations Collections\Inbox")
   
    Set Test = olFolder.Session.GetItemFromID("0101CD0EB640F8EC9BCA09902E4383A0DE3146196E1A9683932700800178B580")
    Test.Display
   
End Sub

GetOlFolder() here is a small function which converts the given Outlook folder path into a proper MAPI Folder path.

I did try to declare Test as a MailItem, but was getting same error.  Please note I problem here is that this code is working for a few emails and does not work for a few emails.

Thanks,
Sandesh.
0
 
adamnlCommented:
What is the difference between the mails for which it does work and the mails for which it does not?
0
 
Sandesh555Author Commented:
Not much all of them are emails sent and recived by the customer.
0
 
Sandesh555Author Commented:
HI Team,

I did some testing and found out that all the emails that have been sent from my domain is coming up in the dispaly, but all the emails that have been sent by external team is not wokring.

I am also giving you  the question were I got this solution.

http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/Q_27655636.html

Thanks,
Sandesh.
0
 
Sandesh555Author Commented:
Hi Team,

After doing some additinal testing I found that the first time I use this code.  It works for all emails.  But later it starts to work only on emails sent from my domain.

I think we jsut need to clear some memory somewere.  All I need to know is what is it that I need to clear.

Thanks,
Sandesh.
0
 
Sandesh555Author Commented:
Hi Team,

I have found the solution locally, though another developer.

thanks for looking into the same.

Thanks,
Sandesh.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now