appointments from tasks - advanced filter/view

The following macro reads through your tasks and searches for a matching appointment on your calendar.  If it doesn't find one, then it adds that task to the list.  Once the macro finishes processing the tasks it displays a page in Internet Explorer listing the tasks that it didn't find a match for.  Click a link to open that task.

Follow these instructions to add the code to Outlook.

1.  Start Outlook
2.  Press ALT+F11 to open the Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7.  Click the diskette icon on the toolbar to save the changes
8.  Close the VB Editor

Sub FindMatchingTasks()
    Dim olkTsks As Outlook.Items, _
        olkTsk As Outlook.TaskItem, _
        olkApts As Outlook.Items, _
        olkHit As Outlook.AppointmentItem, _
        strBuff As String, _
        objIE As Object
    Set olkTsks = Session.GetDefaultFolder(olFolderTasks).Items
    Set olkApts = Session.GetDefaultFolder(olFolderCalendar).Items
    olkApts.Sort "[Start]"
    olkApts.IncludeRecurrences = True
    For Each olkTsk In olkTsks
    Debug.Print olkTsk.Subject
        Set olkHit = olkApts.Find("[Subject] = '" & olkTsk.Subject & "'")
        If TypeName(olkHit) = "Nothing" Then
            strBuff = strBuff & "<tr><td><a href=""Outlook:" & olkTsk.EntryID & """>" & olkTsk.Subject & "</a></td></tr>"
        End If
    Next
    Set objIE = CreateObject("InternetExplorer.Application")
    With objIE
        .Navigate2 "about:blank"
        Do Until .readyState = 4
            DoEvents
        Loop
        .document.Body.innerHTML = "<p>The following tasks do not appear to have a matching entry on your calendar.</p><table>" & strBuff & "</table>"
        .Visible = True
    End With
    Set olkTsks = Nothing
    Set olkTsk = Nothing
    Set olkApts = Nothing
    Set olkHits = Nothing
    Set objIE = Nothing
End Sub

Select all Open in new window