VBAを使ってExcelのメールリストから自動でメール作成

Sub リストから複数へメール()
'outlookを立ち上げる
Set myOutlook = CreateObject("Outlook.Application") 　'①
Set myNs = myOutlook.GetNamespace("MAPI") 　'②
Set myMail = myOutlook.CreateItem(0) 　'③
myMail.Display
'配列の箱を用意する。ここでは1000個用意。
Dim arr1(1000) As String
Dim arr2(1000) As String
Dim arr3(1000) As String
'最終行を取得。これにより途中空白でも続けられる。
Dim last As Long
last = Cells(Rows.Count, "B").End(xlUp).Row 　'④
Debug.Print last
Dim i As Long
For i = 3 To last
  Select Case Cells(i, 2).Value 　'select caseをつかうと複数条件を指定できる。
   Case "宛先"
   arr1(i) = Cells(i, 4).Value & ";" 　'⑤
   Case "cc"
   arr2(i) = Cells(i, 4).Value & ";"
   Case "bcc"
   arr3(i) = Cells(i, 4).Value & ";"
  End Select
Next
'配列の箱に入ったアドレスをJoinでつなげてoutlookに放り込む。
myMail.To = Join(arr1) 　'⑥
myMail.CC = Join(arr2)
myMail.BCC = Join(arr3)
End Sub