objMail.BCC = wsList.Cells(i, 4).Value 'BCC宛先 objMail.Subject = .Range("B1").Value 'メール件名 objMail.BodyFormat = 3 ' 3 リッチテキスト型、2 HTML objMail.Body = wsList.Cells(i, 1).Value & vbCrLf & wsList.Cells(i, 2).Value & " 様" & vbCrLf & vbCrLf & .Range...