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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка текста в тело письма outlook - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Вставка текста в тело письма outlook (Макросы/Sub)
Вставка текста в тело письма outlook
viktorflam Дата: Вторник, 26.01.2016, 17:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Добрый вечер товарищи профессионалы и эксперты по VBA скриптам!

В организации всю электронную почту получает и сортирует секретарь руководителя, важные письма она пересылает руководителю для принятия по ним решения. Руководитель нажимает кнопку переслать, руками пишет фамилии исполнителей (иванов, петров, сидоров) и отправляет назад секретарю. Секретарь пересылает исполнителям и устанавливает сроки исполнения документа, она же отслеживает исполнение его.

Какое-то время руководитель писал руками фамилии, потом устал и поставил задачу сделать ему кнопки с фамилиями, нажимая на которые эти фамилии будут добавляться в тело пересылаемого письма, но как это сделать не объяснил)))

А я теперь сижу и ломаю голову...

Вот такая простенькая задача, только у меня нет ни опыта не навыков в этом деле, а самое интересное я не нашел ни одного подобного примера...
[moder]Зачем дублируете темы? Первую закрываю, раз уж здесь есть ответ[/moder]


Сообщение отредактировал Pelena - Вторник, 26.01.2016, 17:49
 
Ответить
СообщениеДобрый вечер товарищи профессионалы и эксперты по VBA скриптам!

В организации всю электронную почту получает и сортирует секретарь руководителя, важные письма она пересылает руководителю для принятия по ним решения. Руководитель нажимает кнопку переслать, руками пишет фамилии исполнителей (иванов, петров, сидоров) и отправляет назад секретарю. Секретарь пересылает исполнителям и устанавливает сроки исполнения документа, она же отслеживает исполнение его.

Какое-то время руководитель писал руками фамилии, потом устал и поставил задачу сделать ему кнопки с фамилиями, нажимая на которые эти фамилии будут добавляться в тело пересылаемого письма, но как это сделать не объяснил)))

А я теперь сижу и ломаю голову...

Вот такая простенькая задача, только у меня нет ни опыта не навыков в этом деле, а самое интересное я не нашел ни одного подобного примера...
[moder]Зачем дублируете темы? Первую закрываю, раз уж здесь есть ответ[/moder]

Автор - viktorflam
Дата добавления - 26.01.2016 в 17:12
Nic70y Дата: Вторник, 26.01.2016, 17:23 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4121
Репутация: 881 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub рассылка_2()
    Application.ScreenUpdating = 0
Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail
'==============================================================================
'адрес получателя
.To = Cells(7, 11)
'==============================================================================
'текст письма
.Body = Cells(7, 14)
'==============================================================================
'тема письма
.Subject = Cells(2, 2)
'==============================================================================
'файл вложение (если есть - прикладываем)
    If [b4] <> "" Then
.Attachments.Add Cells(33, 11).Value
    End If
'==============================================================================
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub
https://help.yandex.ru/mail....ok-imap
[/vba]
Cells(7, 11) = 7строка 11 столбец = K7


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[vba]
Код
Sub рассылка_2()
    Application.ScreenUpdating = 0
Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail
'==============================================================================
'адрес получателя
.To = Cells(7, 11)
'==============================================================================
'текст письма
.Body = Cells(7, 14)
'==============================================================================
'тема письма
.Subject = Cells(2, 2)
'==============================================================================
'файл вложение (если есть - прикладываем)
    If [b4] <> "" Then
.Attachments.Add Cells(33, 11).Value
    End If
'==============================================================================
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub
https://help.yandex.ru/mail....ok-imap
[/vba]
Cells(7, 11) = 7строка 11 столбец = K7

Автор - Nic70y
Дата добавления - 26.01.2016 в 17:23
viktorflam Дата: Вторник, 26.01.2016, 19:41 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Cells(7, 11) = 7строка 11 столбец = K7

Если я правильно понял, это берется из таблицы excel, а как её сюда прикрутить?
 
Ответить
Сообщение
Cells(7, 11) = 7строка 11 столбец = K7

Если я правильно понял, это берется из таблицы excel, а как её сюда прикрутить?

