от
Я хочу автосохранение мои вложения из вложенной папки в мое мировоззрение, однако мне нужно только сохранить тех, с конкретной темой (инстр) и времени получил , как сегодня У меня есть некоторый код ниже, но не знаю как добавить условные, тему и время ; и я хотел бы переименовать вложение Excel, когда я сохранить его Просьба помочь :)
Option Explicit
Const folderPath = "C:\Documents\nike\My Documents\emailTest\"

Sub CompanyChange()

 On Error Resume Next
 Dim ns As NameSpace
 Set ns = GetNamespace("MAPI")
 Dim Inbox As MAPIFolder
 Set Inbox = ns.GetDefaultFolder(olFolderInbox)

 Dim searchFolder As String
 searchFolder = InputBox("What is your subfolder name?")

 Dim subFolder As MAPIFolder

 Dim Item As Object
 Dim Attach As Attachment
 Dim FileName As String
 Dim i As Integer



 If searchFolder <> "inbox" Then
 Set subFolder = Inbox.Folders(searchFolder)
            i = 0
            If subFolder.Items.Count = 0 Then
               MsgBox "There are no messages in the Inbox.", vbInformation, _
                      "Nothing Found"
               Exit Sub
            End If
                    For Each Item In subFolder.Items
                       For Each Attach In Item.Attachments

                         Attach.SaveAsFile (folderPath

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
Добро пожаловать на сайт ByNets, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...