Attached mail

If it helps, I have a feeling I need to use Outlook objects.
I think I might be able to save the attachment in an Outlook folder and then open it, but how?

This is vbscrit to save attachments in outlook

For Each Atmt In Item.Attachments
             FileName = "C:\Email\Attachments\" & Atmt.FileName
             Atmt.SaveAsFile FileName
Next

Thanks.
How do I then open that attachment as an Outlook mail (if it IS a mail item)?

bukko

For example, do I need to save the attachment to an Outlook folder before I can open it?

...or can I save the file to a .pst file and import it?

can you not save it as a .msg file (if it is a mail file) and open it directly

Yes, but I need to be able to open it programmatically and read the attached text file.

So for instance:

objAttachment.SaveAsFile "C:\...\mail.msg"

is not problem, and it open correctly when double-clicked, but how can I open it in VB (using Outlook objects or otherwise)?

(attached mail items are easy to recognise as the filename seems to always start with Attached, e.g. "Attached mail.msg")

Solved it.

You need to save the attached mail item to a file, (already knew that bit!) then open it as a template.

'Noddy' sample code as follows:

(note: folder C:\@atts must exist)

Option Explicit

Private Sub Form_Load()
    '
    Dim objApp As Outlook.Application
    Dim objItem As Outlook.MailItem
    Dim objAttachedItem As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim strText As String
    '
    Set objApp = New Outlook.Application
    For Each objItem In objApp.ActiveExplorer.CurrentFolder.Items
        For Each objAttachment In objItem.Attachments
            strText = GetTextFromAttachment(objAttachment)
            Stop ' DISPLAY TEXT AT THIS POINT !!!
        Next
    Next
    '
    Set objApp = Nothing
    '
End Sub

Private Function GetTextFromAttachment(objAttachment As Outlook.Attachment)
    '
    Dim strFilename As String
    Dim objMailItem As Outlook.MailItem
    '
    strFilename = objAttachment.FileName
    If Left(strFilename, 9) = "Attached " Then
        ' It's an attached email
        objAttachment.SaveAsFile "C:\@atts\" & objAttachment.Index & ".msg"
        Set objMailItem = objAttachment.Application.CreateItemFromTemplate("C:\@atts\" & objAttachment.Index & ".msg")
        GetTextFromAttachment = GetTextFromAttachment(objMailItem.Attachments(1))
    Else
        objAttachment.SaveAsFile "C:\@atts\" & objAttachment.Index & ".txt"
        GetTextFromAttachment = ReadFile("C:\@atts\" & objAttachment.Index & ".txt")
    End If
    '
End Function

Private Function ReadFile(strFilename As String) As String
    '
    Dim objFSO As Object
    Dim objFile As Object
    '
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(strFilename)
    ReadFile = objFile.ReadAll
    Set objFile = Nothing
    Set objFSO = Nothing
    '
End Function