How to get properties of .msg file saved on file system

[prgmdb]

Hi gurus,
I need to implement a VBA function to get properties of .msg file such as: from, to, cc, bcc, subject, and first row of body message.
I try with mailitem, but this file are stored on file system and not in an outlook folder.
I will use this function in a module of Access MDB, so I can store these information on table and find quickly email by query.
I can't use .pst file because this information will be shared and .pst file can't be accessed simultaneously by more users.

Thanks to all

 

[bonekrusher]

This is a code that I complied from numerious post. OPen outlook and click on the email you want (highlight but do not open). Put this code behind a command button. You'll have to create text boxes and customize the code to work on you form.

Dim objApp As Outlook.Application
    Dim objItem As Outlook.MailItem
    Dim SndName As String, SndAddr As String, ToName As String, CCName As String
    Dim Subj As String, Rcvd As String, MsgBody As String, AtchName As String
    Set objApp = New Outlook.Application
    On Error GoTo ErrHandler
    If objApp = False Then MsgBox ("you need to open outlook"): End

    For Each objItem In objApp.ActiveExplorer.Selection
        If objItem.Class = olMail Then
            With objItem
                SndName = .SenderName
                SndAddr = .SenderEmailAddress
                ToName = .To
                CCName = .cc
                Subj = .Subject
                MsgBody = .Body
                Rcvd = .ReceivedTime
            
            End With
        End If
    Next
   
Me.Text1 = MsgBody
Me.Text3 = SndName

Me.Text7 = ToName
Me.Text9 = CCName
Me.Text11 = Subj
Me.Text13 = Rcvd
ExitHere:
    On Error Resume Next
     Set objItem = Nothing
    Set objApp = Nothing
    Exit Sub

ErrHandler:
    MsgBox ("You never opened Outlook. Open Outlook and Retry"), vbCritical, "Unexpected Error (" & Err.Number & ")"
    Resume ExitHere
 Set objItem = Nothing
    Set objApp = Nothing

I am not sure if this will work with a .msg file.

 

[prgmdb]

Hi bonekrusher,
thank you for your support, I confirm your supposition:
this functions works only on emailitem present in an Outlook folder, so I need to change selection source from
Outlook.Application.ActiveExplorer.Selection
to
something to reach files on folder

Do you have any other idea?
Thanks again

 

[bonekrusher]

no, sorry. I searched the internet. no luck