ник: джониби
Всем привет !!! 
Искал решение проблемы,когда формируется письмо и в него вставляется подпись,которая стоит по умолчанию в outlooke,ничего не нашел,кроме нескольких примеров.
1)Подпись саму ищут где то в файлах самих отлука,прописывают путь к ним и всё работает.Мне этот вариант не подходит,т.к. пути на разных машинах могут быть разные
2)
Dim OutApp As Object, OutMail As Object, Strbody As String, r As Date
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon: Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
r = Format(Now(), "dd mmmm yyyy")
With OutMail
.To = "primer@mail.ru":
.Subject = "Тема"
.Body = ActiveDocument.Content 'Здесь формируется подпись в Outlooke, которая стоит по умолчанию
.Display
End With
On Error GoTo 0: Set OutMail = Nothing: Set OutApp = Nothing
|
Второе решение мне подходит,но проблема заключается в слудеющем.Как вставить в тело сообщения еще что то,я понять не могу (
Пробовал:
.Body = ActiveDocument.Content & "Текст"
.Body = "Текст" & ActiveDocument.Content
.Body = .Body & "Текст"
|
строка "Текст" в перых 2х примерах не вставляется,в 3ем,изчезает подпись =)
Помогите пожалуйста,может быть есть другое решение о вставке в сообщения подписи?Буду очень признателен,долго мучаюсь просто.
