• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 772
  • 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
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

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.

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