Excel vbaでOutlookのメール作成で 本文の特定の行を黄色の塗りつぶし、太字、フォントカラーを赤にしたいです。 上記が難しい場合、特定のセルに入力した文字でも可。 前に知恵袋でいただいたvbaコードを改造していただきたいです。 以上、よろしくお願いします。 ↓コード Sub test3() Dim olApp As Outlook.Application Dim olMail As Outlook.MailItem Dim i As Long, j As Long Dim strBody As String On Error Resume Next Set olApp = GetObject(, "Outlook.Application") If olApp Is Nothing Then Set olApp = New Outlook.Application End If On Error GoTo 0 With Worksheets("Sheet1") strBody = strBody & "" For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row strBody = .Cells(i, 4).Value & vbCrLf & .Cells(i, 5).Value _ & vbCrLf & .Cells(i, 6).Value & vbCrLf & .Cells(i, 7).Value Set olMail = olApp.CreateItem(olMailItem) olMail.BodyFormat = 2 olMail.To = .Cells(i, 1).Value olMail.CC = .Cells(i, 2).Value olMail.Subject = .Cells(i, 3).Value For j = 8 To 9 If .Cells(i, j).Value <> "" Then If Dir(.Cells(i, j).Value) <> "" Then olMail.Attachments.Add .Cells(i, j).Value End If End If Next j olMail.Display With olApp.ActiveInspector.WordEditor.Windows(1) With .Selection .Font.Size = 10 .TypeText strBody End With End With 'olMail.Send Next i End With Set olMail = Nothing Set olApp = Nothing End Sub