Naprawa makro autlook
41 PLN
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
Załączniki 2
Opinia zleceniodawcy o współpracy z Oleksandr Grib
Naprawa makro autlookWszystko dobrze zrobione, zadanie okazało się trudniejsze niż się spodziewało, ale wszystko doprowadziło do końca. Dziękuję za pracę!
Opinia freelancera o współpracy z ze zleceniodawcą
Naprawa makro autlookDziękuję za zrozumienie i udział w rozwiązywaniu problemu. Było miło pracować!
-
имена каких пользователей вы хотите различать ? там же сейчас сохраняются по разным папкам вложения, в зависимости от отправителя
-
Aktualne zlecenia dla freelancerów w kategorii Aplikacje desktopowe
Dodać przerwy 10-30 sekund między wysyłkami e-maili
Witam! Szukam doświadczonego programisty 1C / BAS (BAF) do szybkiego rozwiązania problemu technicznego z wysyłką maili.Istota problemu: Używamy programu księgowego BAF (Business Automation Framework), edycja 2.0. Raz w miesiącu pojawia się potrzeba masowego wysyłania klientom… Programowanie stron internetowych, Aplikacje desktopowe ∙ 5 godzin 8 minut temu ∙ 6 ofert |
Rewersowe inżynieria konsolowych narzędzi do ankietowania kontrolerów SSD (Flash ID)1. Cel pracy Wydzielenie interfejsu programowania aplikacji (API) do interakcji z kontrolerami SSD/NVMe z dostarczonego zestawu narzędzi konsolowych (Phison, Silicon Motion, Realtek, Maxiotek, Marvell, JMicron itd.). Wynikiem ma być działający kod w języku C/C++ lub dokładna… C i C++, Aplikacje desktopowe ∙ 16 godzin 31 minut temu ∙ 5 ofert |
Modyfikacja w pracy emulatora
164 PLN
Witaj. Ściągnąłem z Internetu emulator automatu do gier gaminator cf final. Bardzo mi się podoba, ale są tam niedociągnięcia. Jest panel administracyjny, ale otwiera się swobodnie, a nie zamyka w ogóle. Zamyka się tylko razem z aplikacją. A dane po zmianach w panelu… Aplikacje desktopowe ∙ 8 dni 6 godzin temu ∙ 10 ofert |
Opracowanie niestandardowego oprogramowania (aplikacja na Androida + CMS) dla kiosków samoobsługowych SUNMI K2 (fast food)
82 PLN
Szukamy doświadczonego zespołu lub programisty Android na poziomie średnim/zaawansowanym (możliwe, że z umiejętnościami Full-stack) do stworzenia własnego oprogramowania dla kiosków samoobsługowych sieci fast food. Obecnie nasze terminale działają na bazie gotowego chmurowego… Content Management Systems, Aplikacje desktopowe ∙ 13 dni 1 godzina temu ∙ 23 oferty |