エクセルVBA テーブル行が変化したら上司へ自動メール連絡

'変数の定義
Dim lst1 As ListObject
Dim cntBf As Long
Dim cntAf As Long


Private Sub Workbook_boforeclose(wb As Boolean)

'  顧客リストシートからテーブルの行を取得する
  cntBf = Sheets("顧客リスト").Range("b1")
  Set lst1 = Sheets("顧客リスト").ListObjects(1)
  cntAf = lst1.ListRows.Count

'  顧客リストシートのテーブル行を比較し、変化があればメール送信プログラムを動かす
  If cntBf <> cntAf Then
    Call 自動メール送信  'メール送信用プログラムを呼び出す（下に記載）
    MsgBox("メールを送信しました")
  End If

End Sub



Private Sub workbook_open()

'  顧客リストシートからテーブルの最終行を取得
  Set lst1 = Sheets("顧客リスト").ListObjects(1)
  cntBf = lst1.ListRows.Count
  Sheets("顧客リスト").Range("b1").Value = cntBf

End Sub

Sub 自動メール送信()

  '変数の定義とオブジェクト作成(outlook起動)
  Dim toaddress As String
  Dim subject, mailBoby As String
  Dim outlookObj As Outlook.Application
  Dim mailItemObj As Outlook.MailItem

  '変数へデータ格納（メール送信先シートへ書いておく必要がある）
  toaddress = Sheets("メール送信先シート").Range("b2") '宛先
  subject = Sheets("メール送信先シート").Range("b3")　'件名
  mailBody = Sheets("メール送信先シート").Range("b4")　'本文

  '新規メール作成
  Set outlookObj = CreateObject("Outlook.Application")
  Set mailItemObj = OutlookObj.CreateItem(olMailItem)
  mailItemObj.BodyFormat = 2
  mailItemObj.To = toaddress
  mailItemObj.subject = subject

  '本文へハイパーリンクをつける
  Dim link1, strstyle, url As String
  link1 = Sheets("メール送信先シート").Range("b5")
  url = "<a href=""" & link1 & """>" & "リンクを付けたいファイルの名前" & "</a>"
  strstyle = "<font face="" MS P明朝 "" color = "" #fff ""><b>" & mailBody & "</b></font><br>" & url
  mailItemObj.HTMLBody = strstyle

  'メール送信
  mailItemObj.display
  'mailItemObj.send 　※コメント化を解けばメール送信される

  'オブジェクト開放
  Set outlookObj = Nothing
  Set mailItemObj = Nothing

End Sub