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

Вход

Регистрация

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

 

= Мир MS Excel/Отправка формы (нескольким адресатам) через Outlook - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Отправка формы (нескольким адресатам) через Outlook (Макросы/Sub)
Отправка формы (нескольким адресатам) через Outlook
Netsky Дата: Среда, 18.01.2017, 10:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
В продолжении темы про макрос который отправляет определенную форму письма нескольким адресатам (указаны на листе Список). Начало обсуждения было здесь: Ссылка на ExcelWorld.ru
Суть в следующем: При Просмотре отправляемого письма, оно формируется правильно, таблица отображается именно такой какая она в Excel, но если исключать просмотр и сразу нажимать на кнопку "Отпра" письмо будет приходить без границ и форматирования ячеек (синяя заливка шапки таблицы и отсутствие границ таблицы), никак не могу понять в чем причина, файл с примером прилагаю.
К сообщению приложен файл: 7312264.xlsm (36.4 Kb)
 
Ответить
СообщениеВ продолжении темы про макрос который отправляет определенную форму письма нескольким адресатам (указаны на листе Список). Начало обсуждения было здесь: Ссылка на ExcelWorld.ru
Суть в следующем: При Просмотре отправляемого письма, оно формируется правильно, таблица отображается именно такой какая она в Excel, но если исключать просмотр и сразу нажимать на кнопку "Отпра" письмо будет приходить без границ и форматирования ячеек (синяя заливка шапки таблицы и отсутствие границ таблицы), никак не могу понять в чем причина, файл с примером прилагаю.

Автор - Netsky
Дата добавления - 18.01.2017 в 10:29
Netsky Дата: Четверг, 19.01.2017, 07:55 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Модераторы прошу перенести данную тему в раздел "Вопросы по VBA", т.к. рассылка осуществляется путем выполнения VBA кода.
Благодарю!


Сообщение отредактировал Netsky - Четверг, 19.01.2017, 09:56
 
Ответить
СообщениеМодераторы прошу перенести данную тему в раздел "Вопросы по VBA", т.к. рассылка осуществляется путем выполнения VBA кода.
Благодарю!

Автор - Netsky
Дата добавления - 19.01.2017 в 07:55
sboy Дата: Четверг, 19.01.2017, 13:15 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Netsky, Добрый день.
А принципиально отправлять таблицу в теле письма?
Можно реализовать отправку pdf файла


Яндекс: 410016850021169
 
Ответить
СообщениеNetsky, Добрый день.
А принципиально отправлять таблицу в теле письма?
Можно реализовать отправку pdf файла

Автор - sboy
Дата добавления - 19.01.2017 в 13:15
Netsky Дата: Четверг, 19.01.2017, 13:18 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
А принципиально отправлять таблицу в теле письма?

Не принципиально, просто начал уже с телом письма мудрить код и столкнулся с такой проблемой. Если подскажите как еще можно с удовольствием приму вашу версию)
 
Ответить
Сообщение
А принципиально отправлять таблицу в теле письма?

Не принципиально, просто начал уже с телом письма мудрить код и столкнулся с такой проблемой. Если подскажите как еще можно с удовольствием приму вашу версию)

Автор - Netsky
Дата добавления - 19.01.2017 в 13:18
sboy Дата: Четверг, 19.01.2017, 14:13 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Попробуйте, проверить не могу (ругается на отсутствие какой-то библиотеки у меня)
[vba]
Код
Sub старт_отправить()
i = 2
Do While Worksheets("Список").Cells(i, 1) <> ""
Mail_name = Worksheets("Список").Cells(i, 1)
snf = Environ$("temp") & "\1.pdf"
'Run "отправить", i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        snf, Quality:=xlQualityStandard, IncludeDocProperties _
        :=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
            Set OutApp = CreateObject("Outlook.Application")
                OutApp.Session.Logon
                Set OutMail = OutApp.CreateItem(0)
                            With OutMail
                    .To = Mail_name
                    .CC = ""
                    .Subject = ""
                    .Body = ""
                    .Attachments.Add snf
                    .Send
                            End With
                Set OutMail = Nothing
                Set OutApp = Nothing
        Kill snf
    i = i + 1
