Проєкт перекладено автоматично. Увійдіть або зареєструйтесь, щоб побачити оригінал Потрібно виправити код, щоб зберігатися всі файли від певних користувачів з листів, в певні папки.Не в одну папку, як нижче, а від кожного користувача в певну папку.Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Дим обjAtt As Outlook.Attachment Dim fdObj як об'єкт Дим saveFolder As String 'dateOfMailItem = Format(itm.CreationTime, "yyyy.mm.dd.hhnnss") Set fdObj = CreateObject("Scripting.FileSystemObject") If itm.SenderEmailType = «EX» Then NameOfMailItem = itm.Sender.GetExchangeUser.PrimarySmtpAddressЕльс NameOfMailItem = itm.SenderEmailAddress Кінцевий If If NameOfMailItem = "[email protected]" Then '"[email protected]" Then NameOfMailItem = «Maxlevel» ElseIf NameOfMailItem = "[email protected]" Then NameOfMailItem = «Santex» ElseIf NameOfMailItem = "c" Then NameOfMailItem = «C1» ElseIf NameOfMailItem = «d» Then NameOfMailItem = «D1» ElseIf NameOfMailItem = «e» Then NameOfMailItem = «E1» Кінцевий If saveFolder = "C:\Temp" & "\" & NameOfMailItem If PathExists3(saveFolder) Then Ельс 'MsgBox CreateObject("Scripting.FileSystemObject").FolderExists(saveFolder) fdObj.CreateFolder (SaveFolder) зображення 'MsgBox CreateObject("Scripting.FileSystemObject").FolderExists(saveFolder) Кінцевий If Для кожного обjAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName Set objAtt = нічого Наступна Кінцевий суб Функція PathExists3(path) As Boolean FSO як об'єкт, FolderObj як об'єкт Set FSO = CreateObject("Scripting.FileSystemObject") Наступна статтяError Resume Set FolderObj = FSO.getfolder(path) PathExists3 = (Err = 0) кінцева функція

Ставки 1 Обговорення 1

Олександр Гриб

Переможець

19 1

Проєкти 19
Оцінка -
Рейтинг 227

Бюджет: 500 UAH Термін: 1 день

Зміню макрос для збереження вкладів по різних папках від користувачів

Актуальні фриланс-проєкти в категорії Веб-програмування

Сайт для пептидів

Інтеграція платіжних систем 38 ставок 15:26

Не вказано
Консультант-практик з Claude Code, погодинно, парні сесії

AI та машинне навчання 8 ставок 14:52

1500 UAH
Доопрацювання корпоративного сайту SEO + UX/UI + технічні правки VOL.2

Пошукова оптимізація (SEO) 47 ставок 12:32

4000 UAH
Реалізація тех аудиту

49 ставок 10:42

700 UAH
Перенос готової головної сторінки з Bolt.new на WordPress/Elementor Pro

HTML та CSS верстання 69 ставок 4 серпня

Не вказано

Дмитрий Суздальцев
Москва, Росія

Проєктів 4
Оцінка -
Рейтинг 107

Олександр Гриб

Олександр Гриб

Ставки поки відсутні

Актуальні фриланс-проєкти в категорії Веб-програмування

Сайт для пептидів

Консультант-практик з Claude Code, погодинно, парні сесії

Доопрацювання корпоративного сайту SEO + UX/UI + технічні правки VOL.2

Реалізація тех аудиту

Перенос готової головної сторінки з Bolt.new на WordPress/Elementor Pro