Сохранить вложения из почтовых сообщений Outlook в папку - с перезаписью файлов!

@ykr · Регистрация: 11.01.2019

Студворк — интернет-сервис помощи студентам

Добрый день, есть код для сохранения вложений из писем Outlook в папку на диске.
Код взял готовый, за что спасибо предшественникам.
Вопрос в том, что вложения могут иметь одни и те же имена файлов и при сохранении файлы должны перезаписываться
на диск без подтверждающих вопросов или созданием файла с каким-то префиксом.
в функции SaveAsFile не вижу такой возможности.
Как можно это реализовать? Спасибо.
2. можно конечно перед записью файла в папку проверять на наличие такого файла в папке и удалять при обнаружении и потом записывать файл из вложения. Но если другие варианты?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
dateOfMailItem = Format(itm.ReceivedTime, "yyyy.mm.dd")
saveFolder = "D:\Mail\"
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

@The_Prist · 18.10.2023, 17:38

Сообщение от ykr

Что не так делаю?

Конечно, надо все эти коды помещать в ThisOutlookSession, иначе толку не будет.
А далее я не могу сказать, что именно делаете не так - приложенный мной код прост как угол дома. Просто заносите его в ThisOutlookSession, сохраняете и перезапускаете Outlook. Проверяете работу кода, отправляя себе письмо. Если MsgBox не появляется - возможно, что-то мешает зарегистрировать событие и надо углубляться(здесь и Exchange может подкинуть гадостей). А если появляется - наполняете процедуры нужными кодами. И вот если с ними уже что-то не срабатывает - ищите, что именно. Для этого и придуман режим отладки

Удачи!

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .