Макрос на отправку листов и файлов через Outlook

[Gorev]

Добрый день.

Есть файл в котором много вкладок. Нужна возможность отправки как отдельной вкладки, таки целого файла.

Сделал такой вот код

Код (vb) Выделить Развернуть

Sub SendWorkbook()
    ActiveWorkbook.SendMail Recipients:=Range("A4"), Subject:="тема"
End Sub

Sub SendSheet()
    ActiveSheet.Copy
    With ActiveWorkbook
        .SendMail Recipients:=Range("A4"), Subject:="тема"
        .Close SaveChanges:=False
    End With
End Sub
Вопросы:
1. Как сделать чтобы при отправки отдельной вкладки он создавал файл с именем вкладки, а не просто Книга1
2. Как сделать чтобы вставлялась подпись из Outlook

[Дмитрий Щербаков(The_Prist)]

1. Для этого надо сначала сохранить файл под нужным именем.
2. Данными кодами никак подпись не добавить.

Т.к. тема создана в разделе по Outlook - присмотритесь к возможностям, связанным именно с отправкой через Outlook:
Как отправить письмо из Excel?
Вставить в письмо подпись из Outlook через VBA