用VBA，把OUTLOOK 2010里指定天数之前的邮件，转移到另外的文件夹里

　　同事提出了一个需求，说是老大交待的，要我帮助他。因为OutLook没有录制宏的功能，没做过的话那就是无从下手。所以在他传递过来的示例代码的基础上，我写了如下VBA程序（用Alt+F11，在ThisOutLookSesson里）：

Public blnSearchComp As Boolean

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
    blnSearchComp = True
End Sub
  
'把 PST 和 Folder 合二为一，想多少层子目录都行（前提是：要保证给出的子目录参数，确实都是存在的）

Function MoveOldMail_A(cSourcePST_And_Folder As String, cDestPST_And_Folder As String, nDiffDays As Integer)
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.NameSpace
    
    Dim sch As Outlook.Search
    Dim rsts As Outlook.Results
    Dim i As Integer
    Dim strTag As String
    Dim objVariant As Variant
    Dim objDestFolder As Outlook.MAPIFolder
    
    
    Set objOutlook = Application
    Set objNamespa