Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавление картинки в подпись в outlook, Добавить картинку в подпись в outlook и сделать определенный текст в водписи жирным
 
#1
31.03.2013 10:41:51
Добрый день! Есть код создания подписи в outlook, где строки для подписи берутся из ячеек. Надо сделать так, чтобы данные, которые берутся из ячейки B1 были жирного шрифта. И надо еще вставить картинку внутри строк.
Т.е. надо куда-то вставить, что-то подобное:
Скрытый текст


Заранее спасибо
Изменено: Natalli01 - 01.04.2013 01:35:47
 
 
 
#2
31.03.2013 11:51:11
Цитата
Natalli01 пишет:
Т.е. надо куда-то вставить...
Ржевский, молчать!  :D  
Natalli01, Эксель здесь ни при чем, это в форум по HTML. Т.е. текст сообщения надо формировать в нем и по его правилам.
Изменено: KuklP - 31.03.2013 11:51:28
Я сам - дурнее всякого примера! ...
 
 
 
#3
31.03.2013 15:06:53
Natalli01, сделать можно, но не уверен, что кто-то возьмется... всё таки это не VBA, а HTML
Вот Вам ссылка на похожую тему
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#4
31.03.2013 18:56:13
Спасибо
 
 
 
#5
01.04.2013 01:30:58
Цитата
Natalli01 пишет:
.Body = vbCrLf & strFindBody 'текст письма
насколько помню, у объекта Mail есть два способа задания тела письма:
а) текст
б) html
body вроде как отвечает за текст. Хотя, точно утверждать не стану, надо читать справку.
Цитата
Natalli01 пишет:
Код
Public Function GetObj() As Object
 Dim i&
 On Error Resume Next
 For i = 20 To 8 Step -1
 Set GetObj = CreateObject("Outlook.Application." & i)
 If Not (GetObj Is Nothing) Then Exit For
 Next
 On Error GoTo 0
End Function
я делал так

Код
Set Outlook = GetApp("Outlook.Application.14")

If Outlook Is Nothing Then
    Set Outlook = GetApp("Outlook.Application")
End If

If Outlook Is Nothing Then
    MsgBox "Невозможно создать экземпляр приложения Outlook", vbExclamation
    Exit Sub
End If

' ----------------------------------

Public Function GetApp(ByVal AppName As String) As Object
    Dim App As Object
    
    On Error Resume Next
        Set App = GetObject(, AppName)
    
        If App Is Nothing Then
            Set App = CreateObject(AppName)
        End If
    On Error GoTo 0
    
    Set GetApp = App
End Function
Изменено: nerv - 01.04.2013 01:31:26
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#6
01.04.2013 05:46:39
Для html есть HTMLBody
 
 
 
#7
01.04.2013 10:32:52
Саша, привет!
Я делал вариант с циклом определения версии для страховки, т.к. если установлено сразу несколько офисов - возможно, что Аутлук не сможет создаться, если писать просто CreateObject("Outlook.Application") и выпадет с ошибкой.
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
Страницы: 1
Читают тему
Наверх