Формат тела письма в OutLook'е - Microsoft Office Excel

Olper · 25.08.2011, 14:37

Уважаемые Профи!
Вопрос следующего характера. Можно ли как то поработать с внешним видом параметра .body в макросе, то бишь, вывод в несколько строк, шрифт, цвет и прочие красивости.
Фрагмент кода прилагаю:
With CreateObject("Outlook.Application")
.Session.Logon
With .CreateItem(0)
.To = sFio
.CC = "HZ_2@Nothing.ru"
.Subject = "Фомат письма"
.body = "Размещение текста в несколько строк, изменение шрифта, цвета и пр."
.Attachments.Add sFileName
.display
End With
End With
Спасибо всем кто ответит

doober · 25.08.2011, 15:49

Код:

Sub CreateHTMLMail()
  Dim olApp As Outlook.Application
    Dim objMail As MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)
    With objMail
       'Set body format to HTML
       .BodyFormat = olFormatHTML
       .HTMLBody = "<html><body><div>" & _
"<h4><span style=""color: rgb(255, 0, 0); font-weight: bold;"">ПЕРВАЯ СТРОКА,красная и жирная<br>" & _
"</span></h4></div>" & _
"<h2>The <span style=""color: rgb(51, 204, 0);"">body </span>of this <span" & _
"style=""color: rgb(51, 102, 255);"">message will appear</span> in <span" & _
"style=""color: rgb(255, 0, 0);"">HTML</span>.</h2></body></html>"
       .Display
    End With
End Sub

В результате получим

Olper · 25.08.2011, 17:24

Сэнкс Doober... Маненько заумно, но буду пробовать, экспериментировать завтрась отпишуся, как и что.

Olper · 26.08.2011, 03:58

Доброго времени суток Doober!
Действительно все красиво работает, но...в OutLook'е. Я не зря пишу в форум по Excel, проблема в том, что макрос запускается из-под него.

doober · 26.08.2011, 10:24

Цитата:

Я не зря пишу в форум по Excel, проблема в том, что макрос запускается из-под него.

Я OutLook'ом не пользуюсь
Обижаете однако,я всегда проверяю код.
видеоотчет во вложении.

doober · 26.08.2011, 19:36

А где солдатская смекалка.Я лишь пример выложил

Код:

With CreateObject("Outlook.Application")
 .Session.Logon
 With .CreateItem(0)
 .To = sFio
 .CC = "HZ_2@Nothing.ru"
 .Subject = "Фомат письма"
 .BodyFormat = 2
  .HTMLBody = "<html><body><div>" & _
"<h4><span style=""color: rgb(255, 0, 0); font-weight: bold;"">ПЕРВАЯ СТРОКА,красная и жирная<br>" & _
"</span></h4></div>" & _
"<h2>The <span style=""color: rgb(51, 204, 0);"">body </span>of this <span" & _
"style=""color: rgb(51, 102, 255);"">message will appear</span> in <span" & _
"style=""color: rgb(255, 0, 0);"">HTML</span>.</h2></body></html>"
 .Attachments.Add sFileName 
 .display
 End With
 End With

Olper · 27.08.2011, 03:41

Спасибо за оперативность, к сожалению (или к счастью) я тоже дома не пользуюсь OutLook'ом, поэтому смогу прогнать тока в понедельник...но отпишусь в любом случае.

Olper · 29.08.2011, 16:13

Как и обещал doober, проверил, все Ок! Спасибо за идею, код маненько упростил с помощью тэгов HTML, но идея твоя!

doober · 29.08.2011, 17:07

Идея не моя.Взял из Хелпа

25.08.2011, 14:37	#1
Olper Пользователь Регистрация: 21.06.2010 Сообщений: 87	Формат тела письма в OutLook'е Уважаемые Профи! Вопрос следующего характера. Можно ли как то поработать с внешним видом параметра .body в макросе, то бишь, вывод в несколько строк, шрифт, цвет и прочие красивости. Фрагмент кода прилагаю: With CreateObject("Outlook.Application") .Session.Logon With .CreateItem(0) .To = sFio .CC = "HZ_2@Nothing.ru" .Subject = "Фомат письма" .body = "Размещение текста в несколько строк, изменение шрифта, цвета и пр." .Attachments.Add sFileName .display End With End With Спасибо всем кто ответит

29.08.2011, 17:07	#9
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Идея не моя.Взял из Хелпа Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
КАК ПЕРЕДЕЛАТЬ ФОРМАТ mp4 В ФОРМАТ 3gp,MPEG4	kamalruslan	Софт	4	20.08.2015 16:16
Расширенное оформление тела письма	Che Guevara	PHP	1	16.08.2011 12:34
Моделирование движения тела	HellGate666	Помощь студентам	0	06.04.2011 22:52
Объем тела вращения	SunKnight	Свободное общение	2	12.06.2010 10:22
Распознавание тела письма при получении	iamur	Работа с сетью в Delphi	1	11.02.2008 17:33

25.08.2011, 17:24	#3
Olper Пользователь Регистрация: 21.06.2010 Сообщений: 87	Сэнкс Doober... Маненько заумно, но буду пробовать, экспериментировать завтрась отпишуся, как и что.

26.08.2011, 03:58	#4
Olper Пользователь Регистрация: 21.06.2010 Сообщений: 87	Доброго времени суток Doober! Действительно все красиво работает, но...в OutLook'е. Я не зря пишу в форум по Excel, проблема в том, что макрос запускается из-под него.

27.08.2011, 03:41	#7
Olper Пользователь Регистрация: 21.06.2010 Сообщений: 87	Спасибо за оперативность, к сожалению (или к счастью) я тоже дома не пользуюсь OutLook'ом, поэтому смогу прогнать тока в понедельник...но отпишусь в любом случае.

29.08.2011, 16:13	#8
Olper Пользователь Регистрация: 21.06.2010 Сообщений: 87	Как и обещал doober, проверил, все Ок! Спасибо за идею, код маненько упростил с помощью тэгов HTML, но идея твоя!