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

Вход

Регистрация

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

 

= Мир MS Excel/Отправка сообщения макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Отправка сообщения макросом
ОлеггелО Дата: Вторник, 08.12.2015, 19:46 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

Здравствуйте! На этом форуме нашёл макрос (спасибо автору! ) отправки сообщения из Excel через Outlook - устраивает по всем параметрам! Но, при его работе для окончательной отправки сообщения требуется нажать на появившейся в Excel форме кнопку "Отправить выделенные элементы". Как сделать программное нажатие этой кнопки?
[vba]
Код
Sub Send_Range()

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

With ActiveSheet.MailEnvelope
    .Introduction = ""
    .Item.To = "oleganatolewich1@rambler.ru"
    .Item.Subject = "Тестирование отправки листа"
    .Item.display
End With

End Sub
[/vba]
К сообщению приложен файл: 4580621.xlsm (15.1 Kb)
 
Ответить
СообщениеЗдравствуйте! На этом форуме нашёл макрос (спасибо автору! ) отправки сообщения из Excel через Outlook - устраивает по всем параметрам! Но, при его работе для окончательной отправки сообщения требуется нажать на появившейся в Excel форме кнопку "Отправить выделенные элементы". Как сделать программное нажатие этой кнопки?
[vba]
Код
Sub Send_Range()

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

With ActiveSheet.MailEnvelope
    .Introduction = ""
    .Item.To = "oleganatolewich1@rambler.ru"
    .Item.Subject = "Тестирование отправки листа"
    .Item.display
End With

End Sub
[/vba]

Автор - ОлеггелО
Дата добавления - 08.12.2015 в 19:46
ОлеггелО Дата: Вторник, 08.12.2015, 20:22 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

RAN, Да, ссылочку на автора конечно не грех! Но помню что нашёл на этом форуме а в какой ветке? Нашёл-то практически случайно. Вспомнил, что Rioran там выкладывал макрос отправки сообщения из Excel через Outlook, а этот макрос кто-то ещё показал, кажется.
 
Ответить
СообщениеRAN, Да, ссылочку на автора конечно не грех! Но помню что нашёл на этом форуме а в какой ветке? Нашёл-то практически случайно. Вспомнил, что Rioran там выкладывал макрос отправки сообщения из Excel через Outlook, а этот макрос кто-то ещё показал, кажется.

Автор - ОлеггелО
Дата добавления - 08.12.2015 в 20:22
nilem Дата: Вторник, 08.12.2015, 20:28 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
может добавить
[vba]
Код
.Item.send
[/vba]

Олег, случайно отправил Вам письмо. Сорри
а готовое реш-е здесь
или даже тут


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 08.12.2015, 20:35
 
Ответить
Сообщениеможет добавить
[vba]
Код
.Item.send
[/vba]

Олег, случайно отправил Вам письмо. Сорри
а готовое реш-е здесь
или даже тут

Автор - nilem
Дата добавления - 08.12.2015 в 20:28
ОлеггелО Дата: Вторник, 08.12.2015, 20:38 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 129
Репутация: 20 ±
Замечаний: 0% ±

nilem, Всё точно! Работает! Спасибо!
P.S. Приношу свои извинения модератору за открытие этой темы не в соответствующем разделе! Недоглядел.
 
Ответить
Сообщениеnilem, Всё точно! Работает! Спасибо!
P.S. Приношу свои извинения модератору за открытие этой темы не в соответствующем разделе! Недоглядел.

Автор - ОлеггелО
Дата добавления - 08.12.2015 в 20:38
  • Страница 1 из 1
  • 1
Поиск:

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