VBA ExcelVBAとOutlookの連携　パート1

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうもtakaです(^^♪

さて、ExcelとOutlookが連携するという結構コアな検索でこのE-VBAにいらっしゃる方が結構お見掛けします(笑)

ExcelとOutlookを連携させると何ができるのか?一番大きい恩恵はメールを操れることです。Excelでメールを送れる方法はほかにもありますが。

outlookで受け取っているメールやoutlookで送信したメールを管理や逆にExcelで作成してあった名簿からメールを送信するなどExcelとOutlookの愛称は意外にいいといえると思います( ^^) _旦~~

ExcelVBAとOutlookを連携させてできる事（例）

ExcelとOutlookを連携させると以下のようなことが可能になります。

• Excelのデータをもとにメールを大人数に送信する。
• 受信されたメールを差出人や件名によってフォルダ分けする。
• メールの内容をExcelに転記する

など様々なことがExcelから可能になります。Excelデータをもとに送信などは便利で個人でも使用しています(^^♪

Excelデータを元に一気にメールを送る

今回は簡単なサンプルコードを記載させていただきます。定型文を一気に送るというものです。Excelにメールアドレスが乗っている個人名簿があると仮定します。
※本文、件名を別のセルに用意しておいてください。

名簿のメールドレスをもとに

1. メールを作成
2. 本文セル
3. 件名セルの内容をメールアイテムに挿入
4. 送信

を順に処理していきます。

Dim i As Long
Dim row As Long
Dim trSh As Worksheet
Dim res As Integer
Dim oApp As Object
Dim objMAIL As Object 'メールのオブジェクト

res = MsgBox("連続でメールが送信されます、よろしいですか?", vbYesNo)
If res = vbNo Then Exit Sub
Set oApp = CreateObject("Outlook.Application") 'outlook 起動
With Worksheets("マスター")
row = .Cells(.Rows.Count, 1).End(xlUp).row
For i = 3 To row

Set objMAIL = oApp.CreateItem(0) 'メール作成

objMAIL.To = .Cells(i, 3).Value '宛先C行にメールアドレスが記入されている設定。
objMAIL.Subject = Range("A1").Value  '件名セルA1に記入されているとする
objMAIL.Body = Range("B1").Value '本文セルB1に記入されているとする
objMAIL.send  'メール送信

Next i
End With

※注意一応私の環境では成功しました

ダウンロード

当サイトの免責事項をお読みになってからお使いください。

メールサンプル

1 ファイル 18.34 KB

ダウンロード

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link