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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на управление OutLook через Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Работа / Фриланс » Макрос на управление OutLook через Excel
Макрос на управление OutLook через Excel
Baiden Дата: Вторник, 28.09.2021, 10:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте, в данный макрос нужно добавить:
1) определённый лист из какого либо файла? (возможно, будет даже несколько)
2) в условие, чтобы добавлялись определённые ячейки из любого листа и из любого файла?
Обязательно нужно через ячейки выставляемые в Excel

Шаблон выглядит так:

[vba]
Код
Sub Макрос2222()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
     
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    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
        .ThisWorkbook.Sheets.Range("A5").Value
        .OriginatorDeliveryReportRequested = True
        
        'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
        .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing

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

Предложения?
К сообщению приложен файл: 9101990.xls(27.0 Kb) · 1252095.xls(65.5 Kb)


Сообщение отредактировал Baiden - Вторник, 28.09.2021, 10:13
 
Ответить
СообщениеЗдравствуйте, в данный макрос нужно добавить:
1) определённый лист из какого либо файла? (возможно, будет даже несколько)
2) в условие, чтобы добавлялись определённые ячейки из любого листа и из любого файла?
Обязательно нужно через ячейки выставляемые в Excel

Шаблон выглядит так:

[vba]
Код
Sub Макрос2222()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
     
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")   'запускаем Outlook в скрытом режиме
    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
        .ThisWorkbook.Sheets.Range("A5").Value
        .OriginatorDeliveryReportRequested = True
        
        'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
        .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing

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

Предложения?

Автор - Baiden
Дата добавления - 28.09.2021 в 10:11
doober Дата: Вторник, 28.09.2021, 10:31 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 816
Репутация: 301 ±
Замечаний: 0% ±

Excel 2010
Написал в личку
В работе
Выполнил, оплату получил




Сообщение отредактировал doober - Вторник, 28.09.2021, 15:30
 
Ответить
СообщениеНаписал в личку
В работе
Выполнил, оплату получил

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

Благодарю. Быстренько и качественно!
Тему можно закрывать.
 
Ответить
СообщениеБлагодарю. Быстренько и качественно!
Тему можно закрывать.

Автор - Baiden
Дата добавления - 28.09.2021 в 18:01
Мир MS Excel » Работа и общение » Работа / Фриланс » Макрос на управление OutLook через Excel
  • Страница 1 из 1
  • 1
Поиск:

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