Добрый день!
Уважаемые форумчане, помогите, пожалуйста, решить проблему.
есть:
- список адресов, которые через PQ я трансформирую в строку с разделителем "запятая" (красная и желтая таблицы);
- кнопка, вызывающая макрос "Отправить в магазины";
- код макроса. Суть макроса: копирует лист "список акций", сохраняет как книгу и далее отправляет по адресам.
Код |
---|
Sub отправка_писем_одним_письмом()
Dim строка As Range
Dim путь As String
Set строка = Range("общаяРассылка")
путь = "\\FS\inout\1ПРОДУКТЫ\Зина\промо продукты\магазинам\"
Application.DisplayAlerts = False
ThisWorkbook.Sheets("список акций").Copy
ActiveWorkbook.SaveAs Filename:=путь & "\" & "рассылка для магазинов" & ".xlsx", FileFormat:=xlWorkbookDefault
ActiveWorkbook.SendMail Array(строка), "акции нового месяца"
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
|
надо:
поправить ошибку на шаге
Код |
---|
ActiveWorkbook.SendMail Array(строка), "акции нового месяца" |
при этом, что странно: если в массиве адресов (красная таблица) адресов 3-5, то все прекрасно работает.
но как только подаешь в список больше адресов, то выходит ошибка "1004"