Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.