Re: Getting attributes from Outlook messages

[grant]

Here is the code I've used in Outlook

Its the myOLApp.ActiveInspector.CurrentItem that I'm assuming wont
work with a msg file thats in a folder rather than in the Outlook pst
file.

How do I set the myItem to a msg file in a folder?

----------------------------------------------------------------------------------------------------------------------------------------------------
'S:\TechWorks\Projects\2800\2807\2807-080505-01-OUT-OtherParty-Re
Spike on the beach front.msg
'|--------ProjectPath-----------|-No-|-Date-|Pt|inout|other
party|--------Subject---------|.ext

Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.ActiveInspector.CurrentItem
'get Project Path
vProjectPath = fncProjFolderIncrement(vProjectNo) & vProjectNo &
"\"
'get date
vDate = Format(myItem.CreationTime, "yymmdd")
'get date part
sProjectNamePart = vProjectPath & vProjectNo & "-" & vDate & "*.*"
vDatePart = fncDatePart(sProjectNamePart)
vInOut = fncInOut

vAttCount = myItem.Attachments.Count
If vAttCount = 0 Then
vAttCount = Null
Else
vAttCount = " (" & vAttCount & " Att)"
End If
-----------------------------------------------------------------

[grant]

ok I've now tried using the Redemption methods, but am still having
problems as its not recognizing the method 'Session"

e.g.

Function fncOutlookMsgDate(sMsgFile As String)
Dim mySession As Redemption.RDOSession
Dim vDate As Variant
Dim Msg As MessageItem
Set mySession = CreateObject("Redemption.RDOSession")
mySession.MAPIOBJECT = Application.Session.MAPIOBJECT
<--------- error is "method or data member not found"
Set Msg = mySession.GetMessageFromMsgFile(sMsgFile)
vDate = Msg.ReceivedTime
fncOutlookMsgDate = Format(vDate, "yymmdd")
End Function

I think the Session method is in the CDO.dll, but I have got this
library ticked. so what else could it be.