Stay away from Speed Up Computer Programs that do more harm than good.
Try these tips instead.
Step by step instructions in trouble shooting Windows Performance issues.
Sub SaveAttachmentsToDiskRuleFXIP1(olkMessage As Outlook.MailItem) Dim olkAttachment As Outlook.Attachment, _ objFSO As Object, _ strRootFolderPath As String, _ strFilename As String 'Change the path on the following line to the folder you want the attachments save in strRootFolderPath = "C:\Fixing Centa FXIP Index Report\FXIP1\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set olkSourceFolder = Application.ActiveExplorer.CurrentFolder If olkMessage.Attachments.Count > 0 Then For Each olkAttachment In olkMessage.Attachments strFilename = olkAttachment.FileName intCount = 0 Do While True If objFSO.FileExists(strRootFolderPath & strFilename) Then intCount = intCount + 1 strFilename = "Copy (" & intCount & ") of " & olkAttachment.FileName Else Exit Do End If Loop olkAttachment.SaveAsFile strRootFolderPath & strFilename Next End If Set objFSO = Nothing Set olkAttachment = Nothing Set olkMessage = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Keyword email search on Exchange 2010||4||51|
|How to stop CRM Addin from adding website to Trusted Sites||4||50|
|Outlook 2013 & pst limits...||16||51|
|Exchange 2010 permissions issue||8||31|
Join the community of 500,000 technology professionals and ask your questions.