在 Outlook 2003 中将变量声明为文件夹会生成编译错误用户定义类型未定义

Question

我将收到的物品保存在硬盘上并以不同的方式命名。

尝试将项目导入回 Outlook 时出现错误：

Compile Error User-Defined type not defined.

在

Dim Savefolder As Outlook.Folder

在我的第一个模块中

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim Savefolder As String
    Savefolder = "c:\temp"
    For Each objAtt In itm.Attachments
        stFileName = Savefolder & "\" & objAtt.DisplayName
        i = 0
JumpHere:
        If Dir(stFileName) = "" Then
            objAtt.SaveAsFile stFileName
        Else
            i = i + 1
            stFileName = Savefolder & "\" & objAtt.DisplayName & " - " & i
            GoTo JumpHere
        End If
        Set objAtt = Nothing
    Next
End Sub

在我的第二个模块中

Sub ImportMessagesInFolder()
    Dim fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SourceFolderName As String
    Dim FileItem As Scripting.file
    Dim strFile, strFileType As String
    Dim oMsg As Object
    Dim copiedMsg As MailItem
    Dim Savefolder As Outlook.Folder

    Set fso = New Scripting.FileSystemObject
'Source folder
    SourceFolderName = "C:\temp"
    Set SourceFolder = fso.GetFolder(SourceFolderName)

'Set the Outlook folder name
    Set Savefolder = Session.GetDefaultFolder(olFolderInbox).Folders("Extra")
    Set Savefolder = Application.ActiveExplorer.CurrentFolder

    For Each FileItem In SourceFolder.Files

        Set oMsg = Session.OpenSharedItem(FileItem.Path)
        On Error Resume Next

        Set copiedMsg = oMsg.Copy
        copiedMsg.Move Savefolder

        Set copiedMsg = Nothing
        oMsg.Delete
        Set oMsg = Nothing

    Next FileItem

    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set fso = Nothing
End Sub

Answer 1

改用Outlook.MAPIFolder。

在 Outlook 2003 中将变量声明为文件夹会生成编译错误用户定义类型未定义

Declaring variable as Folder in Outlook 2003 generates Compile Error User-Defined type not defined

vba

outlook

outlook-2003