Office TANAKA - Excel VBA Tips[メールを送信する]

このテクニックはBASP21を使います。 BASP21については、ご自身で調べてくださいな。 BASP21を使うとメールの送受信が簡単に行えます。まずはメールの送信から。なお、サーバー名やアカウント、パスワードなどはサンプルです。このコードをそのまま実行するとエラーになりますので、ご利用の環境に合わせてサーバー名やアカウント、パスワードなどを適切に設定してください。 Sub Sample() Dim bobj, msg As String Dim Server As String, Mailto As String, MailFrom As String, Subject As String, Body As String Set bobj = CreateObject("basp21") ''BASP21オブジェクト Server = "smtp.xxxxx.com" ''SMTPサーバ

[SuperDbTool]

ExcelMailAddinを使ったほうが楽です。https://www.youtube.com/channel/UCxmRbmfTLCdTyOa6LOHorlQ

[batten_01]

時間短縮　エクセル

[m_sasaki0810]

BASPを使用して