Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
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
|Receiving lots of email to recipients in my Exchange 2010 domain that do not exist. How can I solve this problem?||9||42|
|Create Custom Field in a Message linked to a Microsoft Access Table||3||23|
|What is recipient status:Mailbox Rules Agent.DelegateAccess. In Exchange 2010 tracking logs?||5||31|
|Outlook 2016 Autodiscover with Exchange 2013||7||41|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!