ExcelVBAを使用し、本文内容・送信先を変えつつ複数の連絡先にメールを一括送信したい

Question

前提・実現したいこと

ExcelVBAを使用し、内容を変えつつ複数の連絡先にメールを一括送信したいです。
実現したいのは、下記urlに記載されている内容です。

https://tonari-it.com/vba-outlook-mail-send-malinglist/

発生している問題・エラーメッセージ

コンパイルエラー：
メソッド　または　データメンバーが見つかりません。

該当のソースコード

Sub SendEmail()

Dim objOutlook As Outlook.Application
Dim i
Dim rowMax As Long
Dim wsList As Worksheet
Dim wsMail As Worksheet
Dim objMail As Outlook.MailItem

Set objOutlook = New Outlook.Application
Set wsList = ThisWorkbook.Sheets("送信先")
Set wsMail = ThisWorkbook.Sheets("メール内容")

With wsList

    '送信先の件数
    rowMax = .Cells(Rows.Count, 1).End(xlUp).Row

    '送信先の件数分繰り返す
    For i = 2 To rowMax
        Set objMail = objOutlook.CreateItem(olMailItem)
        With wsMail
            .To = wsList.Cells(i, 4).Value       'メール宛先
            .Subject = .Range("B1").Value        'メール件名
            .BodyFormat = olFormatPlain          'メールの形式
            .Body = wsList.Cells(i, 1).Value & vbCrLf & _
                         wsList.Cells(i, 2).Value & " " & _
                         wsList.Cells(i, 3).Value & " 様" & vbCrLf & vbCrLf & _
                        .Range("B2").Value              'メール本文
    
           objMail.Send
        End With
    Next i

    Set objOutlook = Nothing
    MsgBox "送信完了"

End With

End Sub

試したこと

"送信先"シートの中身が同じ文字列（テスト）ばかりだったので、バラバラの文字列にしました。
"メール内容"シートは他のマクロで正常に読み込むのを確認しています。

コードはurl参照先から変えていません。何か問題があるのでしょうか？

Answer 1

参照したリンク先のコードが間違ってますね。
たぶんタイプミスですね。

'前略

    For i = 2 To rowMax
        Set objMail = objOutlook.CreateItem(olMailItem)
      ' With wswsMail この行間違い
        With objMail  'こちらに修正
            .To = wsList.Cells(i, 4).Value       'メール宛先
            .Subject = .Range("B1").Value        'メール件名
            .BodyFormat = olFormatPlain          'メールの形式

'後略

Comments

[hinomar]

回答ありがとうございます。早速修正してみたのですが、
```
実行時エラー'438'

オブジェクトは、このプロパティまたはメソッドをサポートしていません。
```
と出てしまいます。

デバッグでは、以下の行にエラーが出ています。
```VBA
.Subject = .Range("B1").Value 'メール件名
```

どのようにすれば解決するでしょうか…

[hatena19]

エラー行を下記に修正してみてください。

.Subject = wsList.Range("B1").Value 'メール件名

他に同様のエラーがでたら、同様に修正してください。

[hinomar]

```VBA
'送信先の件数分繰り返す
For i = 2 To rowMax
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = wsList.Cells(i, 4).Value 'メール宛先
.Subject = wsMail.Range("B1").Value 'メール件名
.BodyFormat = olFormatPlain 'メールの形式
.Body = wsList.Cells(i, 1).Value & vbCrLf & _
wsList.Cells(i, 2).Value & " " & _
wsList.Cells(i, 3).Value & " 様" & vbCrLf & vbCrLf & _
wsMail.Range("B2").Value 'メール本文

objMail.Send
```
に変えたところエラーが変化しました。
objMail.Send
の行にエラーが出ており、送信先を指定してくださいと言われます。

```
実行時エラー'-2147467259(80004005)'

送信先を指定する必要があります。名前を少なくとも１つ入力していることを確認してください。
```

メールは打っているのですが…書式設定なども何か影響を与えるのでしょうか。

[hinomar]

回答ありがとうございます。丁度同じタイミングで打っておりましたので前後しました…

[hatena19]

wsList.Cells(i, 4).Value にメールアドレスが入っているか確認してみてください。

下記を参考にデバッグしてみてください。
VBA デバッグの仕方
https://www.tipsfound.com/vba/01010

[hinomar]

済みません、行けました。
この度は何度も丁寧にありがとうございました。

また自分1人ではどうしようもないことがありましたら
お助け頂けますと嬉しいです。