Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
Set appOutlook = GetObject(, "Outlook.Application") Set nms = appOutlook.GetNamespace("MAPI") If SelectFolder = True Then Set fld = nms.PickFolder end if lngItemCount = fld.Items.Count For Each itm In fld.Items If itm.Class = 43 Then '43 is the constant olMail Set Safeitm = CreateObject("Redemption.SafeMailItem") Safeitm.Item = itm For Each att In Safeitm.Attachments att.SaveAsFile strFilename Set stm = New ADODB.Stream With stm .Type = adTypeBinary .Open .LoadFromFile strFilename End With Next att 'THE BIT THAT OPENS THE WORD ATTACHMENT, EXTRACTS THE DATA AND CALLS THE STORED PROCEDURE end if If Me.chkDeleteEmail True Then Safeitm.Delete Set Safeitm = Nothing next itm
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.