Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim objFSO As Object, _ objTempFolder As Object Sub PrintController() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTempFolder = objFSO.GetSpecialFolder(2) PrintItems Application.ActiveExplorer.CurrentFolder Set objTempFolder = Nothing Set objFSO = Nothing MsgBox "Finished" End Sub Public Sub PrintItems(olkFolder As Outlook.Folder) Dim olkAttachment As Outlook.Attachment, _ olkItem As Object, _ olkSubfolder As Outlook.Folder On Error Resume Next For Each olkItem In olkFolder.Items For Each olkAttachment In olkItem.Attachments olkItem.PrintOut olkAttachment.SaveAsFile objTempFolder & "\" & olkAttachment.FileName ShellExecute 0&, "print", objTempFolder & "\" & olkAttachment.FileName, 0&, 0&, 0& Next Next For Each olkSubfolder In olkFolder.Folders PrintItems olkSubfolder Next On Error GoTo 0 Set olkItem = Nothing Set olkAttachment = Nothing End Sub
|Exchange 2013 Default Domain Change - Do new Outlook Profiles need to be created for all users?||7||40|
|outlook 2016 not working well with exchange 2010||7||42|
|Exchange 2010 - track which user sends an email from a shared mailbox||1||23|
|Best practices power settings GPO Win 10||4||25|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!