Sign in with Facebook
Jim McCullen’s Followers
None yet.
Jim McCullen
* Note: these are all the books on Goodreads for this author. To add more, click here.
“Private Sub Application_Quit() FileCompletedInboxMessages End Sub Sub FileCompletedInboxMessages() Dim myOlApp As New Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.MAPIFolder Dim myDestFolder As Outlook.MAPIFolder Dim myItems As Outlook.Items Dim myItem As Object”
― Control Your Day: A New Approach to Email Management Using Microsoft Outlook and Getting Things Done
― Control Your Day: A New Approach to Email Management Using Microsoft Outlook and Getting Things Done
“Private Sub Application_Quit() FileCompletedInboxMessages End Sub Sub FileCompletedInboxMessages() Dim myOlApp As New Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.MAPIFolder Dim myDestFolder As Outlook.MAPIFolder Dim myItems As Outlook.Items Dim myItem As Object Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) Set myItems = myInbox.Items Set myDestFolder = myInbox.Folders("InboxPro") ' User cleared the follow-up flag Set myItem = myItems.Find("[FLAGSTATUS] = 0") While TypeName(myItem) <> "Nothing" myItem.Move myDestFolder Set myItem = myItems.FindNext Wend ' User marked as completed Set myItem = myItems.Find("[FLAGSTATUS] = 1") While TypeName(myItem) <> "Nothing" myItem.Move myDestFolder Set myItem = myItems.FindNext Wend End Sub”
― Control Your Day: A New Approach to Email Management Using Microsoft Outlook and Getting Things Done
― Control Your Day: A New Approach to Email Management Using Microsoft Outlook and Getting Things Done
Is this you? Let us know. If not, help out and invite Jim to Goodreads.
