Добрый день.
Замучился с такой проблемой, есть макрос который отправляет данные из файла excel в outlook по списку почтовых адресов.
Так вот в этих данных одну из строк мне нужно закрасить в желтый цвет, но никакие манипуляции мне не помогают.
Код ниже, отправляет по адресу текст:
"Добрый день
Данные:"
Вопрос - что нужно прописать в коде, чтобы пришло письмо в котором слово строчка "Данные:..." была закрашено в желтый цвет.
Замучился с такой проблемой, есть макрос который отправляет данные из файла excel в outlook по списку почтовых адресов.
Так вот в этих данных одну из строк мне нужно закрасить в желтый цвет, но никакие манипуляции мне не помогают.
Код ниже, отправляет по адресу текст:
"Добрый день
Данные:"
Вопрос - что нужно прописать в коде, чтобы пришло письмо в котором слово строчка "Данные:..." была закрашено в желтый цвет.
Код |
---|
Sub send_email() Dim olApp As Object Dim olMailItm As Object Dim iCounter As Integer Dim Dest As Variant Dim SDest As String strSubj = "тема письма" On Error GoTo dbg Set olApp = CreateObject("Outlook.Application") For iCounter = 2 To WorksheetFunction.CountA(Columns(1)) Set olMailItm = olApp.CreateItem(0) strBody = "" useremail = Cells(iCounter, 1).Value FullUsername = Cells(iCounter, 2).Value b = Cells(iCounter, 3).Value c = Cells(iCounter, 4).Value strBody = strBody & "Добрый день!" & vbCrLf & vbCrLf strBody = strBody & "Данные: " & c olMailItm.To = useremail olMailItm.Subject = strSubj olMailItm.BodyFormat = 2 olMailItm.Body = strBody olMailItm.Send Set olMailItm = Nothing Next iCounter Set olApp = Nothing dbg: If Err.Description <> "" Then MsgBox Err.Description End Sub |