＜事前準備＞
開発タブ→Visual Basic→ツール→参照設定→
Microsoft Outlook16.0 Object Libraryにチェックを入れてOK

●メール送信のサンプルコード

'Outlookオブジェクトの変数宣言
Dim outlookObj As Outlook.Application
Set outlookObj = New Outlook.Application

'メール送信用のオブジェクト作成
Dim mailObj As Outlook.MailItem
Set mailObj = outlookObj.CreateItem(olMailItem)

'メール送信内容の作成
 With mailObj

  .To = "XXXXX@XXXXX.com" 'メール宛先
  .Subject = "有効期限切れのお知らせ"  'メール件名
  .Body = "間もなく期限を迎えます。" 'メール本文
  .BodyFormat = olFormatPlain   'メール形式に設定

 End With

'メール送信
mailObj.Send

＜ざっくり解説＞
測定機器の校正期限や、薬品の有効期限切れなど、
期限を迎えたらメールでお知らせしてくれるプログラムを作るために使用しました。