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

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос на отправку формы (нескольким адресатам)через Outlook (Макросы/Sub)

Макрос на отправку формы (нескольким адресатам)через Outlook

Дата: Вторник, 10.01.2017, 10:23 | Сообщение № 1

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток уважаемые форумчане, имеется макрос на отправку писем по заданным адресам, проблема в том, что он отправляет только лишь ячейки С8:С13, что в коде нужно исправить для того чтобы отправлялся весь диапазон (С8:Н16), файл с примером приложил.

К сообщению приложен файл: ___.xlsm (32.8 Kb)

Сообщение отредактировал Netsky - Вторник, 10.01.2017, 10:27

Ответить

Дата: Вторник, 10.01.2017, 11:16 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

вот в этой строчке:
[vba]

Код

.Body = Worksheets("Список").Cells(2, 2) & Chr(10) & Chr(10) & Worksheets("Главная").Cells(8, 3) & Chr(10) & Chr(9) & Worksheets("Главная").Cells(9, 3) & Chr(10) & Chr(10) & Worksheets("Главная").Cells(10, 3) & Chr(10) & Worksheets("Главная").Cells(11, 3) & Chr(10) & Worksheets("Главная").Cells(12, 3) & Chr(10) & Worksheets("Главная").Cells(13, 3) 'ActiveDocument.Content

[/vba]
вы задаете текст который отобразиться в теле письма
[vba]

Код

Chr(10)

[/vba] это переход на след.строку
[vba]

Код

Worksheets("Главная").Cells(11, 3)

[/vba] это текст из ячейки 11я строка, 3 столбец

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Вторник, 10.01.2017, 11:22 | Сообщение № 3

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата K-SerJC, 10.01.2017 в 11:16, в сообщении № 2 ()

вот в этой строчке:

Я правильно Вас понял, каждую ячейку необходимо прописать отдельно? Или есть вариант указать диапазон ячеек?

Ответить

Дата: Вторник, 10.01.2017, 11:23 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

добавляем ЮДФку RangetoHTML - отсюда
И меняем строку :
[vba]

Код

.Body = Worksheets("Список").Cells(2, 2) & Chr(10) & Chr(10) & Worksheets("Главная").Cells(8, 3) & Chr(10) & Chr(9) & Worksheets("Главная").Cells(9, 3) & Chr(10) & Chr(10) & Worksheets("Главная").Cells(10, 3) & Chr(10) & Worksheets("Главная").Cells(11, 3) & Chr(10) & Worksheets("Главная").Cells(12, 3) & Chr(10) & Worksheets("Главная").Cells(13, 3) 'ActiveDocument.Content

[/vba]
на
[vba]

Код

.HTMLBody = RangetoHTML(Worksheets("Главная").Range("c8:h16"))

[/vba]

