Доброго времени! В примерах на сайте нашел макрос (3 вариант) для отправки письма через Outlook.
Скрытый текст
Код
Sub SendMail()
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
'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Выбор вложения осуществляется указанием полного пути до файла в ячейке А4.
Код
.Attachments.Add Range("A4").Value
Необходимо изменить макрос так что бы была возможность выбирать несколько файлов в качестве вложения из директории рабочей книги. Другими словами после запуска макроса появляется окно с выбором файлов из того же места на диске где расположена книга с этим макросом. После выбора файлов происходит их вставка в тело письма как вложений и потом отправка адресату.