HOME技術ExcelExcel VBA:メールを送信する

Excel VBA:メールを送信する

Excel VBAからメールを送信するボタンをつくります。
パスワードロックをかけたブックを利用していて、パスワードがわからなくなったらメールを送信してパスワードを教える機能を付けようと思い、調べました。
調べた後に、パスワードロックをしても突破する方法がいくつもあることを知り、パスワードロックをかけること自体無意味なことかと考えています…

CDO(Microsoft Collaboration Data Objects)を使用可能にする

「開発」メニューよりデザインモードにして、「挿入」→「ActivXコントロール」→「コマンドボタン(ActiveXコントロール)」を設置します。
右クリックしてプロパティを開いて、オブジェクト名を「sendMail」、Captionを「メール送信」にします。

デザインモードのまま、配置したボタンをダブルクリックしてVBAのコード入力画面を開きます。

「ツール」→「参照設定」を指定します。

「参照可能なライブラリファイル」の一覧から「Microsoft CDO for Windows 2000 Library」にチェックを入れて、「OK」をクリックします。

コード

Dim sendMailObject As New CDO.Message
With sendMailObject
With .Configuration.Fields
.Item(cdoSMTPServer) = “xxx.xxx.xxx” ‘ SMTPサーバ
.Item(cdoSendUsingMethod) = “cdoSendUsingPort”
.Item(cdoSMTPServerPort) = 587 ‘ 送信ポート名
.Item(cdoSMTPConnectionTimeout) = 60 ‘ タイムアウト時間
.Item(cdoSMTPAuthenticate) = cdoBasic ‘ SMTP認証の種類
.Item(cdoSMTPUseSSL) = False ‘ SSL
.Item(cdoSendUserName) = “xxxxxxx” ‘ 送信ユーザアカウント名
.Item(cdoSendPassword) = “xxxxxx” ‘ 送信パスワード
.Item(cdoLanguageCode) = CdoCharset.cdoShift_JIS ‘ 文字コード
.Update
End With
With .Fields
.Item(“urn:schemas:mailheader:X-Priority”)= 1
.Item(“urn:schemas:mailheader:X-MsMail-Priority”)= “High”
.Update
End With
.MDNRequested = False ‘ 開封確認
.MimeFormatted = True ‘ MIMEを使った書式設定
.From = “xxx@xxx.xxx” ‘ 送信元メールアドレス
.To = “xxx@xxx.xxx” ‘ 宛先メールアドレス
.Subject = “xxxxxx” ‘ メール件名
.TextBody = “xxxxx” ‘ メール本文
.Send
End With
Set sendMailObject = Nothing
End Sub

メール送信をする際には、送信用のユーザアカウント、パスワード、SMTPサーバ名が必要です。
cdoSMTPUseSSLはSSLを使った送信をするか否かを指定するものです。
SSLを使う場合にはTrueを指定しますが、エラーが出る場合もあります。
送信元メールアドレスは、架空のメールアドレスでもいいので、xxx@xxx.xxxという形式の指定をします。指定がおかしいとエラーが出ます。

関連記事

Excelで複数部印刷しようとしても指定部数印刷されない

Excelを開いて複数部印刷しようとしても、指定部数が印刷されない不具合への対処法です。 例えば、5部印刷しようとしても、1部ないしは2部しか印刷されません。 そして、エラーメッセージとして「【プリン…続きを読む

Excel:別のExcelファイルの値を参照したファイル

Excelでは、別のExcelファイルの値を参照させることができます。 その際、2つのExcelを開いておき、一方から他方のセルをクリックすることで参照させることができます。 このとき、参照先のExc…続きを読む

Excelで起動時にフォームのみ表示する

Excelで起動時にフォームを表示し、Excelそのものの表画面は非表示にする方法です。 起動時にフォームを表示する 「開発」→「コードの表示」から「Microsoft Visual Basic fo…続きを読む

Excel:改行を含むテキストを置換する

Microsoft Excelで、セルの中で改行しているテキストを置換する方法です。 以下のように、 あああ いいい という改行を含むテキストを「おおお」というテキストに置換します。 改行を含めたテキ…続きを読む

Excelで数字をコピーしたときに連番にならない

Excelで数字が入力されているセルの右下にマウスカーソルを合わせて、下にコピーしていくと、通常は数字が1つずつ足された連番の値でコピーされていきます。 それが何度やっても、何をやっても連番にならなか…続きを読む

Excelで指定行おきに色をつける

Excelの行に、1行おきに色を付けたい、2行おきに色を付けたい、というときの方法です。 まず、色を付ける範囲を指定します。 次に、メニューから「ホーム」→「条件付き書式」→「新しいルール」をクリック…続きを読む

Excel VBAで「はい」「いいえ」の条件分岐をする

Excel VBAでメッセージ(質問)を表示して、ユーザに「はい」「いいえ」の選択をさせて、その結果で処理を分岐させる方法です。 if文による条件分岐 条件分岐には以下のようなif文を使います。 If…続きを読む

Excel:保存先の場所を常にデスクトップにする

Microsoft Excel2019で新規に保存をしようとするとOne Driveなどが最初に候補にあがってきてしまい、コンピュータ上に保存したいときに、いちいちデスクトップを指定するのに手間取りま…続きを読む

Excel VBA:フォルダを開く

Excelでボタンをクリックしたらフォルダを開くようにするVBAです。 Shell EXPLORERPATH & OPENFOLDER , vbNormalFocus EXPLORERPATH…続きを読む

Excel VBA:フィルタを操作して絞り込む

Excel VBAでフィルタ操作をして、行を絞り込みむ方法です。 コード Sub autoFilter(Retsu, Atai) Worksheets(“シート名”).Rang…続きを読む