Loop
MsgBox "Отправка писем завершена"
End Sub
[/vba]
К сообщению приложен файл: 1542461.xlsm (33.0 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеПопробуйте, проверить не могу (ругается на отсутствие какой-то библиотеки у меня)
[vba]
Код
Sub старт_отправить()
i = 2
Do While Worksheets("Список").Cells(i, 1) <> ""
Mail_name = Worksheets("Список").Cells(i, 1)
snf = Environ$("temp") & "\1.pdf"
'Run "отправить", i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        snf, Quality:=xlQualityStandard, IncludeDocProperties _
        :=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
            Set OutApp = CreateObject("Outlook.Application")
                OutApp.Session.Logon
                Set OutMail = OutApp.CreateItem(0)
                            With OutMail
                    .To = Mail_name
                    .CC = ""
                    .Subject = ""
                    .Body = ""
                    .Attachments.Add snf
                    .Send
                            End With
                Set OutMail = Nothing
                Set OutApp = Nothing
        Kill snf
    i = i + 1
Loop
MsgBox "Отправка писем завершена"
End Sub
[/vba]

Автор - sboy
Дата добавления - 19.01.2017 в 14:13
Netsky Дата: Четверг, 19.01.2017, 14:30 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Попробуйте, проверить не могу (ругается на отсутствие какой-то библиотеки у меня)

Проверил, работает в целом хорошо, вот только при тесте выяснил что такой вариант к сожалению не дает полного представления информации. За помощь спасибо, буду еще стараться скорректировать код для отправки в теле письма.
 
Ответить
Сообщение
Попробуйте, проверить не могу (ругается на отсутствие какой-то библиотеки у меня)

Проверил, работает в целом хорошо, вот только при тесте выяснил что такой вариант к сожалению не дает полного представления информации. За помощь спасибо, буду еще стараться скорректировать код для отправки в теле письма.

Автор - Netsky
Дата добавления - 19.01.2017 в 14:30
Netsky Дата: Понедельник, 23.01.2017, 15:16 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Есть еще варианты у форумчан, я полагаю многие здесь пользуются данным кодом.
 
Ответить
СообщениеЕсть еще варианты у форумчан, я полагаю многие здесь пользуются данным кодом.

Автор - Netsky
Дата добавления - 23.01.2017 в 15:16
RinaUg Дата: Четверг, 07.09.2017, 11:08 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Вы даже не представляете как помогли чудо-файлом! Очень долго искали что-то подобное для Outlook.
Есть вопрос - по этому шаблону отправляется одно и то же письмо на разные адреса. А можно настроить файл так, чтобы он подтягивал отдельную информацию по сотрудникам (аналог MailMerge).
Например. Мне нужно задать единый текст письма, но чтобы конкретному адресу подтягивались его имя и индивидуальная ссылка.
Буду безмерно благодарна, если сможете помочь)))
 
Ответить
СообщениеДобрый день!
Вы даже не представляете как помогли чудо-файлом! Очень долго искали что-то подобное для Outlook.
Есть вопрос - по этому шаблону отправляется одно и то же письмо на разные адреса. А можно настроить файл так, чтобы он подтягивал отдельную информацию по сотрудникам (аналог MailMerge).
Например. Мне нужно задать единый текст письма, но чтобы конкретному адресу подтягивались его имя и индивидуальная ссылка.
Буду безмерно благодарна, если сможете помочь)))

Автор - RinaUg
Дата добавления - 07.09.2017 в 11:08
sboy Дата: Четверг, 07.09.2017, 16:26 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
RinaUg, Помочь, наверно сможем.
Создайте свою тему, приложите файл пример


Яндекс: 410016850021169
 
Ответить
СообщениеRinaUg, Помочь, наверно сможем.
Создайте свою тему, приложите файл пример

Автор - sboy
Дата добавления - 07.09.2017 в 16:26
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Отправка формы (нескольким адресатам) через Outlook (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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