Как отправить по e-mail файл Word из Excel?

а почему бы не воспользоваться почтовиком и приципить к нему файл Ворда, чем заниматься мазохизмом?

По-моему, только в виде текста. В экселе нет возможности прикрепить файл к мэйлу. Все реквизиты письма кроме прикрепления файла можно заполнить программно.

Черт, а вообще это возможно?

возможно, если создавать макрос

а как это сделать, если не секрет?

5. Записать макрос :) или написать.

написАть!!!!!!!!!!!!

Даааа.
Как всётаки изобретателен мозг нашего человека в поисках проблем на собстенную задницу. Как многообразен мир извращений с использованием 1С.

8. В этой ветке нет 1с.

(9) это я просмотрел. Второе предложение из (9) не читать...

(9,10) Ты суслика видишь? А он есть. (с)

(0) А зачем тебе? Стоит ли так изгаляться?
Программируешь на VBA?

Дело в том, Кофеин, что я делаю выборку из ecxel и по ее результатам хочу разослать одно письмо для всех (e-mail есть)

Так создай в мыйлере группу получателей и отсылай группе одно письмо

А ты не в курсе, OutLook может подтянуть группу получателей из *.txt?

Если сильно горишь желанием, можешь поиграться с этим примерчиком:

Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
   .Delivery = xlOneAfterAnother
   .Recipients = Array("Adam Bendel", _
       "Jean Selva", "Bernard Gabor")
   .Subject = "Here is BOOK1.XLS"
   .Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Route

(15) Так ты спрашиваешь или итак все знаешь?

А OutLookом я в принципе не пользуюсь :)

Кофеин, у тебя ICQ есть?

А что ты хотел?

Тот код что ты прислал отправляет сам файл Excel, а мне надо отправлять Word.
А ICQ, просто так проще общаться.

(21) Это ты верно подметил, я же сказал не скопируй и пользуйся, а поиграйся... Подумай что можно придумать.....

можно сделать легко.

Public Sub SendEmailAtt(ByVal MyTo As String, MySybject As String, _
           Optional MyBody As String, Optional MyAttachment As String)
   
   Dim OutLookApp As Object      'Ссылка на MS Outlook
   Dim OutLookItem As Object     'Ссылка на сообщение
   Dim OlNotRunning As Boolean   'открыт MS Outlook на момент выполнения

On Error Resume Next

'Проверяем не открыт ли уже MS Outlook
Set OutLookApp = GetObject(, "Outlook.Application")

If Err.Number <> 0 Then 'Если ошибка то не открыт и запускаем его
   OlNotRunning = True
   Err.Clear
   Set OutLookApp = CreateObject("Outlook.Application")
End If

'Создание сообщения
Set OutLookItem = OutLookApp.CreateItem(0)
With OutLookItem
   .to = MyTo                'кому
   .Subject = MySybject      'тема
   .Body = MyBody            'текст
   If Dir(MyAttachment) <> "" Then
       .Attachments.Add MyAttachment
   End If
   '.Display Отображение сообщения
   .Send
End With

'Закрытие OutLook если не был запущен до выполнения процедуры отправки
   If OlNotRunning = True Then OutLookApp.Application.Quit
End Sub

(23) А разве VBA не встроен в Excel? :) Попробуй в экселе Alt+F11

и биться сердце перестало....

ты думаешь?

Последний код компелиться, но не реагирунт вообще!

А средствами макросов Excel можно что-то сделать?

ПАМАГИТЕ!!!!!

Найми кого-нибудь, мож сделают...