Уважаемые форумчане!
Помогите разобраться!
Есть макрос создающий сообщения для Outlook, но есть проблема в тексте сообщения.
Мне необходимо, что бы текст сообщения был в том виде в каком он находится в ячейке Excel (с переносом по строкам) и при этом была прикреплена подпись. У меня же получается либо одно, либо второе.)))
Помогите разобраться!
Есть макрос создающий сообщения для Outlook, но есть проблема в тексте сообщения.
Мне необходимо, что бы текст сообщения был в том виде в каком он находится в ячейке Excel (с переносом по строкам) и при этом была прикреплена подпись. У меня же получается либо одно, либо второе.)))
| Код |
|---|
Sub Отправка()
Dim OutlookApp As Object, SM As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem)
With SM
.Display
.To = "asd@asd.ru"
.Subject = "тема"
.HTMLBody = Range("A1").Value & .HTMLBody ' в этом варианте есть подпись и текст из ячейки, но в одну строку
'.body = Range("A1").Value ' в этом варианте текст как в ячейке, но нет подписи
End With
Set SM = Nothing
Set OutlookApp = Nothing
End Sub |
