Проєкт перекладено автоматично. Увійдіть або зареєструйтесь, щоб побачити оригінал Потрібно виправити код, щоб зберігатися всі файли від певних користувачів з листів, в певні папки.Не в одну папку, як нижче, а від кожного користувача в певну папку.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 день

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

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

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

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

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

43 ставки 10:42

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

HTML та CSS верстання 64 ставки 4 серпня

Не вказано
Підтримка магазину на opencart

PHP 71 ставка 4 серпня

Не вказано
Верстка сторінки на WordPress (ACF) за наявним стилем сайту

HTML та CSS верстання 104 ставки 4 серпня

Не вказано

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

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

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

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

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

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

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

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

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

Підтримка магазину на opencart

Верстка сторінки на WordPress (ACF) за наявним стилем сайту