Отправка макросом через аутлук

Пользователь

Сообщений: 52 Регистрация: 25.06.2015

29.09.2016 19:37:19

Код

    Set OutMail = OutApp.CreateItem(0)

    'заполняем поля сообщения
    With OutMail
        .To .Cells(i, 1).Offset(1, 52).Value
        .Subject = "Расчетный листок" & "_" & Format(Date, "mmmm/yyyy")
        .Body = ""
        .Attachments.Add ThisWorkbook.Path & "\" & .Cells(i, 1).Offset(1, 0).Value & "_" & Format(Date, "mmmm/yyyy") & ".xlsx"
        .Send
    End With

Помогите разобраться почему ругается на строку: .To .Cells(i, 1).Offset(1, 52).Value ?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

29.09.2016 19:44:45

потому что знак = после .To забыли

Код
.To = .Cells(i, 1).Offset(1, 52).Value

и ошибки в коде - перед cells в 2 местах надо убрать точку

Изменено: Игорь - 29.09.2016 19:45:58

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Deymos85

Пользователь

Сообщений: 52 Регистрация: 25.06.2015

29.09.2016 20:00:04

Ставил = и точку пробовал убирать, не помогало.
В других строках выражения:

Код
.Cells(i, 1).Offset(1, 52).Value

Код
.Cells(i, 1).Offset(1, 0).Value & "_" & Format(Date, "mmmm/yyyy") & ".xlsx"

прекрасно работают...

Изменено: Deymos85 - 29.09.2016 20:23:50

МатросНаЗебре

Пользователь

Сообщений: 8307 Регистрация: 05.02.2014

30.09.2016 09:03:04

Код
.Cells(i, 1).Offset(1, 52).Value

В этом выражении точку убрать нужно.
И не видно, чему у Вас i равно. Если i не присвоено значение, то тоже будет возникать ошибка.
Пробуйте:

Код
Cells(1, 1).Offset(1, 52).Value

The_Prist Пользователь Сообщений: 15493 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#5 30.09.2016 09:53:22 Приведите код полностью. Возможно где-то выше есть еще один With, который не имеет отношения к Outlook. Это может порождать конфликт. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Читают тему