ссылку на Outlook прицепить:
Alt+F11, Tools - References - галку на Microsoft Outlook ?? Object Library
вставляешь это в стандартный модуль и запускаешь Отпр_много
[vba]Code
sub Отпр_много()
dim rng as range
for each rng in range("A1:A5") ' здесь не сложно тебе будет заменить?
Отпр rng.value, rng.offset(,1).value
next rng
end sub
Sub Отпр(Кому$, Тело$)
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
'Создание объекта Outlook
Set OutlookApp = New Outlook.Application
'Создание элемента сообщения
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Кому
.Body = Тело
' .Display
.Send
End With
End Sub
[/vba]