This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
Sub ProcessStore(olkFld As Object) Const olMailItem = 0 Const olMail = 43 Dim olkItm As Object, olkSub As Object, olkAtt As Object If olkFld.DefaultItemType = olMailItem Then For Each olkItm In olkFld.Items If olkItm.Class = olMail Then strBuffer = strBuffer & x & " - " & sp _ & olkItm.SentOn & sp & olkItm.ReceivedTime & sp & olkItm.SenderName & sp _ & olkItm.Subject & sp & olkItm.to & sp & olkItm.Body & vbCrLf 'Display and export List.AddItem strBuffer Print #2, strBuffer strBuffer = "" End If Next End If For Each olkSub In olkFld.Folders ProcessStore olkSub Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.