Question

Excel 2010＆amp; SSIS 2012 - 当Outlook打开并且宏运行时我得到运行时错误429 - ActiveX无法创建对象...当Outlook关闭时，宏按预期执行 - 它下载所有以Mini Report开头的附件并以xlsx结尾。

SSIS包使用宏打开Excel文件，但随后返回ActiveX错误。同样，如果Outlook关闭，SSIS包将打开Excel，运行宏（下载文件）并将它们保存在我们的共享驱动器目录中。

我编写了哪些内容需要关闭Outlook？

VBA代码如下：

Sub GetAttachments()

Dim olapp As Object
Dim olmapi As Object
Dim olmail As Object
Dim olitem As Object
Dim lrow As Integer
Dim olattach As Object
Dim FileName As String

Const num As Integer = 6
Const path As String = "Y:\Wireline Forecast\MiniReport - Production\Mini Report Region Automation\Load Files\"
Const strFileType As String = "xlsx"

Set olapp = CreateObject("outlook.application")
Set olmapi = getnamespace("MAPI")
Set olmail = olmapi.getdefaultfolder(num)

If olmail.Items.restrict("[UNREAD]=True").Count = 0 Then

    MsgBox ("No Unread mails")

    Else
        For Each olitem In olmail.Items.restrict("[UNREAD]=True")
            If olitem.attachments.Count <> 0 Then
                For Each olattach In olitem.attachments
                    If Left(olattach.FileName, 11) = "Mini Report" And Right(olattach.FileName, 4) = "xlsx" Then
                    FileName = "Y:\Wireline Forecast\MiniReport - Production\Mini Report Region Automation\Load Files\" & olattach.FileName
                    olattach.SaveAsFile FileName
                    End If
                Next olattach
            End If
        Next olitem
End If

End Sub

Answer 1

如果Outlook和Excel在不同的安全上下文中运行，则会发生这种情况。确保两个应用程序或两个应用程序都没有以提升的权限运行（以管理员身份运行）。

Answer 2

实际上发现Outlook在打开时被“锁定”，因此解释了ActiveX错误，因此我构建了一个解决方案......我刚刚添加了一个关闭Outlook的脚本任务，以便下一个脚本任务可以获取附件然后另一个重新打开Outlook的脚本任务。不是最漂亮或最干净但现在可以使用。

获取Outlook附件的VBA宏仅在Outlook关闭时有效

2 个答案: