Zlecenie jest tłumaczone automatycznie. Zaloguj się lub zarejestruj się, żeby zobaczyć oryginał Należy naprawić kod, aby wszystkie pliki od określonych użytkowników z listów, w określonych folderach zostały przechowywane.Nie w jednym folderze, jak poniżej, ale od każdego użytkownika do określonego folderu.Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Wyświetlanie w Outlook.Attachment Dim fdObj jako obiekt Dim saveFolder jako string 'dateOfMailItem = Format(itm.CreationTime, "yyyy.mm.dd.hhnnss") Zestaw fdObj = CreateObject("Scripting.FileSystemObject") If itm.SenderEmailType = „EX” Then NameOfMailItem = itm.Sender.GetExchangeUser.PrimarySmtpAddressElse NameOfMailItem = itm.SenderEmailAddress Koniec jeśli 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” Koniec jeśli saveFolder = "C:\Temp" & "\" & NameOfMailItem Jeśli PathExists3(saveFolder) Then Else 'MsgBox CreateObject("Scripting.FileSystemObject").FolderExists(saveFolder) fdObj.CreateFolder (saveFolder) 'MsgBox CreateObject("Scripting.FileSystemObject").FolderExists(saveFolder) Koniec jeśli Dla każdego objAtt w itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName Set objAtt = nic Następny Koniec pod Funkcja PathExists3 (Path) As Boolean FSO jako obiekt, FolderObj jako obiekt Zestaw FSO = CreateObject("Scripting.FileSystemObject") On Error Resume następny Zestaw FolderObj = FSO.getfolder(path) PathExists3 = (Err = 0) End funkcja

Oferty 1 Dyskusje 1

Oleksandr Grib

Oferta, która wygrała

19 1

Zlecenia 19
Ocena -
Ranking 227

Budżet: 500 UAH Termin: 1 dzień

Zmień makro do przechowywania wkładów na różnych folderach od użytkowników

Aktualne zlecenia dla freelancerów w kategorii Aplikacje desktopowe

Trzeba przenieść stronę z webflow na wordpress.

Programowanie stron internetowych 63 oferty 0:38

Nie podano
Dopracowanie programu Python pod nowy interfejs czatów Twitter (X)

Python 70 ofert 31 lipca

Nie podano
Dopracowanie RMK w 1C: wyświetlanie bonusowego salda klienta

Testowanie i kontrola jakości 12 ofert 29 lipca

Nie podano
Konfiguracja kilku kont Viber na jednym zdalnym pulpicie roboczym

13 ofert 28 lipca

Nie podano
Łatwe aplikacja

PHP 66 ofert 28 lipca

647 PLN

Dmitry Suzdaltsev
Moskwa, Rosja

Zleceń 4
Ocena -
Ranking 107

Oleksandr Grib

Oleksandr Grib

Aktualnie brak ofert

Aktualne zlecenia dla freelancerów w kategorii Aplikacje desktopowe

Trzeba przenieść stronę z webflow na wordpress.

Dopracowanie programu Python pod nowy interfejs czatów Twitter (X)

Dopracowanie RMK w 1C: wyświetlanie bonusowego salda klienta

Konfiguracja kilku kont Viber na jednym zdalnym pulpicie roboczym

Łatwe aplikacja