[求助]在Access中发邮件报“找不到工程和库”,请教高手

frownies

学习“在Access中对Outlook进行各项操作实现自动化”http://www.office-cn.net/forum.php?mod=viewthread&tid=37148&replyID=4&skin=1

在我机器中直接运行，出现一个错误，报：Dim objOLApp As Outlook.Application  找不到工程和库。请教高手指点一二，多谢了

Private Sub Command0_Click() '新建任务
    Dim objOLApp As Outlook.Application
    Dim NewTask As Outlook.TaskItem
    Set objOLApp = New Outlook.Application
    Set NewTask = objOLApp.CreateItem(olTaskItem)
    NewTask.Display
End Sub

[此贴子已经被作者于2006-5-12 20:44:53编辑过]

frownies

放了三天了，请高手指点啊

Grant

需要引用控件"msoutl.olb"