Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Outlook - отправка графиков и таблиц из Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » Outlook - отправка графиков и таблиц из Excel (Excel)
Outlook - отправка графиков и таблиц из Excel
Rioran Дата: Понедельник, 30.06.2014, 15:30 | Сообщение № 1
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Всем привет и хорошего настроения!

Отправка отчёта из Excel с графиками по Outlook нажатием кнопки? Легко!

Некоторое время назад задавался вопросом, как можно "собирать" отчёты для писем Outlook из графиков и таблиц Excel в форме рисунков. Получил несколько дельных советов, но надеялся, что кто-то принесёт код "на блюде", тёпленький и готовенький. Наивный =)

Сейчас набрался немного опыта, нашёл хороший образец и, капитально переделав, состряпал-таки то, что надо :D Без бритвы Оккама не обошлось.

С радостью делюсь с Вами своей разработкой. Открываем приложенный файл и жмём кнопку - письмо Outlook откроется заполненным у Вас на экране. Чтобы письмо отправлялось сразу, достаточно будет заменить .Display на .Send, комментариями в коде отмечено.

К сообщению приложен файл: Day_Report.xlsm (25.4 Kb)


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279


Сообщение отредактировал Rioran - Понедельник, 30.06.2014, 15:32
 
Ответить
СообщениеВсем привет и хорошего настроения!

Отправка отчёта из Excel с графиками по Outlook нажатием кнопки? Легко!

Некоторое время назад задавался вопросом, как можно "собирать" отчёты для писем Outlook из графиков и таблиц Excel в форме рисунков. Получил несколько дельных советов, но надеялся, что кто-то принесёт код "на блюде", тёпленький и готовенький. Наивный =)

Сейчас набрался немного опыта, нашёл хороший образец и, капитально переделав, состряпал-таки то, что надо :D Без бритвы Оккама не обошлось.

С радостью делюсь с Вами своей разработкой. Открываем приложенный файл и жмём кнопку - письмо Outlook откроется заполненным у Вас на экране. Чтобы письмо отправлялось сразу, достаточно будет заменить .Display на .Send, комментариями в коде отмечено.


Автор - Rioran
Дата добавления - 30.06.2014 в 15:30
anvg Дата: Четверг, 03.07.2014, 17:48 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 581
Репутация: 271 ±
Замечаний: 0% ±

2016, 365
Rioran, доброе время суток
Я имел там ввиду и несколько другое. Извините, сразу ссылку не приложил https://www.rondebruin.nl/win/s1/outlook/bmail3.htm Правда, Display скорее всего работать не будет, да и дописать в htmlbody не получиться, хотя можно будет использовать как заготовку тела письма в вашем варианте без сохранения графиков и объктов в файл.
 
Ответить
СообщениеRioran, доброе время суток
Я имел там ввиду и несколько другое. Извините, сразу ссылку не приложил https://www.rondebruin.nl/win/s1/outlook/bmail3.htm Правда, Display скорее всего работать не будет, да и дописать в htmlbody не получиться, хотя можно будет использовать как заготовку тела письма в вашем варианте без сохранения графиков и объктов в файл.

Автор - anvg
Дата добавления - 03.07.2014 в 17:48
Rioran Дата: Четверг, 03.07.2014, 21:14 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
anvg, честно говоря сейчас не понимаю, о чём речь. Наверно, чего-то не помню.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщениеanvg, честно говоря сейчас не понимаю, о чём речь. Наверно, чего-то не помню.

Автор - Rioran
Дата добавления - 03.07.2014 в 21:14
fairguy Дата: Пятница, 29.08.2014, 09:32 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
зашибись тема :)
я в vba полный нооооль,посоветуте курс или сайт для начинающия


FG
 
Ответить
Сообщениезашибись тема :)
я в vba полный нооооль,посоветуте курс или сайт для начинающия

Автор - fairguy
Дата добавления - 29.08.2014 в 09:32
Rioran Дата: Среда, 03.09.2014, 13:48 | Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
anvg, проверил метод MailEnvelope (кстати, Ваша ссылка для меня не рабочая).

