Microsoft Office Forums - View Single Post - [Solved] take emails from outlook mailbox and folders to Access

megatronixs · 10-21-2014, 07:13 AM

Hi Gmayor,

I found this code that works to save all the selected emails in a folder. It works great, but would be nice it was possible to adjust the above code from previouw messages to not only save the email content to a table but also the emails into a folder so I could click on a button and open the linked email. (the below code only refers to the selected emails).

Any ideas how to combine both codes?

Code:

Public Sub Command24_Click()
Dim olItem As Outlook.MailItem
Dim fName As String
Dim fPath As String
    fPath = "C:\Messages\"
    For Each olItem In ActiveExplorer.Selection
        fName = Format(olItem.ReceivedTime, "yyyymmdd") & Chr(32) & _
                Format(olItem.ReceivedTime, "HH.MM") & Chr(32) & _
                olItem.SenderName & " - " & olItem.Subject & ".msg"
        fName = Replace(fName, Chr(58) & Chr(41), "")
        fName = Replace(fName, Chr(58) & Chr(40), "")
        fName = Replace(fName, Chr(34), "-")
        fName = Replace(fName, Chr(42), "-")
        fName = Replace(fName, Chr(47), "-")
        fName = Replace(fName, Chr(58), "-")
        fName = Replace(fName, Chr(60), "-")
        fName = Replace(fName, Chr(62), "-")
        fName = Replace(fName, Chr(63), "-")
        fName = Replace(fName, Chr(124), "-")
        olItem.SaveAs fPath & fName
    Next olItem
    Set olItem = Nothing
    
End Sub

Greetings.