Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 18:56:43

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Outlook и VBA
| | |-+  Макрос на отправку листов и файлов через Outlook
Страниц: [1]   Вниз
Печать
Автор Тема: Макрос на отправку листов и файлов через Outlook  (Прочитано 5626 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Gorev
Новичок
*

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

Сообщений: 18


Просмотр профиля 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)
Администратор
Ветеран
*****

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

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



Просмотр профиля 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