К сообщению приложен файл: -2-2017-01-10_1.xlsm (35.0 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Вторник, 10.01.2017, 12:02 | Сообщение № 5

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата SLAVICK, 10.01.2017 в 11:23, в сообщении № 4 ()

добавляем ЮДФку RangetoHTML

Скажите пожалуйста как это сделать, к сожалению ранее никогда не сталкивался с этим и поиск в гугле инфу не выдает.

Ответить

Дата: Вторник, 10.01.2017, 12:13 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Netsky, 10.01.2017 в 12:02, в сообщении № 5 ()

Скажите пожалуйста как это сделать

В файле я уже все сделал.(см. вложение из поста №4)
я поменял строки в процедуре "просмотр"

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Вторник, 10.01.2017, 12:57 | Сообщение № 7

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата SLAVICK, 10.01.2017 в 12:13, в сообщении № 6 ()

В файле я уже все сделал.

SLAVICK, Уважаемый модератор, макрос выдает ошибку: Can't find project library, запускал с двух разных компьютеров, в чем может быть причина?

Сообщение отредактировал Netsky - Вторник, 10.01.2017, 14:28

Ответить

Дата: Вторник, 10.01.2017, 15:33 | Сообщение № 8

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Netsky, 10.01.2017 в 12:57, в сообщении № 7 ()

макрос выдает ошибку

на какой строке?

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Вторник, 10.01.2017, 15:36 | Сообщение № 9

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

SLAVICK,

Цитата SLAVICK, 10.01.2017 в 15:33, в сообщении № 8 ()

на какой строке?

Макрос: Просмотр, строка Dim oOutlookApp As Outlook.Application

Ответить

Дата: Вторник, 10.01.2017, 15:48 | Сообщение № 10

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

вы из файла примера запускаете код?
если нет - нужно подключить библиотеку:
tools -- references - - Microsoft Outlook ....

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Вторник, 10.01.2017, 15:53 | Сообщение № 11

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата SLAVICK, 10.01.2017 в 15:48, в сообщении № 10 ()

вы из файла примера запускаете код?
если нет - нужно подключить библиотеку:
tools -- references - - Microsoft Outlook ....

Запускаю именно из примера, и в Excel 2013 нет "tools -- references - - Microsoft Outlook ...." Дайте волшебного пинка, направьте пожалуйста.

Ответить

Дата: Вторник, 10.01.2017, 17:57 | Сообщение № 12

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Netsky, 10.01.2017 в 15:53, в сообщении № 11 ()

Запускаю именно из примера

тогда должно работать - а почтовик какой установлен?

Цитата Netsky, 10.01.2017 в 15:53, в сообщении № 11 ()

и в Excel 2013 нет

открываем файл
alt F11
дальше:

Цитата Netsky, 10.01.2017 в 15:53, в сообщении № 11 ()

tools -- references - - Microsoft Outlook ....

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Среда, 11.01.2017, 08:36 | Сообщение № 13

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата SLAVICK, 10.01.2017 в 17:57, в сообщении № 12 ()

открываем файл
alt F11
дальше:

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

Ответить

Дата: Среда, 11.01.2017, 09:51 | Сообщение № 14

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Netsky, 11.01.2017 в 08:36, в сообщении № 13 ()

но отправить все также не получается

ну что ж Вы такой невнимательный?
Я же писал:

Цитата SLAVICK, 10.01.2017 в 12:13, в сообщении № 6 ()

поменял строки в процедуре "просмотр"

Цитата SLAVICK, 10.01.2017 в 11:23, в сообщении № 4 ()

И меняем строку : .....
на
.....

Значит нужно еще поменять во всех остальных процедурах, в Вашем случае - еще в процедуре "Отправить".
Вот держите пример.

К сообщению приложен файл: 0460436.xlsm (31.8 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Среда, 11.01.2017, 11:07 | Сообщение № 15

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата SLAVICK, 11.01.2017 в 09:51, в сообщении № 14 ()

Вот держите пример.

Большое спасибо за вашу помощь, я нашел причину ошибки "Can't find project library", оказывается у меня была подключена какая-то несуществующая библиотекаСкриншот, я подключил в итоге другую единственную доступнуюСкриншот2, но по итогу я так и не могу отправить письма, просмотреть могу, не понимаю в чем причина, может какие настройки стоит проверить?

Ответить

Дата: Среда, 11.01.2017, 13:33 | Сообщение № 16

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Netsky, 11.01.2017 в 11:07, в сообщении № 15 ()

но по итогу я так и не могу отправить письма,

Да потому что у Вас макрос проверяет заполнение 2-го столбца тут, а в списке заполнен только 1-й столбец.
Меняйте процедуру:
[vba]

Код

Sub старт_отправить()
i = 2
Do While Worksheets("Список").Cells(i, 1) <> ""
Run "отправить", i
i = i + 1
Loop
MsgBox "Обожаю начальника"
End Sub

[/vba]

К сообщению приложен файл: 0460436-1-.xlsm (35.9 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Дата: Среда, 11.01.2017, 14:13 | Сообщение № 17

Netsky

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 1 ±

Замечаний: 0% ±

Excel 2013

Цитата SLAVICK, 11.01.2017 в 13:33, в сообщении № 16 ()

Да потому что у Вас макрос проверяет заполнение 2-го столбца тут, а в списке заполнен только 1-й столбец.

Все работает, спасибо большое уважаемый модератор, у вас просто ангельское терпение!

Ответить

Макрос на отправку формы (нескольким адресатам)через Outlook (Макросы/Sub)

Страница 1 из 1
1

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