Sub Save_Attachments1(myItem As Outlook.MailItem)

Set xxx = Application.ActiveExplorer.CurrentFolder ' Тут он выбирает то что активировано в данный момент в аутлуке мной, а не то что обрабатывается правилом
                    ' а надо что бы был "селект" именно на обрабатываемое правилом письмо
MyFolder = "Z:\папка\" & xxx

  Dim a As Outlook.Attachment, i As Long, f As String, m As String
  m = Format(myItem.SentOn, "_yymmdd_hhmmss_") & myItem.SenderName
  For Each a In myItem.Attachments
    With a
      f = .FileName
      i = InStrRev(f, ".")
      If i = 0 Then i = Len(f) + 1
      .SaveAsFile MyFolder & Left(" " & f, i - 1) & "(" & m & .Index & ")" & Mid(f, i)
    End With
  Next

End Sub