Автор - viktorflam
Дата добавления - 26.01.2016 в 19:41
Nic70y Дата: Вторник, 26.01.2016, 20:09 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4121
Репутация: 881 ±
Замечаний: 0% ±

Excel 2013
сюда
куда это сюда?
да, это макрос для эксель, который отправляет письма через Outlook.
тема перенесена вроде...


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение
сюда
куда это сюда?
да, это макрос для эксель, который отправляет письма через Outlook.
тема перенесена вроде...

Автор - Nic70y
Дата добавления - 26.01.2016 в 20:09
viktorflam Дата: Вторник, 26.01.2016, 20:37 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

тему переместили в outlook, только она тут вялая какая-то...

макрос для эксель

а если идти от обратного? может скрипт читать текст из ячейки и помещать его в тело письма?

а вообще я так сам себе думаю, если скрипт работает в excel'e то должен работать и в outlook'e, ведь среда у них одна и та же... или я что-то путаю?


Сообщение отредактировал viktorflam - Вторник, 26.01.2016, 20:40
 
Ответить
Сообщениетему переместили в outlook, только она тут вялая какая-то...

макрос для эксель

а если идти от обратного? может скрипт читать текст из ячейки и помещать его в тело письма?

а вообще я так сам себе думаю, если скрипт работает в excel'e то должен работать и в outlook'e, ведь среда у них одна и та же... или я что-то путаю?

Автор - viktorflam
Дата добавления - 26.01.2016 в 20:37
Nic70y Дата: Вторник, 26.01.2016, 21:52 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4121
Репутация: 881 ±
Замечаний: 0% ±

Excel 2013
может скрипт читать текст из ячейки и помещать его в тело письма?

'текст письма
.Body = Cells(7, 14)

то должен работать и в outlook'e
не соображаю в этом:(
ну этот код в outlook'e точно не будет работать.


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение
может скрипт читать текст из ячейки и помещать его в тело письма?

'текст письма
.Body = Cells(7, 14)

то должен работать и в outlook'e
не соображаю в этом:(
ну этот код в outlook'e точно не будет работать.

Автор - Nic70y
Дата добавления - 26.01.2016 в 21:52
viktorflam Дата: Среда, 27.01.2016, 21:49 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, http://www.outlookcode.com/codedetail.aspx?id=141 тут что-то подобное, посмотри, поможет мне?
 
Ответить
СообщениеNic70y, http://www.outlookcode.com/codedetail.aspx?id=141 тут что-то подобное, посмотри, поможет мне?

Автор - viktorflam
Дата добавления - 27.01.2016 в 21:49
Nic70y Дата: Пятница, 29.01.2016, 21:31 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4121
Репутация: 881 ±
Замечаний: 0% ±

Excel 2013
посмотри, поможет мне?

не соображаю в этом:(

Макрос, который я выложил, был у меня в файле, кроме него
был список имейлов, имя, обращение (типа Уважаемый), статус, основной текст.
циклом проходил и отправлял письмо каждому с ссот. именем и обращением.
Файл сломался вместе с системой, да и мне он не нужен - делал для других (по этому и не восстанавливал),
остался этот макрос в блокноте вот я его и скопипастил, т.к. тема была в ВБА,
если бы она изначально была в outlook, то и не отвечал бы, т.к. им вообще не пользуюсь и не соображаю


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение
посмотри, поможет мне?

не соображаю в этом:(

Макрос, который я выложил, был у меня в файле, кроме него
был список имейлов, имя, обращение (типа Уважаемый), статус, основной текст.
циклом проходил и отправлял письмо каждому с ссот. именем и обращением.
Файл сломался вместе с системой, да и мне он не нужен - делал для других (по этому и не восстанавливал),
остался этот макрос в блокноте вот я его и скопипастил, т.к. тема была в ВБА,
если бы она изначально была в outlook, то и не отвечал бы, т.к. им вообще не пользуюсь и не соображаю

Автор - Nic70y
Дата добавления - 29.01.2016 в 21:31
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Вставка текста в тело письма outlook (Макросы/Sub)
Страница 1 из 11
Поиск:

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