Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|SQL VB connection works in one PC and doesn't in another||15||42|
|Add a SafeSender to Exchange||6||23|
|Modifying Conditional Format from VBA code||3||29|
|How to set the row selection as it was prior leaving the datagrid in vb6||3||12|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!