VBA【メール送信】ExcelとOutlookを連携してメールを送信

Public FileFullName As String
Sub メール送信()
'Outlookは「ツール」→「参照設定」(Alt→T→R)
'「Microsoft Outlook XX.X Object Library」にﾁｪｯｸ
Dim ToAddress As String, CcAddress As String, BccAddress As String
Dim Subject  As String, MailBody   As String, Credit As String
Dim AttachmentPath As String
Dim OutlookObj As Outlook.Application    'Outlookで使用するオブジェクト生成
Dim MailItemObj As Outlook.MailItem      'Outlookで使用するオブジェクト生成
Dim bufSh As Worksheet
Dim DisplaySetting As Boolean

Set bufSh = ThisWorkbook.Sheets(1)
DisplaySetting = True           '作成したメールを表示する設定
'DisplaySetting・・ True ：作成したメールを確認してから、送信ボタンを押して送信
'                   False：作成したメールを確認しないで、自動送信
'DisplaySetting = bufSh.[A1]    '設定をワークシートから取得
'AttachmentPath = FileFullName  '添付ファイルのフルパス

With bufSh
'●差出人、本文、署名を取得する
    '送信先アドレス
    ToAddress = "***@jovba.com"     '送信先
    CcAddress = "***@jovba.com"     'CC
    BccAddress = ""                 'BCC
    'タイトル(件名)
    Subject = "タイトル"
    'メール本文
    MailBody = "○○ 様" & vbCrLf _
                & "お世話になっております。" & vbCrLf _
                & "株式会社JoVBA です。" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
    'クレジット(署名)　メール本文末尾
    Credit = "------------------------------------------" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf _
                & "" & vbCrLf
End With
'●メールを作成
Set OutlookObj = CreateObject("Outlook.Application")
Set MailItemObj = OutlookObj.CreateItem(olMailItem)
With MailItemObj
    .BodyFormat = 1     '2:HTML_3:リッチテキスト
    .To = ToAddress     'toをセット
    .CC = CcAddress     'ccをセット
    .BCC = BccAddress   'bccをセット
    .Subject = Subject  '件名をセット
    .Body = MailBody _
            & vbCrLf & Credit    'メール本文 & クレジット
'●添付ファイル
'    .Attachments.Add AttachmentPath
'●メールを送信する
'    .Save          '下書き保存
    If DisplaySetting Then
        .Display    'メール表示
    Else
        .Send       '送信
    End If
End With

'●outlookを閉じる(オブジェクトの解放)
Set OutlookObj = Nothing
Set MailItemObj = Nothing

End Sub