Open InBox and go to date/message with VBA?

[deko]

I have an Access 2003 mdb that searches the Outlook Inbox for specific email
messages and displays the results in a datasheet. The datasheet contains
the Date_Received and Subject. What I'm trying to do is this: When the
user clicks on the field in the datasheet that contains the Date_Received, I
want to open Outlook, go to the Inbox and move to the first occurrence of
the Date_Received.

I've tried this, but no luck. How do I move to a message and/or date in the
Outlook Inbox?

Private Sub Date_Received_Click()
On Error GoTo HandleErr
Dim ol As Outlook.Application
Dim olns As NameSpace
Dim viw As View
Dim olCal As Outlook.MAPIFolder
Dim olExp As Outlook.Explorer
Dim dtmDate As Date
dtmDate = Me![Received]
Set ol = GetObject(, "Outlook.Application")
Set olns = ol.GetNamespace("MAPI")
If ol.ActiveExplorer Is Nothing Then
olns.GetDefaultFolder(olFolderInbox).Display
Else
Set ol.ActiveExplorer.CurrentFolder =
olns.GetDefaultFolder(olFolderInbox)
ol.ActiveExplorer.Display
End If
Set olExp = ol.ActiveExplorer.CurrentFolder.GetExplorer
Set viw = olExp.CurrentView
viw.GoToDate dtmDate
Exit_Here:
On Error Resume Next
Set ol = Nothing
Set olns = Nothing
Set olCal = Nothing
Set olExp = Nothing
Set viw = Nothing
Exit Sub
HandleErr:
Select Case Err.Number
Case 429 'if Outlook is not already open
Set ol = CreateObject("Outlook.application")
Resume Next
Case Else
modHandler.LogErr ("frmAllApptsDatasheet"), ("Date_DblClick")
End Select
Resume Exit_Here
End Sub

 

[Sue Mosher [MVP-Outlook]]

You're out of luck. Outlook provides no method for selecting a particular
item in a folder window.

FYI, there is a newsgroup specifically for general Outlook programming
issues "down the hall" at microsoft.public.outlook.program_vba or, via web
interface, at
http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

 

[deko]

You're out of luck. Outlook provides no method for selecting a particular

item in a folder window.

FYI, there is a newsgroup specifically for general Outlook programming
issues "down the hall" at microsoft.public.outlook.program_vba or, via web
interface, at

http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

10-4. Thanks for the tip on the newsgroup.

 

[deko]

FYI, there is a newsgroup specifically for general Outlook programming

issues "down the hall" at microsoft.public.outlook.program_vba or, via web
interface, at

http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

For some reason my news server (news.sf.sbcglobal.net) does not seem to
carry messages from this newsgroup.

 

[Brian Tillman]

http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

For some reason my news server (news.sf.sbcglobal.net) does not seem
to carry messages from this newsgroup.

Then use Microsoft's newsserver:
news://msnews.microsoft.com/microsoft.public.outlook.program_vba

 

[deko]

For some reason my news server (news.sf.sbcglobal.net) does not seem

Then use Microsoft's newsserver:
news://msnews.microsoft.com/microsoft.public.outlook.program_vba

I didn't realize that was an option... works great!