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

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

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

Baiden

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

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

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

Сообщений: 18

Репутация: 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]

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