调用OUTLOOK模块出错

cjguo

请各位高手帮忙:

在ACCESS中调用OUTLOOK的代码如下:

Dim myApp As New Outlook.Application

Dim myItem As Outlook.MailItem

    Set myItem = myApp.CreateItem(olMailItem)

   

    With myItem

        .To = ""

        .cc = ""

        .subject = "test only"

        .Importance = olImportanceHigh

.send

    End With

在英文WIN2K系统下的英文OFFICE2003中使用没问题,但一将系统升级为英文WINXP后一执行到Set myItem = myApp.CreateItem(olMailItem)时就出现进行时错误,不知是何故,

cjguo

没人知通办什么?

tmtony

估计有两个原因，

一可能是引用丢失

二可能是Outlook升级后本身出现了问题

liulubing

例子传上来,不然找不到原因的.