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

Вход

Регистрация

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

 

= Мир MS Excel/Управление OutLook через excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Управление OutLook через excel (Формулы/Formulas)
Управление OutLook через excel
Baiden Дата: Среда, 08.09.2021, 13:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте.
Как добавить в макрос условие, чтобы добавлялся определённый лист из файла?
И как добавить в условие, чтобы добавлялись определённые ячейки из листа?
Обязательно нужно через Range()Value
Шаблон выглядит так:

[vba]
Код
Sub Name()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
.Display
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 1252095.xls(65.5 Kb) · 9101990.xls(27.0 Kb)


Сообщение отредактировал Baiden - Среда, 08.09.2021, 17:17
 
Ответить
СообщениеЗдравствуйте.
Как добавить в макрос условие, чтобы добавлялся определённый лист из файла?
И как добавить в условие, чтобы добавлялись определённые ячейки из листа?
Обязательно нужно через Range()Value
Шаблон выглядит так:

[vba]
Код
Sub Name()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
.Display
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Baiden
Дата добавления - 08.09.2021 в 13:47
Baiden Дата: Вторник, 28.09.2021, 08:41 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Как я понимаю, данный вопрос никогда не поднимался? Или же стоит перейти в раздел Работа/Фриланс?
 
Ответить
СообщениеКак я понимаю, данный вопрос никогда не поднимался? Или же стоит перейти в раздел Работа/Фриланс?

Автор - Baiden
Дата добавления - 28.09.2021 в 08:41
Serge_007 Дата: Вторник, 28.09.2021, 09:23 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 14580
Репутация: 2409 ±
Замечаний: ±

Excel 2010
Здравствуйте
данный вопрос никогда не поднимался
Поднимался: Макрос на вставку текста и таблицы из Excel в письмо Outlook

стоит перейти в раздел Работа/Фриланс?
Это только Вы решаете


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте
данный вопрос никогда не поднимался
Поднимался: Макрос на вставку текста и таблицы из Excel в письмо Outlook

стоит перейти в раздел Работа/Фриланс?
Это только Вы решаете

Автор - Serge_007
Дата добавления - 28.09.2021 в 09:23
Pelena Дата: Вторник, 28.09.2021, 09:25 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17961
Репутация: 4001 ±
Замечаний: ±

Excel 2016 & Mac Excel
Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
[vba]
Код
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЧисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
[vba]
Код
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))
[/vba]

Автор - Pelena
Дата добавления - 28.09.2021 в 09:25
Baiden Дата: Вторник, 28.09.2021, 09:57 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Это только Вы решаете

Понимаю, думал, кто-то стесняется предложить решить данный вопрос за определённую плату, потому и спросил.

Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))

Не сработало.

Если, более нет предложений, перенесу вопрос в коммерческий раздел. Благодарю за уделённое время.


Сообщение отредактировал Baiden - Вторник, 28.09.2021, 09:58
 
Ответить
Сообщение
Это только Вы решаете

Понимаю, думал, кто-то стесняется предложить решить данный вопрос за определённую плату, потому и спросил.

Чисто теоретически (Outlook не пользуюсь) можно попробовать в А3 записать ссылку на нужный диапазон, например Отправка ВГК!B1:AH30, а в макросе разбить эту ссылку на имя листа и диапазон примерно так
.Body = Sheets(Split(Range("A3"), "!")(0)).Range(Split(Range("A3"), "!")(1))

Не сработало.

Если, более нет предложений, перенесу вопрос в коммерческий раздел. Благодарю за уделённое время.

Автор - Baiden
Дата добавления - 28.09.2021 в 09:57
Serge_007 Дата: Вторник, 28.09.2021, 11:10 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 14580
Репутация: 2409 ±
Замечаний: ±

Excel 2010
кто-то стесняется предложить решить данный вопрос за определённую плату
Здесь бесплатный раздел форума, не принято у нас просить деньги в таких разделах


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
кто-то стесняется предложить решить данный вопрос за определённую плату
Здесь бесплатный раздел форума, не принято у нас просить деньги в таких разделах

Автор - Serge_007
Дата добавления - 28.09.2021 в 11:10
Erjoma1981 Дата: Вторник, 28.09.2021, 11:23 | Сообщение № 7
Группа: Проверенные
Ранг: Участник
Сообщений: 66
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010, 2019
Baiden, а идею из ссылки предложенной Serge_007 пробовали?

[vba]
Код
.HTMLBody = RangetoHTML(rng)
[/vba]

 
Ответить
СообщениеBaiden, а идею из ссылки предложенной Serge_007 пробовали?

[vba]
Код
.HTMLBody = RangetoHTML(rng)
[/vba]


Автор - Erjoma1981
Дата добавления - 28.09.2021 в 11:23
Pelena Дата: Вторник, 28.09.2021, 13:01 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 17961
Репутация: 4001 ±
Замечаний: ±

Excel 2016 & Mac Excel
Тему закрываю, т.к. автор создал дубликат в платном разделе


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТему закрываю, т.к. автор создал дубликат в платном разделе

Автор - Pelena
Дата добавления - 28.09.2021 в 13:01
Serge_007 Дата: Вторник, 28.09.2021, 13:57 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 14580
Репутация: 2409 ±
Замечаний: ±

Excel 2010


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВот эта тема: http://www.excelworld.ru/forum/6-48347-1#317715

Автор - Serge_007
Дата добавления - 28.09.2021 в 13:57
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Управление OutLook через excel (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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