Exportar las tareas del Outlook (cuenta exchange) a Excel mediante una macro

Anexo un ejemplo para leer correo

Sub LeerCorreo()
'Por.Dante Amor
'Fuente: http://stackoverflow.com/questions/8322432/using-visual-basic-to-access-subfolder-in-inbox
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim msg As Outlook.MailItem
    '
    Application.ScreenUpdating = False
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
    i = 2
    Columns("A:C").Clear
    On Error Resume Next
    For Each msg In olFolder.Items
        If msg.UnRead = True Then
            'msg.UnRead = False
            Cells(i, "A") = msg.SenderName
            Cells(i, "B") = msg.Subject
            Cells(i, "C") = msg.body
            i = i + 1
        End If
    Next
    Columns("A:C").WrapText = False
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

Hay que investigar sobre estas líneas para leer tareas del correo

Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderSentMail)

sal u dos