我的访问 vba 代码已损坏,当我尝试编译代码时,我收到编译错误:未定义用户定义的类型。如果代码有什么问题,你能帮我吗
Option Compare Database
Public Function GetFolderByName(strFolderName As String, Optional objFolder As Outlook.MAPIFolder, Optional intFolderCount) As MAPIFolder
Dim objApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim colStores As Outlook.Folders
Dim objStore As Outlook.MAPIFolder
Dim colFolders As Outlook.Folders
Dim objResult As Outlook.MAPIFolder
Dim I As Long
On Error Resume Next
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set colStores = objNS.Folders
If objFolder Is Nothing Then
'If objFolder is not passed, assume this is the initial call and cycle through stores
intFolderCount = 0
For Each objStore In colStores
Set objResult = GetFolderByName(strFolderName, objStore, intFolderCount)
If Not objResult Is Nothing Then Set GetFolderByName = objResult
Next
Else
'Test to see if this folder's name matches the search criteria
If objFolder.Name = strFolderName Then
Set GetFolderByName = objFolder
intFolderCount = intFolderCount + 1
End If
Set colFolders = objFolder.Folders
'Cycle through the sub folders with recursive calls to this function
For Each objFolder In colFolders
Set objResult = GetFolderByName(strFolderName, objFolder, intFolderCount)
If Not objResult Is Nothing Then Set GetFolderByName = objResult
Next
End If
'If two or more folders exist with the same name, set the function to Nothing
If intFolderCount > 1 Then Set GetFolderByName = Nothing
Set objResult = Nothing
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function
它最终突出显示以下行 Public Function GetFolderByName(strFolderName As String, Optional objFolder As Outlook.MAPIFolder, Optional intFolderCount) As MAPIFolder