マクロを使って、期日を過ぎたらリマインドメールを送信する

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
マクロを使って、期日を過ぎたらリマインドメールを送信する

発生している問題・エラーメッセージ

ActiveXコンポーネントはオブジェクトを作成できませんと表示されている。

エラーメッセージ

該当のソースコード

Sub リマインドメール()
Dim bobj, msg As String

Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String

'BASP21オブジェクト
Set bobj = CreateObject("basp21")

'送信サーバー名を記載
Server = "smtp.xxxxx.com"

'宛先を記載
Mailto = "[e-mail]"

'差出し人
MailFrom = "[e-mail]"

'タイトル
Subject = "タイトル"

'本文
Body = "ここに本文を書きます"

msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "")

Set bobj = Nothing
If msg <> "" Then MsgBox msg

End Sub

ここに言語名を入力
VBA

試したこと

ここに問題に対して試したことを記載してください。
上司確認、インターネットで検索したが内容が薄く参考にならなかった。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
機械学習エンジニアを目指して勉強している社会人です。
よろしければアドバイス頂ければ幸いですので
宜しくお願いします。

Comments

[jinoji]

http://officetanaka.net/other/basp21/index.htm

[wzSf11rDdXhuPD7]

ダウンロードができません。

[Usirow]

https://excel-ubara.com/excelvba4/EXCEL233.html
BASPが用意できないのであればこちらもありますね