Домашняя страница 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
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 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
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Управление OutLook через excel (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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