We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Sub SearchForItem(strEntryID 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 olkItem = olkNS.GetItemFromID(strEntryID) 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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.