All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
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 Sub PrintAttachment() Dim myItems, myItem, myAttachments, myAttachment As Object Dim myOrt As String Dim myOlApp As New Outlook.Application Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim strFile As String 'Set destination folder myOrt = "C:\Program Files\Microsoft Office\" On Error Resume Next Set myOlExp = myOlApp.ActiveExplorer Set myOlSel = myOlExp.Selection For Each myItem In myOlSel Set myAttachments = myItem.Attachments If myAttachments.Count > 0 Then For i = 1 To myAttachments.Count myAttachments(i).SaveAsFile myOrt & myAttachments(i).DisplayName strFile = myOrt & myAttachments(i).DisplayName ShellExecute 0&, "print", strFile, 0&, 0&, 0& Next i myItem.Save End If Next Set myItems = Nothing Set myItem = Nothing Set myAttachments = Nothing Set myAttachment = Nothing Set myOlApp = Nothing Set myOlExp = Nothing Set myOlSel = Nothing End Sub
|Exchange 2010 account @iphone is getting emails even after password change||8||25|
|exchange 2007, outlook, active directory||6||12|
|Outlook 2010 Daily inbound email||2||19|
|software license audit||6||12|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!