使用Sub，从Outlook

Question

我在Outlook 15.0中使用CreateCSV（）public sub但是在下面的第二行获取错误消息“编译错误：用户定义的类型未定义”。

Public Sub CreateCSV(dataWbFile As String, Optional InputDt As String)    
Dim dataWb As Workbook

对于上下文，我在这段代码中使用CreateCSV：

For Each Item In SubFolder.Items
    For Each Atmt In Item.Attachments
        If LCase(Right(Atmt.filename, Len(ExtString))) = LCase(ExtString) Then
            filename = DestFolder & Atmt.filename
            Atmt.SaveAsFile filename
            ReceivedTime = DateSerial(Year(Item.ReceivedTime), Month(Item.ReceivedTime), Day(Item.ReceivedTime))
            Call CreateCSV(filename, ReceivedTime)
            i = i + 1
        End If
    Next Atmt
    Item.Delete
Next Item

我用它来整理电子邮件文件，保存附件并删除电子邮件。

我是新手。我已经下载了Tools-＆gt; References包Microsoft Outlook 15.0对象库，我读到这是一个潜在的问题。

Answer 1

如果您想从Outlook引用Microsoft Excel 15.0 Object Library，请添加对Workbook的引用。