Вот приблизительный код : (результат гугла)
Public Sub Otch()
Dim aOl As Outlook.Application
Dim cA As Items ' Коллекция задач
Dim iA As Outlook.TaskItem
Dim aXl 'объявление объектной переменной Приложения Excel
Dim oXlSheet 'объявление объекта - листа Excel
Dim i As Integer 'номер текущей строки листа Excel
Dim oNameSpace As NameSpace
Dim Ofolder As MAPIFolder
Dim oView As TaskItem
Dim otask As Outlook.TaskItem
Set aOl = New Outlook.Application
Set oNameSpace = aOl.GetNamespace("MAPI")
Set Ofolder = aOl.GetNamespace("MAPI").Folders("Почтовый ящик - I am").Folders("Задачи")
Set cA = Ofolder.Items
Set iA = cA.GetNext
Set aXl = CreateObject("Excel.Application")
If aXl Is Nothing Then
MsgBox "Не удается открыть приложение Excel", vbCritical
Exit Sub
End If
aXl.Workbooks.Open FileName:="E:\1\1.xls" 'ссылка на объект Excel
Set oXlSheet = aXl.Sheets("1") 'ссылка на объект - лист Excel
aXl.Visible = True
aXl.Columns("A:A").ColumnWidth = 15
aXl.Columns("B:D").ColumnWidth = 10
'If CloseMode = vbFormControlMenu Then End 'Конец при прирывании
i = 2
Do Until iA Is Nothing
oXlSheet.Cells(i, 1) = iA.StatusOnCompletionRecipients
oXlSheet.Cells(i, 2) = iA.Status
oXlSheet.Cells(i, 3) = iA.Importance
oXlSheet.Cells(i, 4) = iA.DateCompleted
oXlSheet.Cells(i, 5) = iA.Subject
oXlSheet.Cells(i, 6) = iA.Complete
Set iA = cA.GetNext 'GetNexts-Переход к следующему
i = i + 1 'перемещение по строкам таблицы Excel
Loop
oXlSheet.Cells(1, 1) = "Чья задача"
oXlSheet.Cells(1, 2) = "Состояние"
oXlSheet.Cells(1, 3) = "Важность"
oXlSheet.Cells(1, 4) = "Выполнено"
oXlSheet.Cells(1, 5) = "Тема"
oXlSheet.Cells(1, 6) = "Завершено"
End Sub
А как обращаться к PublicFolders ?
