Добрый день!
Использую в работе 2 макроса для сохранения вложений из писем Outlook в папку.
№1.
Если вложения имеют одинаковые названия, то более новый заменяет собой старый.
№2
К каждому вложению с одинаковыми названиями добавляет дату и время и сохраняет в папку.
И так получилось, что очень не хватает ещё двух.
№3. Если приходит письмо с таким же вложением, то он его пропускает и не сохраняет в папку. Более ранний файл имеет приоритет.
№4. Если приходит письмо с таким же вложением, то он выбирает файл больший по размеру и его сохраняет. Больший размер файла имеет приоритет.
Может кто такой использует в работе? Или один из этих можно поправить.
Заранее огромное спасибо.
Использую в работе 2 макроса для сохранения вложений из писем Outlook в папку.
№1.
Если вложения имеют одинаковые названия, то более новый заменяет собой старый.
Код |
---|
Sub Замена(myItem As Outlook.MailItem) Dim att_count As Integer For att_count = 1 To myItem.Attachments.Count myItem.Attachments.Item(att_count).SaveAsFile ("T:\Logist\" & myItem.Attachments.Item(att_count).FileName) Next End Sub |
К каждому вложению с одинаковыми названиями добавляет дату и время и сохраняет в папку.
Код |
---|
Public Sub Logist(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String dateOfMailItem = Format(itm.ReceivedTime, "yyyy.mm.dd") saveFolder = "T:\Logist\" If Dir(saveFolder, vbDirectory) = "" Then MkDir saveFolder End If For Each objAtt In itm.Attachments j = " " For i = 1 To 1000 If Not Dir(saveFolder & "\" & dateOfMailItem & j & objAtt.FileName) = "" Then j = "_" & i & "_" Else Exit For End If Next i objAtt.SaveAsFile saveFolder & "\" & dateOfMailItem & j & objAtt.FileName Set objAtt = Nothing Next End Sub |
№3. Если приходит письмо с таким же вложением, то он его пропускает и не сохраняет в папку. Более ранний файл имеет приоритет.
№4. Если приходит письмо с таким же вложением, то он выбирает файл больший по размеру и его сохраняет. Больший размер файла имеет приоритет.
Может кто такой использует в работе? Или один из этих можно поправить.
Заранее огромное спасибо.