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

Вход

Регистрация

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

 

= Мир MS Excel/Как скопировать активные ячейки в тело письма Outlook? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Как скопировать активные ячейки в тело письма Outlook?
Мисрикс Дата: Четверг, 29.05.2014, 15:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте, друзья. Подскажите, как вставить в тело письма определенный Range, желательно сохраняя форматирование ячеек?

Пытаюсь сделать так:

[vba]
Код
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = "misriks@yandex.ru"

dim body as Variant

Range("A1:B2").Activate
body = SelectedCells

olMail.Body = body
olMail.Send
[/vba]
Но приходит пустое письмо =(


Сообщение отредактировал Serge_007 - Четверг, 15.01.2015, 23:26
 
Ответить
СообщениеЗдравствуйте, друзья. Подскажите, как вставить в тело письма определенный Range, желательно сохраняя форматирование ячеек?

Пытаюсь сделать так:

[vba]
Код
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = "misriks@yandex.ru"

dim body as Variant

Range("A1:B2").Activate
body = SelectedCells

olMail.Body = body
olMail.Send
[/vba]
Но приходит пустое письмо =(

Автор - Мисрикс
Дата добавления - 29.05.2014 в 15:05
Rustem Дата: Понедельник, 02.06.2014, 00:42 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 281
Репутация: 48 ±
Замечаний: 0% ±

Excel 2013


WMR: R183220163895
 
Ответить
Сообщениеhttp://msdn.microsoft.com/en-us....1).aspx

Автор - Rustem
Дата добавления - 02.06.2014 в 00:42
AleksFin Дата: Суббота, 03.06.2017, 09:14 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, прекрасно работает
 
Ответить
СообщениеСпасибо, прекрасно работает

Автор - AleksFin
Дата добавления - 03.06.2017 в 09:14
  • Страница 1 из 1
  • 1
Поиск:

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