Классная вещь, попробовал. В моём примере ниже для моментальной отправки можно заменить .display на .send. Да, Сергей, дисплей всё-таки работает. Если выбран .display - то... тут я был весьма удивлён... мы увидим заготовку Outlook письма прямо над строкой формул Excel. Почтовое меню с аскетичным (сильно урезанным) набором опций, но тем не менее всё весьма функционально. Отправляет либо выделенную область, либо лист целиком. В моём примере выделено несколько первых ячеек. Что интересно, таблица отправляется с сохранением форматов - цвет, границы, шрифты и т.д.

[vba]
Код
Sub Send_Range()

ActiveSheet.Range("A1:E5").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
       .Introduction = "This is an example from official Microsoft site, slightly modified by Rioran."
       .Item.To = "voronov_rv@mail.ru"
       .Item.Subject = "Rio_Test"
       .Item.display
End With

End Sub
[/vba]
fairguy, поздравляю, Вы уже на таком сайте. Полистайте наши статьи, там много полезного.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279


Сообщение отредактировал Rioran - Среда, 03.09.2014, 13:50
 
Ответить
Сообщениеanvg, проверил метод MailEnvelope (кстати, Ваша ссылка для меня не рабочая).

Классная вещь, попробовал. В моём примере ниже для моментальной отправки можно заменить .display на .send. Да, Сергей, дисплей всё-таки работает. Если выбран .display - то... тут я был весьма удивлён... мы увидим заготовку Outlook письма прямо над строкой формул Excel. Почтовое меню с аскетичным (сильно урезанным) набором опций, но тем не менее всё весьма функционально. Отправляет либо выделенную область, либо лист целиком. В моём примере выделено несколько первых ячеек. Что интересно, таблица отправляется с сохранением форматов - цвет, границы, шрифты и т.д.

[vba]
Код
Sub Send_Range()

ActiveSheet.Range("A1:E5").Select
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
       .Introduction = "This is an example from official Microsoft site, slightly modified by Rioran."
       .Item.To = "voronov_rv@mail.ru"
       .Item.Subject = "Rio_Test"
       .Item.display
End With

End Sub
[/vba]
fairguy, поздравляю, Вы уже на таком сайте. Полистайте наши статьи, там много полезного.

Автор - Rioran
Дата добавления - 03.09.2014 в 13:48
partyboy Дата: Вторник, 17.02.2015, 12:44 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
День добрый.
Товарищи!
Подскажите пожалуйста. Как забирать несколько графиков, а не один? Конечно можно просто продублировать функцию для каждого из них, но так думаю не особо правильно будет
 
Ответить
СообщениеДень добрый.
Товарищи!
Подскажите пожалуйста. Как забирать несколько графиков, а не один? Конечно можно просто продублировать функцию для каждого из них, но так думаю не особо правильно будет

Автор - partyboy
Дата добавления - 17.02.2015 в 12:44
Rioran Дата: Вторник, 17.02.2015, 13:32 | Сообщение № 7
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
partyboy, можно построить цикл, который бы перебирал .Shapes, для этого в макрос GetPic можно добавить параметр номера подтягиваемого графика.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщениеpartyboy, можно построить цикл, который бы перебирал .Shapes, для этого в макрос GetPic можно добавить параметр номера подтягиваемого графика.

Автор - Rioran
Дата добавления - 17.02.2015 в 13:32
lightcity Дата: Среда, 18.02.2015, 17:18 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Rioran, Добрый день!
Поковырял немного ваш макрос и застрял на вопросе, как добавить в строке 21 столбцов (А-Н). Подскажите сирым.


VV
 
Ответить
СообщениеRioran, Добрый день!
Поковырял немного ваш макрос и застрял на вопросе, как добавить в строке 21 столбцов (А-Н). Подскажите сирым.

Автор - lightcity
Дата добавления - 18.02.2015 в 17:18
lightcity Дата: Среда, 18.02.2015, 17:44 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
В моём примере выделено несколько первых ячеек.


А можно ли сделать чтобы после отправки строки сообщение переходило на следующую строку?


VV
 
Ответить
Сообщение
В моём примере выделено несколько первых ячеек.


А можно ли сделать чтобы после отправки строки сообщение переходило на следующую строку?

