已经有好几个人询问如何在Excel中使用VBA调用Outlook或者其它Office应用程序，其实做法很简单，关键还是对于目标应用程序的对象模型的掌握和使用，这里有一个以前做过的例子，是在Excel中做一个计划表，然后调用Outlook，将计划添加到任务，因为代码是自己当时用的，所以比较粗糙。
Excel表格：
代码：
Public Sub WriteToOutlookTask() Dim Task As Outlook.TaskItem Dim rng As Range Dim i As Long For i = 3 To 34 Step 1 If Range("B" & i).Value <> "" Then Set Task = Outlook.Application.CreateItem(olTaskItem) Task.Subject = "初记：" & Range("B" & i).Value & "-" & Range("C" & i).Value Task.StartDate = Range("A" & i).Value Task.DueDate = Range("A" & i).Value Task.Save End If If Range("D" & i).Value <> "" Then Set Task = Outlook.Application.CreateItem(olTaskItem) Task.Subject = "复习：" & Range("B" & i - 2).Value & "-" & Range("C" & i - 2).Value Task.StartDate = Range("A" & i).Value Task.DueDate = Range("A" & i).Value Task.Save End If If Range("E" & i).Value <> "" Then Set Task = Outlook.Application.CreateItem(olTaskItem) Task.Subject = "复习：" & Range("B" & i - 4).Value & "-" & Range("C" & i - 4).Value Task.StartDate = Range("A" & i).Value Task.DueDate = Range("A" & i).Value Task.Save End If Next End Sub
完整的Excel文件下载：ExcelOutlook