Repair the macro of autlook
11 USD 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
Applications 2
Client's review of cooperation with Oleksandr Grib
Repair the macro of autlookEverything was done perfectly, the task was more difficult than it was thought, but everything was brought to the end. Thank you for work!
Freelancer's review of cooperation with client
Repair the macro of autlookThank you for your understanding and participation in the solution. It was pleasant to work!
-
имена каких пользователей вы хотите различать ? там же сейчас сохраняются по разным папкам вложения, в зависимости от отправителя
-
Current freelance projects in the category Desktop Apps
Add pauses of 10-30 seconds between sending emails.
Hello! I am looking for an experienced 1C / BAS (BAF) programmer to promptly resolve a technical issue with email distribution.Problem essence: We use the accounting program BAF (Business Automation Framework), version 2.0. Once a month, there is a need to send about 300 emails… Web Programming, Desktop Apps ∙ 2 days 19 hours back ∙ 10 proposals |
Reverse engineering of console utilities for querying SSD controllers (Flash ID)1. Purpose of the work Extraction of the application programming interface (API) for interaction with SSD/NVMe controllers from the provided set of console utilities (Phison, Silicon Motion, Realtek, Maxiotek, Marvell, JMicron, etc.). The result should be working code in C/C++… C & C++, Desktop Apps ∙ 3 days 6 hours back ∙ 5 proposals |
Modification in the emulator's operation
45 USD
Hello. I downloaded the Gaminator CF Final slot machine emulator from the Internet. I really liked it, but there are some issues. There is an admin panel, but it opens freely and cannot be closed at all. It only closes along with the application. Also, the data does not save… Desktop Apps ∙ 10 days 20 hours back ∙ 10 proposals |