|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
06.10.2009, 17:35 | #1 |
Новичок
Джуниор
Регистрация: 06.10.2009
Сообщений: 2
|
Отправка почты макросом Excel
Добрый день!
Есть таблица на листе Excel. Подскажите как с помощью макроса отправить ее письмом или сам лист, но не как вложенный файл xls. Sub mai() ActiveSheet.Select Set OutlookApp = CreateObject("Outlook.Application") Set SM = OutlookApp.CreateItem(olMailItem) SM.To = "address@address.ru" SM.Subject = "Тема" SM.Body = ActiveSheet.Range("A1:D8").Value 'Вот здесь как отобразить диапозон, не знаю? On Error Resume Next SM.Send Set SM = Nothing Set OutlookApp = Nothing End sub |
06.10.2009, 17:55 | #2 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
В виде текста? Картинки? Ещё как-то? К письму можно прикрепить файл. А таблицу Excel (или лист excel) весьма сложно сохранить во что-то, не являющееся файлом... Цитата:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 12.01.2013 в 10:15. |
||
07.10.2009, 11:21 | #3 | |
Новичок
Джуниор
Регистрация: 06.10.2009
Сообщений: 2
|
Цитата:
Наглядный пример, в Excel выбрать Файл- Отправить- Сообщение. |
|
13.10.2009, 09:47 | #4 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
Мне тоже интеересно !
Но только немного не так. отправить "сообщение как вложение" |
10.02.2010, 18:14 | #5 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
Ребята а макрос не вставляет подпись в письмо. Хотя она есть в аутлуке
|
11.03.2010, 11:46 | #6 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
Вот макрос который отправляет почту
Dim OutlookApp As Object, SM As Object Set OutlookApp = CreateObject("Outlook.Application") Set SM = OutlookApp.CreateItem(olMailItem) SM.To = emailTo SM.Ññ = emailCc SM.Subject = TextDoTemy On Error Resume Next SM.Send 'OutlookApp.Quit Set SM = Nothing Set OutlookApp = Nothing Что нужно дописать чтоб макросом вставлялся копия листа с книги в почту???????? |
11.03.2010, 12:01 | #7 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Сначала копируете лист с сохранением, а затем указываете сохраненную книгу как вложение:
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
11.03.2010, 12:08 | #8 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
|
11.03.2010, 14:06 | #9 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
И мне интересно...
Только мне хотелась бы так. Работаю в открытой книги, Лист1, Лист2, Лист3,....., там у меня таблицы, создать кнопку, "ПОЧТА", нажал и книга, только с двумя Листами отправилась по адресату. Может кнопка "ПОЧТА" и определяет количества листов отправляемых по почте, т. е. стоит кнопка "ПОЧТА" на втором листе, значит отправить два листа, на третьем -три...... Хочу заменить факс, на почту. Только не через проги, типа Outlook.... Последний раз редактировалось valerij; 11.03.2010 в 14:12. |
11.03.2010, 15:27 | #10 | |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Цитата:
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отправка почты | Fess | HTML и CSS | 15 | 11.03.2010 20:24 |
Отправка почты | Fo][ | Работа с сетью в Delphi | 1 | 20.01.2009 23:15 |
отправка почты? | gusluk | Работа с сетью в Delphi | 2 | 17.11.2008 07:45 |
Отправка почты | Fenix Nexsais | Работа с сетью в Delphi | 5 | 06.09.2007 22:27 |
Отправка почты | Mikola | PHP | 4 | 12.08.2007 04:17 |