Гаряка Асмик:
С первой строчкой понятно, теперь вторую выделяет:
Dim objOL As Object, objMail As Object, objAttach As Object
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
Set objAttach = objMail.Attachments
With objMail
.To = "mm@mm.ru; dd@dd.ru" ' адрес, несколько через ;
.Subject = "Это тема письма"
.Body = "Это текст письма"
.Display ' показать окно письма
.Send ' отправить автоматом
End With
Set objMail = Nothing
Set objOL = Nothing
Set objAttach = Nothing

Ципихович Эндрю:
Нужно добавить ссылку на библиотеку. Зайдите в меню Tools-References, найдите Microsoft Outlook Object Library и поставьте птичку.

Гаряка Асмик:
Спасибо за ответ.
Может Вы не видели того вопроса, а то же самое с ЗеБат проделать можно???

Ципихович Эндрю:
Нет, Bat не продукция Microsoft

Гаряка Асмик:
И последних два подвопросика
Вот это " Зайдите в меню Tools-References, найдите Microsoft Outlook Object Library и поставьте птичку" програмно можно сделать?, как?
Я понимаю что не тяжело сделать самому но всё же.
А можно и как находясь в документе Ворд выделить часть текста, запустить макрос, что с этой части он сделал темпашку и её посылал по Microsoft Outlook?

Ципихович Эндрю:
Попробуйте заменить эту строку следующей:
Set objOL = CreateObject("Outlook.Application")

Измалков Эдуард Леонидович:
Это совет по какой части
1 как програмно сделать: Зайдите в меню Tools-References, найдите Microsoft Outlook Object Library и поставьте птичку
или
2 как находясь в документе Ворд выделить часть текста, запустить макрос, что с этой части он сделал темпашку и её посылал по Microsoft Outlook

Ципихович Эндрю:
Запустить Outlook не используя никаких библиотек. Т.е. чтобы не пришлось заходить в Tolls-References

Измалков Эдуард Леонидович:
ВЫ говорите Попробуйте заменить эту строку - какую ???

Измалков Эдуард Леонидович:
Понял какую

Гаряка Асмик:
А можно и как находясь в документе Ворд выделить часть текста, запустить макрос, что с этой части он сделал темпашку и её посылал по Microsoft Outlook?

.Body = ActiveDocument.Selection

Гаряка Асмик:
Ранее было некогда сегодня попробовал код проходит полностью, но письмо не дошло почему????
Этой же строкой: Body = ActiveDocument.Selection
Не решить:
А можно и как находясь в документе Ворд выделить часть текста, запустить макрос, что с этой части он сделал темпашку и её посылал по Microsoft Outlook
Как решить???

Гаряка Асмик:
В настоящее время я делаю нижеследующим образом, там ошибка возникает, почему, подскажите, пожалуйста:
'отправка письма по Microsoft Outlook
Dim objOL As Object, objMail As Object, objAttach As Object
'для работоспособности нужно добавить ссылку на библиотеку
'зайдите в меню Tools-References, найдите Microsoft Outlook Object Library, поставьте птичку
'Set objOL = New Outlook.Application
Set objOL = CreateObject("Outlook.Application") 'данная строка позволяет работать с Microsoft Outlook не подключая библиотеку Microsoft Outlook
Set objMail = objOL.CreateItem(olMailItem)
Set objAttach = objMail.Attachments

If Len(ActiveDocument.Path) = 0 Then
MsgBox "Документ должен быть вначале сохранен"
Exit Sub
End If

With objMail
.To = "89028912680@rambler.ru" 'адрес, несколько адресов через ;
.Subject = "Это тема письма"
'Добавляя документ как приложение к письму, Вы можете использовать
'свойство .displayname для установки описания используемого в сообщении
.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
DisplayName:="Документ в приложении" 'здесь ощибка 446, почему???, ЧТО НАДО ИЗМЕНИТЬ????
.Display 'показать окно письма
.Send 'отправить автоматом
End With
Set objMail = Nothing
Set objOL = Nothing
Set objAttach = Nothing