VBA ExcelVBAとOutlookの連携　パート1

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

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

taka

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

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

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

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

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

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

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

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

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

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

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

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 file(s) 18.34 KB

Download

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

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

VBA ExcelVBAとOutlookの連携　パート1

taka

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