Використання макрос Autlook
500 UAH
Дим об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)
кінцева функція
Додатки 2
Відгук замовника про співпрацю з Олександром Грибом
Використання макрос AutlookВсе добре зроблено, завдання виявилося складнішим, ніж вважалося, але все доведено до кінця. Дякуємо за роботу!
Відгук фрилансера про співпрацю з замовником
Використання макрос AutlookДякуємо за розуміння та участь у вирішенні цієї проблеми. Було приємно працювати!
-
имена каких пользователей вы хотите различать ? там же сейчас сохраняются по разным папкам вложения, в зависимости от отправителя
-
Актуальні фриланс-проєкти в категорії Веб-програмування
Книжный интернет магазин (доработка)Тз по https://dyvenya.com/ Главная страница. Баннеры Проверить корректность отображения баннеров на компьютере и телефоне. Настроить единое расположение кнопки на всех баннерах она щас куда-то уежяют и на мобильной версии тоже 2. Блоки товаров на главной Сейчас на главной… CMS, Веб-програмування ∙ 43 секунди тому |
Створити на сайті хорошоп: (багато) довідники, шаблони товарів, категорії ...
1000 UAH
Створюється новий інтернет-магазин на 10000+ товарів. Потрібно створити на сайті на платформі хорошоп: Довідники - 1200 шт Значення довідників - 20000 шт Шаблони товарів - 400 шт Категорії товарів - 400 шт Внести все сео в категорії товарів Створення не вручну, кодом.… Веб-програмування, Створення сайту під ключ ∙ 12 годин 47 хвилин тому ∙ 21 ставка |
Зробити сайт на 1 сторінку 2d візуалізація live коефіцієнтівПотрібно зробити веб сайт на одну сторінку, котрий в реальному часі запрошує через API букмекерські live коефіцієнти футбольного матчу і візуалізує їх у вигляді двох 2д персонажів на футбольному полі. По візуалу референс на фото. Всі вихідники надам в особистих.Анімація:Вся… HTML та CSS верстання, Веб-програмування ∙ 12 годин 54 хвилини тому ∙ 38 ставок |
Інтеграція GoPosПривіт, робив хтось інтеграцію GoPos з кастомним сайтом для ресторану в Польщі? Потрібна допомога, у них дуже скудна документація, є тільки swagger і той без описів https://app.gopos.io/doc/swagger-ui/index.html Суть така, використовували від них сайт для онлайн замовлень, якщо… PHP, Веб-програмування ∙ 16 годин 24 хвилини тому ∙ 18 ставок |
Розробка сучасного сайту для Театру
10 000 UAH
Шукаємо веброзробника для створення офіційного сайту сучасної культурної платформи. Проєкт об'єднує театральні, мистецькі, освітні та культурні ініціативи. Необхідно створити сучасний адаптивний сайт, який буде одночасно виконувати іміджеву функцію, презентувати події та… CMS, Веб-програмування ∙ 17 годин 46 секунд тому ∙ 80 ставок |