Q&A
http://officetanaka.net/other/basp21/index.htm
前提・実現したいこと
ここに質問の内容を詳しく書いてください。
マクロを使って、期日を過ぎたらリマインドメールを送信する
発生している問題・エラーメッセージ
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 = "xxxxxxx@officetanaka.ne" '差出し人 MailFrom = "toru_tanaka@xxxxx.com" 'タイトル Subject = "タイトル" '本文 Body = "ここに本文を書きます" msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, "") Set bobj = Nothing If msg <> "" Then MsgBox msg
End Sub
ここに言語名を入力
VBA
試したこと
ここに問題に対して試したことを記載してください。
上司確認、インターネットで検索したが内容が薄く参考にならなかった。
補足情報（FW/ツールのバージョンなど）
ここにより詳細な情報を記載してください。
機械学習エンジニアを目指して勉強している社会人です。
よろしければアドバイス頂ければ幸いですので
宜しくお願いします。
あなたの回答
tips
プレビュー
