Project translated automatically. Log in or register, to view the original It is necessary to correct the code so that all files from certain users from the letters are stored in certain folders.Not in one folder as below, but from each user to a particular folder.Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt as Outlook.Attachment Dim fdObj as object Dim 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.PrimarySmtpAddressThe Else NameOfMailItem = itm.SenderEmailAddress End if If NameOfMailItem = "[email protected]" Then '"[email protected]" Then NameOfMailItem = “Maxlevel” If NameOfMailItem = “[email protected]” Then NameOfMailItem = “Santex” If NameOfMailItem = “c” Then NameOfMailItem = “C1” If NameOfMailItem = “d” Then NameOfMailItem = “D1” If NameOfMailItem = “e” Then NameOfMailItem = “E1” End if saveFolder = "C:\Temp" & "\" & NameOfMailItem If PathExists3(saveFolder) Then The Else 'MsgBox CreateObject("Scripting.FileSystemObject").FolderExists(saveFolder) fdObj.CreateFolder (saveFolder) 'MsgBox CreateObject("Scripting.FileSystemObject").FolderExists(saveFolder) End if For each objAtt in itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName Set objAtt = Nothing The next The End Sub Function PathExists3 (Path) As Boolean Dim FSO as Object, FolderObj as Object Set FSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set FolderObj = FSO.getfolder(path) PathExists3 = (Err = 0) End Function

Proposals 1 Discussions 1

Oleksandr Grib

Winning proposal

19 1

Projects 19
Rating -
Rating 227

Budget: 500 UAH Deadline: 1 day

I am changing the macros to save the deposits on different folders from users

Current freelance projects in the category Desktop Apps

Need to transfer the site from Webflow to WordPress.

Web Programming 64 proposals 3 August

Not specified
Refinement of the CRM in 1C: displaying the client's bonus balance

Testing & QA 12 proposals 29 July

Not specified
Setting up multiple Viber accounts on one remote desktop

13 proposals 28 July

Not specified
Light application

PHP 67 proposals 28 July

172 USD
App : Digital Marketplace for Skilled Trades in Morocco

Web Programming 66 proposals 22 July

500 USD

Dmitry Suzdaltsev
Moscow, Russia

Projects 4
Rating -
Rating 107

Oleksandr Grib

Oleksandr Grib

Proposals are currently absent

Current freelance projects in the category Desktop Apps

Need to transfer the site from Webflow to WordPress.

Refinement of the CRM in 1C: displaying the client's bonus balance

Setting up multiple Viber accounts on one remote desktop

Light application

App : Digital Marketplace for Skilled Trades in Morocco