Отправка писем в Outlook'e

[Parklane1488]

Всем добрый день!

Есть макрос, который делит полотно Excel на 60 файлов(режет допустим по филиалам, или можно указывать, чтобы резал по названиям тарифов)
Этот макрос делит на отдельные файлы и сохраняет в нужную мне папку.

Дальше стоит задача отправить все эти файлики разным адресатам(ответственные адресаты у каждого филиала всегда одни и теже)

Как можно сделать, чтобы макрос ссылался на список названий филиалов и адресатов, чтобы автоматически после отработки первой части макроса(который делит на филиалы) эти файлы отправлялись по почте?

Свой макрос и пару примеров с порезанными филиалами прилагаю
В макросе создал список названий файлов и адресатов.
Путь к файлам будет будет каждый раз меняться(название папки с текущей датой) Возможно отталкиваться как-то от текущей даты, когда макрос выполнятся.
Заранее спасибо

P.S. может мой макрос кому пригодится

[IgorGO]

отдельный файл сохранили на диск?
отправить активную в данные момент книгу - одна строка кода:

ActiveWorkbook.SendMail recipients:="Jean Selva"

[Parklane1488]

Сообщение от IgorGO

отдельный файл сохранили на диск?
отправить активную в данные момент книгу - одна строка кода:

ActiveWorkbook.SendMail recipients:="Jean Selva"

Не, мне нужно не активную книгу отправить, а все те файлики, которые первый макрос порезал

[IgorGO]

первый макрос порезал?
на диск каждый файл был записал методом КонкретнаяКнига.Save
сделайте следующей строчкой КонкретнаяКнига.SendMail
а следующей КонкретнаяКнига.Close

[IgorGO]

где-то здесь

   tmpbook.SaveAs Filename:=fn & " " & tmpcoll & ".xlsx"  ' сохранение книги(каждый филиал в своей книге)
   Filename = fn & " " & tmpcoll & ".xlsx"                ' получаю путь к только что созданному файлу, просто чтобы захуярить его в лог-файл
   tmpbook.Close                                          ' закрываю

[Alex84]

Приветствую!

Нужна помощь. Задача сделать рассылку из Excel через Outlook для каждого из ста адресата в отдельности, данные по которым находятся в одной таблице
Например первому адресату соответствует
почтовый адрес в ячейке А1, Текс письма в ячейке В1, Тема письма в ячейке С1, и ссылка на вложение в ячейке D1.
второму адресату соответствует
почтовый адрес в ячейке А2, Текс письма в ячейке В2, Тема письма в ячейке С2, и ссылка на вложение в ячейке D2.
и так далее.

Вот, я пробовал данный макрос, все замечательно, но рассылает только на одного получателя, пробовал устанавливать диапазон адресатов, которые в листе Excell .To = Range("A1:A4").Value, но ничего не вышло.

Как-то можно доработать данный макрос?

Sub SendMail()
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:A4").Value
.Subject = Range("B1").Value
.Body = Range("C1").Value
.Attachments.Add Range("D1").Value
.Send
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

[doober]

Так будет работать правильно

With OutMail
.To = Join(WorksheetFunction.Transpose(Range("A1:A4")), ",")
.Subject = Range("B1").Value
.Body = Range("C1").Value
.Attachments.Add Range("D1").Value
.Send
End With

[Parklane1488]

А как прописать, чтобы он смотрел на другой лист со списком адресатов?
Как задать нужный лист?

[doober]

Например ,так

' Вместо Range ("A1:A4")
ThisWorkbook.Worksheets("Ваше имя листа").Range ("A1:A4")
'Или
Set Sh=ThisWorkbook.Worksheets("Ваше имя листа")
Sh.Range ("A1:A4")

[Alex84]

Вроде бы пытается отправить, но в отправленных и исходящих Outlook писем нет. Может что-то не так я сделал?

Прикрепляю скрин того как выглядят данные в Excel и сам макрос.