Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 25.08.2011, 13: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
Спасибо всем кто ответит
Olper вне форума Ответить с цитированием
Старый 25.08.2011, 14:49   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,905
По умолчанию

Код:
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
В результате получим


Анализ,обработка данных Недорого

Последний раз редактировалось doober; 25.08.2011 в 14:55.
doober вне форума Ответить с цитированием
Старый 25.08.2011, 16:24   #3
Olper
Пользователь
 
Регистрация: 21.06.2010
Сообщений: 87
По умолчанию

Сэнкс Doober... Маненько заумно, но буду пробовать, экспериментировать завтрась отпишуся, как и что.
Olper вне форума Ответить с цитированием
Старый 26.08.2011, 02:58   #4
Olper
Пользователь
 
Регистрация: 21.06.2010
Сообщений: 87
По умолчанию

Доброго времени суток Doober!
Действительно все красиво работает, но...в OutLook'е. Я не зря пишу в форум по Excel, проблема в том, что макрос запускается из-под него.
Olper вне форума Ответить с цитированием
Старый 26.08.2011, 09:24   #5
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,905
По умолчанию

Цитата:
Я не зря пишу в форум по Excel, проблема в том, что макрос запускается из-под него.
Я OutLook'ом не пользуюсь
Обижаете однако,я всегда проверяю код.
видеоотчет во вложении.
Вложения
Тип файла: rar Out.rar (875.7 Кб, 42 просмотров)
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 26.08.2011, 18:36   #6
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,905
По умолчанию

А где солдатская смекалка.Я лишь пример выложил
Код:
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
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 27.08.2011, 02:41   #7
Olper
Пользователь
 
Регистрация: 21.06.2010
Сообщений: 87
По умолчанию

Спасибо за оперативность, к сожалению (или к счастью) я тоже дома не пользуюсь OutLook'ом, поэтому смогу прогнать тока в понедельник...но отпишусь в любом случае.
Olper вне форума Ответить с цитированием
Старый 29.08.2011, 15:13   #8
Olper
Пользователь
 
Регистрация: 21.06.2010
Сообщений: 87
По умолчанию

Как и обещал doober, проверил, все Ок! Спасибо за идею, код маненько упростил с помощью тэгов HTML, но идея твоя!
Olper вне форума Ответить с цитированием
Старый 29.08.2011, 16:07   #9
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,905
По умолчанию

Идея не моя.Взял из Хелпа
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS