Option Explicit
Sub MailAutoSend()
Dim ws As Worksheet
Dim outlookObj As Outlook.Application
Dim mymail As Outlook.MailItem
Dim mailbody As String
Dim credit As String
Set ws = Worksheets("Sheet1")
Set outlookObj = CreateObject("Outlook.Application")
Set mymail = outlookObj.CreateItem(olMailItem)
mymail.BodyFormat = 3 'リッチテキストに変更
mymail.To = ws.Range("B2").Value 'To宛先
mymail.CC = ws.Range("B3").Value
mymail.BCC = ws.Range("B4").Value
mymail.Subject = ws.Range("B5").Value '件名
mailbody = ws.Range("B6").Value '本文
credit = ws.Range("B7").Value '署名
mymail.Body = mailbody & vbCrLf & vbCrLf & credit
'メール表示
mymail.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない)
'メール保存
mymail.Save '下書き保存
'メール送信
mymail.Send
'オブジェクト解放
Set outlookObj = Nothing
Set mymail = Nothing
End Sub