Автор - lightcity
Дата добавления - 18.02.2015 в 17:44
Rioran Дата: Среда, 18.02.2015, 17:52 | Сообщение № 10
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
lightcity, здравствуйте.

как добавить в строке 21 столбцов

Вы хотите, что бы было больше текстовых ячеек, из которых тянется комментарий в письмо?

сделать чтобы после отправки строки сообщение переходило на следующую строку

Вы хотите, чтобы отправленные комментарии смещались вниз, я правильно понял?


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщениеlightcity, здравствуйте.

как добавить в строке 21 столбцов

Вы хотите, что бы было больше текстовых ячеек, из которых тянется комментарий в письмо?

сделать чтобы после отправки строки сообщение переходило на следующую строку

Вы хотите, чтобы отправленные комментарии смещались вниз, я правильно понял?

Автор - Rioran
Дата добавления - 18.02.2015 в 17:52
lightcity Дата: Четверг, 19.02.2015, 16:25 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
да былобы замечательно.


VV
 
Ответить
Сообщениеда былобы замечательно.

Автор - lightcity
Дата добавления - 19.02.2015 в 16:25
lightcity Дата: Четверг, 19.02.2015, 16:27 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
или после отправки строка удалялась


VV
 
Ответить
Сообщениеили после отправки строка удалялась

Автор - lightcity
Дата добавления - 19.02.2015 в 16:27
Rioran Дата: Четверг, 19.02.2015, 17:53 | Сообщение № 13
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
lightcity, уверен, Вы легко сделаете такую доработку самостоятельно, если поймёте 2 принципа:

1) Принцип конкатенации текста (на деле гораздо проще, чем звучит). Запрос в гугл "vba excel конкатенация текста". Или нажмите на ССЫЛКУ.
2) Изменение значения ячейки. Самая базовая вещь в EXCEL VBA.

Мне не интересно делать такие простые доработки, но если у Вас возникнут затруднения в конкретном месте - с радостью подскажу.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщениеlightcity, уверен, Вы легко сделаете такую доработку самостоятельно, если поймёте 2 принципа:

1) Принцип конкатенации текста (на деле гораздо проще, чем звучит). Запрос в гугл "vba excel конкатенация текста". Или нажмите на ССЫЛКУ.
2) Изменение значения ячейки. Самая базовая вещь в EXCEL VBA.

Мне не интересно делать такие простые доработки, но если у Вас возникнут затруднения в конкретном месте - с радостью подскажу.

Автор - Rioran
Дата добавления - 19.02.2015 в 17:53
lightcity Дата: Четверг, 19.02.2015, 18:29 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
спасибо! буду дорабатывать


VV
 
Ответить
Сообщениеспасибо! буду дорабатывать

Автор - lightcity
Дата добавления - 19.02.2015 в 18:29
Nikkko Дата: Вторник, 31.03.2015, 19:00 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем доброго время суток
При копировании диаграмма получает рамку, как копировать без рамки ?
 
Ответить
СообщениеВсем доброго время суток
При копировании диаграмма получает рамку, как копировать без рамки ?

Автор - Nikkko
Дата добавления - 31.03.2015 в 19:00
Rioran Дата: Среда, 01.04.2015, 14:48 | Сообщение № 16
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Nikkko, здравствуйте.

Можно в свойствах диаграммы для контура задать значение - "без контура". При копировании останется слабая линия по нижней и правой границам.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеNikkko, здравствуйте.

Можно в свойствах диаграммы для контура задать значение - "без контура". При копировании останется слабая линия по нижней и правой границам.

Автор - Rioran
Дата добавления - 01.04.2015 в 14:48
duckky Дата: Пятница, 22.05.2015, 10:48 | Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Подскажите, можно ли сделать, чтобы файл по нажатию кнопки отправлялся в формате pdf, при чём при составлении pdf-файла выбирались определённые листы?
 
Ответить
СообщениеПодскажите, можно ли сделать, чтобы файл по нажатию кнопки отправлялся в формате pdf, при чём при составлении pdf-файла выбирались определённые листы?

Автор - duckky
Дата добавления - 22.05.2015 в 10:48
Мир MS Excel » Вопросы и решения » Готовые решения » Outlook - отправка графиков и таблиц из Excel (Excel)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!