使用赎回功能在Outlook中查找邮件文件夹

如何解决使用赎回功能在Outlook中查找邮件文件夹

我尝试通过FIND方法使用VBA和“兑换”在Outlook帐户（我使用多个帐户）中找到一个文件夹，但是无法正常使用。在“兑换”网页上有一个示例的引用，这可能会有所帮助，但不幸的是示例不存在。

到目前为止，这是我的代码：

Public Function FindFolderRDO(strCrit As String) As String

    If Not TempVars![appdebug] Then On Error GoTo Err_Proc
    
    Dim objRdoSession As Redemption.RDOSession
    Dim objRdoFolder As RDOFolder
    Dim strFoundFolder As String
    Dim objFoundFolder As RDOFolder
    Dim strFolderName As String

    Set objRdoSession = CreateObject("Redemption.RDOSession")
    objRdoSession.logon
    objRdoSession.MAPIOBJECT = Outlook.Session.MAPIOBJECT
    
    strFolderName = "\\[mailBox name]\[foldername]\[foldername]" 'actual names removed
    
    Set objRdoFolder = objRdoSession.GetFolderFromPath(strFolderName)
    Debug.Print objRdoFolder.Parent.Name 'Prints the folder name

    Set objFoundFolder = objRdoFolder.Folders.Find("LIKE 'strCrit%' ") 'Does not work
    Debug.Print objFoundFolder.Name

    strFoundFOlder = objRdoFolder.Folders.Find("LIKE 'strCrit%' ") 'Does not work
    Debug.Print strFoundFOlder

Exit_Proc:
    On Error Resume Next
    Set objRdoFolder = nothing
    Set objRdoSession = nothing
    Set objFoundFolder = nothing
    Exit Function

Err_Proc:
    Select Case Err.Number
        Case Else
            MsgBox "Error: " & CStr(Err.Number) & vbCrLf & _
                   "Desc: " & Err.Description & vbCrLf & vbCrLf & _
                   "Source: " & Err.source & vbCrLf & _
                   "Library: " & Application.CurrentProject.Name & vbCrLf & _
                   "Module: Mod_RDO" & vbCrLf & _
                   "Function: FindFolderRDO" & vbCrLf,_
                   vbCritical,"Error"
    End Select
    Resume Exit_Proc
End Function

此功能的目的是在前6个位置上找到一个子文件夹（最多可以有4个维），该子文件夹具有6个数字的唯一格编号（例如“ 200332”）。如果找不到此函数，则应提供NULL或找到的文件夹的完整路径和名称。 我可以使用单独的功能（调用父文件夹直到顶层）创建完整路径，但也许在赎回中有一个过程，例如“ fullpath”，我却忽略了。 最终，我想使用此功能删除，移动或重命名邮箱文件夹。

我的主要问题是如何使用“ Find（Filter）”方法。但是也欢迎在完整路径上提供任何答复。

谢谢！艺术。

解决方法

您要查找名称以"strCrit"开头的子订单吗？

您快到了：

Set objFoundFolder = objRdoFolder.Folders.Find("Name LIKE 'strCrit%' ")