Option Explicit
Sub houkoku_mail()
Dim OL As Outlook.Application
Dim ML As Outlook.MailItem
Set OL = CreateObject("Outlook.Application")
Set ML = OL.CreateItem(olMailItem)
ML.To = "butyo@kaisya.com" 'To
ML.CC = "syatyo@kaisya.com" 'CC
ML.BCC = "jibun@kaisya.com" 'BCC
ML.Subject = "ご報告" '件名
ML.Body = "お疲れ様です。" & vbCrLf & _
"俺です。" & vbCrLf & vbCrLf & _
"本日のご報告です。" & vbCrLf & _
"特にもありませんでした。" & vbCrLf & vbCrLf & _
"以上です。" & vbCrLf & _
"よろしくです。" & vbCrLf & vbCrLf & _
"from 俺" & vbCrLf '本文
ML.Display 'メール表示
Set ML = Nothing
Set OL = Nothing
End Sub