hello I am trying to copy emails to WINDOWS explorer folder but the key line does not work
<> как это происходит в перспективе и windows исследователь, я полагаю; спасибо за помощь xSelFolder) = "Nothing", затем xSaveFldPath = xSelFolder.self.Path + "\" Else xSaveFldPath = "" Выход из вспомогательного конца, если задано xSaveFld = xFSO.GetFolder (xSaveFldPath) MsgBox xSaveFld *b = Set_100 (* 100) * "," Outlook.Application "). GetNamespace (" MAPI "). PickFolder Если TypeName (xSourceFld) =" Nothing ", тогда выход из вспомогательного конца, если MsgBox xSourceFld &" start copy " Установите xMailItems = xSourceFld.Items For Each xMailItem In xMailItems
i = i = 1 Установите objCopy = xMailItem.Copy objCopy.move xSaveFld Next xMailItem
Установите xSourceFld = ничего не установлено xFSO = Ничего MsgBox xSourceFld & "папка перенесена:" & i & "files" End Sub