Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!
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
|Getting Run-Time error - Cannot find this file. Verify path and file name are correct||24||52|
|SMTP ReturnPath address for forwarded messages does not match the mailbox's ReplyTo address.||1||46|
|Open an email profile in another employees Outlook 2010||7||41|
|"Save copies of messages in the Sent Items folder " option unchecked in Outlook 2010||2||30|