Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
mailto:firstname.lastname@example.org; email@example.com?subject=I need some advice about command line firstname.lastname@example.orgemail@example.com&body=First paragraph.%0A%0ASecond paragraph.%0A%0AThird Paragraph.
Open in new window
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Dim fldr As MAPIFolder
Dim itm As Object
Dim arrFind() As Variant
Dim arrReplace() As Variant
Dim elem As Variant
arrFind = Array("Fred", "Doris", "", "Peter")
arrReplace = Array("First", "Second", "Third", "")
If UBound(arrFind) <> UBound(arrReplace) Then Exit Sub
For Each itm In Application.Session.PickFolder.items
If itm.Class = olMail Then
For elem = LBound(arrFind) To UBound(arrFind)
If arrFind(elem) = "" Then
'Add Datum to beginning
Debug.Print "Add " & arrReplace(elem) & " to the beginning"
itm.body = arrReplace(elem) & vbCrLf & itm.body
ElseIf arrReplace(elem) = "" Then
Debug.Print "Delete " & arrFind(elem) & " throughout"
itm.body = replace(itm.body, arrFind(elem), "", 1, , vbTextCompare)
Debug.Print "Replace " & arrFind(elem) & " with " & arrReplace(elem) & " throughout"
itm.body = replace(itm.body, arrFind(elem), arrReplace(elem), 1, , vbTextCompare)
This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.