нашел поиском нужный макрос, чуть чуть бы доработать

[zander]

Можно как то влепить в тему письма данные не из одной ячейки, а из несокльких ячеек конкретного листа? Например из (Лист1) D1, (Лист1) E1, (Лист1) F1. Через запятую или пробел не важно..


Sub ОсновнойМакрос()
Dim ro As Range: On Error Resume Next
For i = 2 To 5 ' перебираем строки со 2-й по 5-ю
Set ro = ActiveSheet.Rows(i)
' в 1-й ячейке - адрес, во второй - текст, в третьей - тема письма
ОтправитьСообщение ro.Cells(2), ro.Cells(1), ro.Cells(3)
Next i
End Sub

Sub ОтправитьСообщение(Текст As String, Адрес As String, Тема As String)
Dim OutApp As Object, OutMail As Object, strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon: Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Адрес: .CC = "": .BCC = "": .Subject = Тема
.Body = Текст '.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0: Set OutMail = Nothing: Set OutApp = Nothing
End Sub

[motorway]

Объединение текста - оператор &

[zander]

Спасибо вроде заработало!

[motorway]

Насколько я понял, функции передаются 3 параметра, последний из которых тема. Так что надо вызвать ее с нужными аргументами, типа ОтправитьСообщение ro.Cells(2), ro.Cells(1), ro.Cells(3) & что-то еще & что-то еще