Отправка книги или листа по электронной почте в формате XPS нескольким получателям + копии - VBA

[Роман Бурдуковский]

Всем привет.
Есть простой макрос для отправки текущего листа по почте:

Sub SendSheet()
ThisWorkbook.Sheets("Лист1").Copy
With ActiveWorkbook
.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"
.Close SaveChanges:=False
End With
End Sub


Помогите, пожалуйста, внести некоторые коррективы:
Необходимо настроить отправку в формате XPS
Необходимо настроить отправку получателям, чьи адреса прописаны в определенных клетках
Необходимо настроить отправку копии получателям, чьи адреса прописаны в определенных клетках

В идеале - настроить отправку не самого файла, а в виде вложенной в письмо таблички с диапазоном (A1:L16)

[Aleksandr H.]

https://msdn.microsoft.com/en-us/lib...ffice.11).aspx