Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
20.10.2020, 02:57:25

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
31 491 Сообщений в 5 054 Тем от 10 328 Пользователей
Последний пользователь: NevazhnoVladimir
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Outlook и VBA
| | |-+  Макрос на отправку листов и файлов через Outlook
Страниц: [1]   Вниз
Печать
Автор Тема: Макрос на отправку листов и файлов через Outlook  (Прочитано 1660 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Gorev
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 10


Просмотр профиля E-mail
« : 03.09.2020, 13:48:20 »

Добрый день.

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

Сделал такой вот код
Код: (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)
Администратор
Ветеран
*****

Репутация: +450/-0
Офлайн Офлайн

Сообщений: 5 317



Просмотр профиля WWW
« Ответ #1 : 03.09.2020, 14:28:39 »

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

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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru