ник: Анатолий (Киев)
.Body = ActiveDocument.Content 'Здесь формируется подпись в Outlooke, которая стоит по умолчанию
|
Письмо с подписью по умолчанию формируется и без этой строчки.
А вот если отключить On Error Resume Next, то на этой строчке вылетит ошибка, т.к. у Акса нет такого объекта.
А в Ворде он есть, оттуда вы код и слизали.
А вот так работает, правда у меня система безопасности вопросы задает.
With OutMail
.To = "primer@mail.ru":
.Subject = "Тема"
.display
.body = "Привет!" & vbCrLf & .body
End With
|