Visual Basic para Aplicaciones - Enviar Mail vía Outlook con Filtros

' Abrir Archivo de Datos

Workbooks.Open "G:\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx"

'Filtros Avanzados

ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=3, Criteria1:= _

        "COLÓN"

ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=9, Criteria1:= _

        "OK"

ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=10, Criteria1:="="

ActiveSheet.Range("B:F").Select

'Enviar Mail  

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

      .Introduction = "A continuación se envian Mejoras Continuas"

      .Item.To = "Dirección de Mail"

      .Item.Subject = "Asunto"

      .Item.Send

   End With

'Desfiltrado

Application.CutCopyMode = False

    ActiveSheet.ShowAllData