Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.
Sub SaveAttachments() Dim olkSelectedItems As Object, _ olkItem As Object, _ objFile As Object, _ objDict As Object, _ strFilename As String, _ arrLines As Variant, _ varName As Variant, _ varTemp As Variant strFilename = "" Set olkSelectedItems = Application.ActiveExplorer.Selection For Each olkItem In olkSelectedItems Set objDict = CreateObject("Scripting.Dictionary") If olkItem.Attachments.Count > 0 Then arrLines = Split(olkItem.Body, vbCrLf) For Each varName In arrLines varTemp = Trim(varName) If Left(varTemp, 1) = "*" Then If Not objDict.Exists(varTemp) Then objDict.Add Mid(varTemp, 2), Mid(varTemp, 2) End If End If Next arrLines = objDict.Items() For Each objFile In olkItem.Attachments For Each varName In arrLines strFilename = "c:\OutlookTemp\" & varName objFile.SaveAsFile strFilename Next Next End If Next Set objDict = Nothing Set objFile = Nothing Set olkItem = Nothing Set olkSelectedItems = Nothing End Sub
|how to compare 2 PST files?||3||55|
|exchange , calendar||6||29|
|When X500 email is created and where we can see it?||6||33|
|Wierd issue with missing "FROM" field in Outlook.||7||59|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!