File is big but plz first check my code to make sure that I didn't modify it in wrong way:

Sub Hello()
Dim osld As Slide
Dim L As Long
For Each osld In ActivePresentation.Slides
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).HasTextFrame Then
If osld.Shapes(L).TextFrame.HasText Then
' obviously use their address
If LCase(osld.Shapes(L).TextFrame.TextRange) Like LCase("*email@aa.com*") Then osld.Shapes(L).Delete
End If
End If
Next
Next
End Sub