Saving an Outlook e-mail to a folder as specifed by Access

[PortyAL]

Hi

What I want to do sounds simple but obviously isn't. I want to save an e-mail received in Outlook to a hard drive folder as specifed in a field in an Access form. I have the following code but need something that would select the highlighted e-mail in my Inbox (or the active open e-mail if that's easier.)

Dim OutApp As Outlook.Application
Dim OutNameSpace As Outlook.NameSpace
Dim OutFolder As Outlook.MAPIFolder
Set OutApp = CreateObject("Outlook.Application")
Set OutNameSpace = OutApp.GetNamespace("MAPI")
Set OutFolder = OutNameSpace.GetDefaultFolder(olFolderInbox)

'need something in here to pick up the selected e-mail in the inbox

.SaveAs Forms("frm recs tracked jobs").Controls("docfolder").Value & "\Email - Draft Report.htm", olHTML

Any help would be greatly appreciated.

Thanks

AL